PROGRAM MENAMPILKAN TULISAN PADA LCD DENGAN BASCOM AVR

Sekarang 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.

Berikut tabel deskripsi pin pada LCD :
















Pin
Simbol
I/O
Deskripsi
1
VSS
--
Ground
2
VCC
--
+ 5 V power suplay
3
VEE
--
Power suplay source to control contrast
4
RS
I
Register select: RS = 0 to select instruksi. Command register; RS =1 to selsct data reg.
5
R/W
I
Read/Write: R/W =0 for write, R/W= 1 for read
6
E
I
Enable
7
DB0
I/O
The 8-bit data bus
8
DB1
I/O
The 8-bit data bus
9
DB2
I/O
The 8-bit data bus
10
DB3
I/O
The 8-bit data bus
11
DB4
I/O
The 8-bit data bus
12
DB5
I/O
The 8-bit data bus
13
DB6
I/O
The 8-bit data bus
14
DB7
I/O
The 8-bit data bus
 
Sekarang kita akan membuat Program Menampilkan kata ?Pengenalan Pemograman ATMEGA32 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 Meri Wardana? berikut programnya :


$regfile = "m32def.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 "Meri"
Locate 3, 1
Lcd "Wardana"
Waitms 100
Loop


Pembahasan Program :

$regfile = "m32def.dat"  library yang menyatakan bahwa mikrokontroller yang kita pakai adalah atmega32,
$crystal = 8000000  meyatakan bahwa clock oscillator yang kita pakai sebesar 8Mhz,
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.2 , Rs = Portc.0  inisialisasi pin-pin pada LCD sendiri,
Config Lcd = 20 * 4  LCD yang kita pakai adalah LCD berukuran 20*4,
Dim X As Byte = pendeklarasian bahwa variable X adalah tipe byte dimana rangenya adalah 0-255,
Do-loop = perintah perulangan,
Cls    = LCD dibersihkan terlebih dahulu
Locate 1 , 1        = menyatakan huruf atau angka yang akan ditampilkan pertama kali akan keluar pada kolom 1 baris 1,
Lcd "Pengenalan" = kata yang akan ditampilkan pada LCD adalah ?pengenalan?
Waitms 100        = delay waktu 100 milisecond
Begitu seterusnya hingga For X = 1 To 40-Next = yang menyatakan perulangan 40 kali,
Shiftlcd Left = menggeser kata-kata yang kita tampilkan tadi ke kiri 
Waitms 50 = delay waktu 50 milisecond
Selamat mencoba?!

0 komentar:

Posting Komentar