Pada pembahasan kali akan di bahas mengenai bagaimana cara mengakses LCD 16 x 2 dengan bahasa basic atau software compiler BASCOM AVR, sebenernya program basic jauh lebih sederhana dibanding bahasa yang lainnya menurutku, karena tidaklah memerlukan delarasi variabel yang bermacam-macam, memang bahasa basic adalah salah satu cara untuk mengakses mikrokontroller tanpa harus berfikir rumit tentang bahasa assemby-nya, berikut adalah skematik dan contoh programnya.
a. Minimum System ATMega16
b. Program Bascom "HELLO WORLD"
$regfile = "m16def.dat"
$crystal = 12000000
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 = 16 * 2
Cursor Off
Cls
Do
Locate 1 , 1
Lcd "HELLO WORLD"
Locate 2 , 1
lcd "I'AM YANUAR"
$crystal = 12000000
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 = 16 * 2
Cursor Off
Cls
Do
Locate 1 , 1
Lcd "HELLO WORLD"
Locate 2 , 1
lcd "I'AM YANUAR"
Loop
c Program Bascom Counter-Up
$regfile = "m16def.dat"
$crystal = 12000000
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 = 16 * 2
Cursor Off
Cls
Dim A As Integer
A = 0
Do
Incr A
Locate 1 , 1
Lcd "count up"
Locate 2 , 1
Lcd A
waitms 200
Loop
No comments:
Post a Comment