Cara Menggeser tulisan LCD 16x2 Menggunakan Mikrokontroler ATMega32 dengan Program Basic Compiler (BasCom)
Assalamualaikum Wr. Wb
Apakabar sahabat semua ? tentunya semua baik-baik saja ya.
Pada postingan kali ini saya akan membagikan program sederhana bahasa Basic (Bascom) untuk pemrograman mikrokontroler ATMega32 yaitu program untuk membuat tulisan bergeser menggunakan LCD 16x2 dimana Gambar dan Listing programnya dibawah ini :
Gambar Rangkaian Mikrokontroler ATMega32 + LCD 16x2 :
Listing Program :
$regfile = "m32.dat"
$crystal = 16000000
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2
Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcd = 20 * 4
Cursor Off
Dim I As Byte
Cls
Lcd "Coba Geser Tulisan LCD"
Do
Shiftlcd Left
Waitms 500
Loop
End
Silahkan sahabat semua mencoba membuatnya, semoga bermanfaat
Terimakasih
Apakabar sahabat semua ? tentunya semua baik-baik saja ya.
Pada postingan kali ini saya akan membagikan program sederhana bahasa Basic (Bascom) untuk pemrograman mikrokontroler ATMega32 yaitu program untuk membuat tulisan bergeser menggunakan LCD 16x2 dimana Gambar dan Listing programnya dibawah ini :
Gambar Rangkaian Mikrokontroler ATMega32 + LCD 16x2 :
Listing Program :
$regfile = "m32.dat"
$crystal = 16000000
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2
Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcd = 20 * 4
Cursor Off
Dim I As Byte
Cls
Lcd "Coba Geser Tulisan LCD"
Do
Shiftlcd Left
Waitms 500
Loop
End
Silahkan sahabat semua mencoba membuatnya, semoga bermanfaat
Terimakasih
Post a Comment