Membuat Teks Berjalan dan Karakter Khusus pada LCD 16x2 menggunakan Bascom AVR

| 16 April 2014
Membuat Teks Berjalan 

Geser sakedik neng, geser sakedik kang.....(hahaha, emangnya di Angkot)
Bahasan kali ini adalah untuk membuat teks berjalan pada tampilan LCD 16x2 biar bisa goyang bara bere gitu. kita dapat menggunakan fitur dari Bascom AVR yang berupa shift left dan shift right.

Langsung ajalah ga usah bertele ngocehnya, gini nih list programnya :

$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
 

Dim A As Integer          'deklarasi variabel A

Cursor Off                'menyembunyikan tampilan kursor

Home                      'meletakkan kursor ke baris pertama
Lcd "Elektro"
Lowerline                 'meletakkan kursor ke baris kedua
Lcd "Lead The Way"
A = 0
For A = 1 To 5
Shiftlcd Right            'geser kekanan 10x
Waitms 500                'delay 500 ms
Next

A = 0
For A = 1 To 5
Shiftlcd Left             'geser kekiri10x
Waitms 500                'delay 500ms
Next

End



Membuat Karakter Khusus

Seringkali dalam project yang kita buat memerlukan beberapa karakter khusus, semisal saja simbol panah, jangkar ataupun derajat. Dalam kesempatan ini saya akan mencoba menjelaskan cara mendesain karakter LCD sesuai yang kita inginkan dengan menggunakan Bascom AVR.
 
Pada software Bascom AVR, kita dapat menggunakan fitur LCD Designer yang terdapat pada menu Tools.
















Setelah masuk ke LCD Designer,langkah selanjutnya adalah membuat bentuk kakrakter yang kita inginkan.
Dalam satu kolom terdapat kotak 8x5 kotak.kali ini saya contohkan membentuk karakter Love yang akan ditampilkan pada LCD.

















Setelah desain yang teah didesain dengan LCD Designer selesai, selanjutnya pilih "OK" dan Bascom akan mengenerate desain yang dibuat tadi. Contoh hasil generate dari desain diatas yang telah dibuat adalah sebagai berikut:

Deflcdchar [x],4,10,17,16,8,4,2,1         ' replace [x] with number (0-7)    

ganti tulisan "[x]" dengan angka 0 sampai 7, hal ini bertujuan untuk pengalamatan dari desain untuk dipanggil saat nanti ditayangkan di LCD

Untuk pemanggilan desain yang telah dibuat, cukup menuliskan  Lcd Chr(0). Angka (0) merupakan pengalamatan dari desain.

Begitu mudah kan menggunakan Bascom AVR.

Untuk mengunduh contoh dalam program dan simulasi proteus bisa diunduh disini

Salam Olahraga,
Semoga Bermanfaat.