Animasi dengan LCD 2x16 dengan bascom avr dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS

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