Sabtu, 10 September 2011

Membuat karakter Lover di LCD

Dengan Bascom AVR juga bisa menampilkan karakter khusus menggunakan LCD Designer pada Tools, contohnya membuat karakter gambar “Love”:

lcd love
Setelah diklik OK akan muncul:

Deflcdchar ?,32,10,31,31,14,4,32,32 ‘replace ? with number (0-7)

Ganti “?” dengan angka 0-7, misalnya diganti angka 1:

Deflcdchar 1,32,10,31,31,14,4,32,32

maka cara memanggilnya:

Lcd “Karakter Love: “; chr(1)

karakter love sebagai chr(1).

lcd2

Text Bergerak di LCD

Berikut listing program untuk menampilkan tulisan pada LCD 16×2 dengan Bascom AVR:

  1. $regfile = “m32def.dat” ‘mikrokontroler ATMega32
  2. $crystal = 11059200
  3. Config Lcdpin = Pin, Db4 = Portc.4, Db5 = Portc.5, Db6 = Portc.6, Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2 ‘Pin-pin yg dipakai
  4. Config Lcd = 16 * 2 ‘Tipe LCD 16×2
  5. Dim Y As Integer
  6. Cls ‘Bersihkan layar LCD
  7. Cursor Off ‘Cursor disembunyikan
  8. Locate 1 , 2 ‘LCD Kolom1, baris 2
  9. Lcd “Test LCD diam”
  10. Locate 2 , 4
  11. Lcd “Bascom AVR”
  12. Wait 1 ‘Tunggu 1 detik
  13. cls
  14. Locate 1 , 1
  15. Lcd ” TEST LCD”
  16. For Y = 1 To 20
  17. Shiftlcd Left ‘Menggerakkan LCD ke kiri
  18. Waitms 200
  19. Next
  20. Cls
  21. Locate 2 , 1
  22. Lcd ” BERGERAK KE KIRI”
  23. For Y = 1 To 20
  24. Shiftlcd Left
  25. Waitms 200
  26. Next

LED dan Tombol

    Dalam contoh ini kita akan berlatih merubah kongifurasi BASCOM AVR sesuai dengan minsys AVR yang kita gunakan dan membuat program sederhana untuk menyalakan LED, menggeser nyala LED dan

    membaca penekanan tombol.

    1. Membuat Project Baru:
    Klik File—>New2.Menentukan konfigurasi sistem(chip, baudrate, I/O dll.):

    A. Options—> Compiler

    clip_image002

    B. Chip: menentukan chip AVR yang digunakan, karena saya memakai DI-Smart AVR 16 maka saya gunakan m16def.dat clip_image004

    C.Options—>Programmer: menentukan jenis programmer/downloader yang digunakan. Di sini saya menggunakan usb downloader dengan firmware AVR910.

    clip_image006

    3. Test setting programmer:

    untuk mengetahui settning programmer udah sesuai apa belum klik Program—>Send to Chip—> Manual Program

    clip_image008

    Pilih Chip—>Identify. Jika setting sudah benar maka akan tampil jenis chip yang kita gunakan dan propertiesnya

    clip_image010

    clip_image012

    4. Membuat code program untuk menggeser nyala LED ke kanan:

    $regfile = "m16def.dat"

    $crystal = 11059200

    Config Portc = Output

    Portc = &B1111_1110

    Do

    Rotate Portc , Right , 1

    Waitms 500

    Loop

    End
    Tekan F7 untuk men COMPILE.

    Jika tidak ada ERROR tekan F4, lalu pilih ERASE and PROGRAM CHIP

    clip_image014

    clip_image016

    Gambar di atas adalah tampilan program saat di running.

    A. Pembahasan program:

    $regfile = "m16def.dat"

    Menentukan chip AVR yang kita gunakan, saya menggunakan ATMEGA16. Menggunakan chip AVR yang lain harus merubah baris ini dan juga konfigurasi compiler yang dibahas pada point 2.B.

    Misal kita menggunakan ATMEGA8 maka kita tulis $regfile = "m8def.dat"

    $crystal = 11059200

    Nilai yang diisikan disini sesuai crystal/ xtal yang dipakai. Saya menggunakan crystal 11,0592MHz.

    Config Portc = Output

    PORTC di gunakan sebagai output. Saya menggunakan PORTC sebagai output karena LED-LED di board SMART AVR 16 SYSTEM terhubung ke PORTC

    Portc = &B1111_1110

    Nilai PORTC di set ke 1111 1110. Ini berarti PORTC.7—PORTC.1 nilainya = 1=high=5volt.

    Sedangkan POTC.0 nilainya = 0 = low = 0 volt.

    Berarti LED yang terhubung ke PORTC.0 akan menyala. Perlu diketahui LED-LED pada board Smart AVR System dirangkai active low artinya jika di beri Logic Low / teg. 0 volt maka LED akan active/menyala.

    Do

    Rotate Portc , Right , 1

    Waitms 500

    Loop

    End

    Baris-baris program yang berada di antara Do --- Loop merupakan baris –baris program utama/ main program yang akan di kerjakan terus menerus.

    Rotate Portc , Right , 1

    Menggeser nilai pada PORTC ke KANAN sebanyak 1kali. Di awal program nilai PORTC di set ke 1111_1110 jika digeser kekanan 1 kali maka nilainya menjai 0111_1111 berarti PORTC.7 =Low= 0 volt sehingga LED yang terhubung ke port ini akan menyala.

    Waitms 500

    Delay 500ms, selama waktu ini microcontroller tidak melakukan apa2.

    Loop

    Perintah untuk mengulang program ke baris DO, sehingga program untuk menggeser LED akan dijalankan terus.

    5. Membuat code program untuk membaca tombol

    Program ini bertujuan untuk membaca penekanan tombol untuk merubah nyala led.

    Pada board Smart AVR System Tombol 1 terhubung ke PIND.2, Tombol 2 terhubung ke PIND.3

    Jika tombol 1 ditekan maka nyala LED akan begeser ke kanan.

    Jika tombol 2 ditekan maka nyala LED akan bergeser ke ke kiri

    $regfile = "m16def.dat"

    $crystal = 11059200

    Config Portd.2 = Input

    Config Portd.3 = Input

    Portd.2 = 1

    Portd.3 = 1

    Config Portc = Output

    Portc = &B1111_1110

    Do

    If Pind.2 = 0 Then Rotate Portc , Right , 1

    If Pind.3 = 0 Then Rotate Portc , Left , 1

    Waitms 500

    Loop

    End
    Tekan F7 untuk men COMPILE.

    Jika tidak ada ERROR tekan F4, lalu pilih ERASE and PROGRAM CHIP

    A. Pembahasan program:

    Config Portd.2 = Input

    Config Portd.3 = Input

    PORTD.2 dan PORTD.3 di setting sebagai input

    Portd.2 = 1

    Portd.3 = 1

    Memberi nilai 1/ high pada PORTD.2 dan PORTD.3, karena sebelumnya port-port ini disetting sebagai input maka baris program ini akan mengaktifkan internal pull up. Jika internal pull up tidak diaktfikan maka kondisi port input akan mengambang menyebabkan nilai pembacaan kacau.

    If Pind.2 = 0 Then Rotate Portc , Right , 1

    Jika PIND.2 = 0 maka PORTC akan di geser ke kanan 1kali. PIND.2 akan bernilai 0 jika tombol 1 ditekan.

    If Pind.3 = 0 Then Rotate Portc , Left , 1

    Jika PIND.3 = 0 maka PORTC akan di geser ke kiri 1kali. PIND.3 akan bernilai 0 jika tombol 2 ditekan.