PROGRAM LCD DENGAN BASCOM AVR

LCD lebih dipilih daripada dot matriks, seven-segment LED atau Multisegment LED untuk tampilan, disebabkan oleh selain harganya murah, LCD sudah mampu menampilkan huruf, angka bahkan grafik sekalipun serta dalam memprogramnya lebih mudah

kita akan membuat Program Menampilkan kata “Pengenalan Pemograman ATMEGA 8535 Dengan BASCOM-AVR” dimana kata kata tersebut tampil satu persatu pada LCD dengan delay 1 detik dan kemudian digeser kesebelah kiri sebanyak 40 kali dan kemudian disusul dengan tampilnya kata “BY FISIKA INSTRUMENTASI” berikut programnya :

$regfile = "m8535def.dat"

$crystal = 8000000

Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.2 , Rs = Portc.0

Config Lcd = 20 * 4

Dim X As Byte

Do

Cls

Locate 1 , 1

Lcd "Pengenalan"

Waitms 100

Locate 2 , 1

Lcd "Pemograman"

Waitms 100

Locate 3 , 1

Lcd "ATMEGA8535"

Waitms 100

Locate 4 , 1

Lcd "Dengan BASCOM-AVR"

Waitms 100

For X = 1 To 40

Shiftlcd Left

Waitms 50

Next

Cls

Locate 1 , 1

Lcd "BY"

Locate 2 , 1

Lcd "FISIKA"

Locate 3, 1

Lcd "INSTRUMENTASI"

Waitms 100

Loop