Cara Membuat Running Text Pada LCD 16 x 2 dengan Menggunakan Bahasa BASCOM AVR

Hallo sahabat Elektronika/Fisika Instrumentasi.....

Kali ini kita akan berbagi informasi tentang cara membuat running text pada sebuah LCD 16 x 2.  Seperti biasa, kita akan menggunakan Bahasa Pemrograman Basic Compiler atau yang sering disebut dengan istilah BASCOM. Dikarenakan menurut paham saya, lebih mudah untuk dimengerti dibanding bahasa pemrograman yang lain.

Gambar di bawah ini merupakan gambar skematiknya, yaang saya buat menggunakan aplikasi Proteus 8.9. 

Daftar komponen:

1. ATMega32

2. LCD 16 x 2

3. Kapasitor 22pF 2 buah

4. Crystal 16 MHz

Baca juga: Jam Digital Tampilan LCD dengan ATMega32 dan DS1307 Bahasa Pemrograman BASCOM AVR

Adapun Bahasa Pemrogramannya sebagai berikut. Jangan lupa untuk menonton Vidionya di akun Youtube saya " Batak sarjana" yaa teman-teman.

Semoga bermaanfaat, Selamat bertemu kembali di postingan berikutnya.

$regfile "m32def.dat"

$crystal = 16000000

Dim Datas As String * 16 , X As Byte

Dim Dataa As String * 1

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

Config Lcd = 16 * 2

Cursor Off

Cls

Datas = "JETRO RAJAGUKGUK"

Do

Locate 1 , 3 : Lcd "TAMPILAN LCD"

Waitms 50

For X = 1 To 16

Dataa = Mid(datas , X , 1)

Locate 2 , X : Lcd Dataa

Waitms 100

Next

For X = 1 To 16

Shiftlcd Left

Waitms 100

Next

For X = 1 To 32

Shiftlcd Right

Waitms 100

Next

For X = 1 To 16

Shiftlcd Left

Waitms 100

Next

Wait 1

Cls

Cls

Loop

End