Read more
Animasi dengan
LCD 2x16 dengan bascom avr dan at mega 8535
Skema rangkaian Akses LCD 16x2 Animasi
dengan LCD 2x16 dengan bascom avr dan at mega 8535
Source code Akses LCD 16x2 Animasi dengan LCD 2x16 dengan bascom avr dan at mega 8535
$regfile
= "m8535.dat"
$crystal
= 16000000
Deflcdchar
0 , 7 , 14 , 28 , 24 , 28 , 14 , 7 , 32
Deflcdchar
1 , 32 , 12 , 30 , 31 , 30 , 12 , 32 , 32
Config
Lcdpin = Pin , Rs = Portc.0 , E = Portc.2 , Db4 = Portc.4
Config
Lcdpin = Pin , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7
Config
Lcd = 16 * 2
Cursor
Off
Cls
Dim I
As Byte , J As Byte , K As Byte , L As Byte
Do
Cls
Lcd
"Contoh Animasi.."
Wait
1
For I
= 1 To 16
Locate
1 , I
Lcd
Chr(0)
J = I
- 1
Locate
1 , J
Lcd
" "
Waitms
300
K = I
+ 1
Locate
1 , K
Lcd
Chr(1)
Locate
1 , I
Lcd
" "
Waitms
300
Next
Loop
End



0 Reviews
Silakan dikomentari