LCD adalah singkatan dari Liquid Crystal Display, suatu media tampilan yang menggunakan kristal cair sebagai penampil utama,. LCD banyak digunakan pada alat-alat elektronik, yang sering dijumpai adalah pada TV, kalkulator, tiket parkir, tiket mainan wahana anak, dll. Tipe yang banyak digunakan dan biasanya untuk belajar mikrokontroler adalah LCD dot matrik 16x2. LCD 16x2 artinya adalah 16 kolom dan 2 baris.
Penampakan dari LCD 16x2
Konfigurasi Pin LCD adalah sebagai berikut :
Pada umumnya Pin yang digunakan sebagai I/O ke mikrokontroler adalah pin RS, R/W, En dan DB4-7
Konfigurasi Pin LCD 16x2 pada kaki mikrokontroler contohnya sebagai berikut :
'Ingat' apabila menggunakan Bascom AVR, pin 5 LCD (Pin R/W) dihubungkan ke ground. berbeda dengan menggunakan codevison, pin 5 dibungkan dengan pin.
Contoh 1 Listing Program Menampilkan tulisan ke tampilan LCD 16x2
'konfigurasi mikrokontroler dan kristal clock
$regfile = "m32def.dat"
$crystal = 11059200
'konfigurasi pin
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.2 , Rs = Portb.0
Config Lcd = 16 * 2
Cursor Off 'menyembunyikan tampilan kursor
Home 'meletakkan kursor ke baris pertama
Lcd "Elektro"
Lowerline 'meletakkan kursor ke baris kedua
Lcd "Lead The Way"
Contoh 2 Listing Program Menampilkan tulisan ke tampilan LCD 16x2
regfile = "m32def.dat"
$crystal = 11059200
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.2 , Rs = Portb.0
Config Lcd = 16 * 2
Cursor Off
Locate 1 , 5 'meletakkan kursor ke baris pertama, kolom kelima
Lcd "Elektro"
Locate 2 , 2 'meletakkan kursor ke baris kedua, kolom ke dua
Lcd "Lead The Way"
Contoh 3 Listing Program Menampilkan tulisan ke tampilan LCD 16x2
$regfile = "m32def.dat"
$crystal = 11059200
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.2 , Rs = Portb.0
Config Lcd = 16 * 2
Dim Nama As String * 4 'deklarsai variabel nama
Dim Nim As Long 'deklarsai variabel nim
Dim Urut As Integer 'deklarsai variabel urut
Dim Ipk As Double 'deklarsai variabel Ipk
Cursor Off 'menyembunyikan tampilan kursor
Nama = "Bimo" 'menyimpan karakter nama ke buffer
Nim = 115090055 'menyimpan karakter urut ke buffer
Urut = 4 'menyimpan karakter ipk ke buffer
Ipk = 3.34
Home 'meletakkan kursor ke baris pertama
Lcd "Elektro"
Lowerline 'meletakkan kursor ke baris kedua
Lcd "Lead The Way"
Wait 1 'delay 1 detik
Cls 'menghapus layar
Home 'meletakkan kursor ke baris pertama
Lcd "Nama : " ; Nama 'menampilkan karakter nama dari buffer
Lowerline 'meletakkan kursor ke baris kedua
Lcd "NIM : " ; Nim 'menampilkan karakter nama dari buffer
Wait 1 'delay 1 detik
Cls 'menghapus layar
Home
Lcd "Urut : " ; Urut 'menampilkan karakter urut dari buffer
Lowerline
Lcd "IPK : " ; Ipk 'menampilkan karakter IPK dari buffer
End
Bila ingin mengunduh contoh program dan simulasi proteus dari topik yang dibahas diatas bisa didownload disini
Semoga Bermanfaat
