Sabtu, 10 September 2011

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
Diposting oleh di

1 komentar:

  1. UnknownJumat, 01 Juni 2012 pukul 23.03.00 PDT

    numpang nanya gan....
    kalau untuk menampilkan text di lcd dengan menggunakan tombol,bagaimana cara membuat programnya ya gan???
    suatu misal jika tombol_1 di tekan tampilan text di lcd "aaaaaa",jika tombol_2 ditekan tampilan text dilcd "bbbbbbb".demikian,sebelumnya makasih atas penjelasannya......
    salam!!!!

    BalasHapus

Langganan: Posting Komentar (Atom)