Translate

Cara Mengakses LCD 16x2 Dengan Bascom AVR

Cara Mengakses LCD 16x2 Dengan Bascom AVR

             

                    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"

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