Tutorial Bascom Pembacaan Keypad dengan Mikrokontroler

Pada Tutorial Bascom kali ini akan dibahas bagaimana Pembacaan Keypad pada Mikrokontroler.

Hasil dari pembacaan keypad tersebut akan ditampilkan pada layar LCD.

Setiap ada penekanan keypad hasilnya akan ditampilkan pada LCD

Koneksi Keypad-Mikrokontroler:

1. Col1  dihubungkan ke Port C0 pada ATMEGA 8535
2. Col2 dihubungkan ke Port C1 pada ATMEGA 8535
3. Col3 dihubungkan ke Port C2 pada ATMEGA 8535
4. Col4 dihubungkan ke Port C3 pada ATMEGA 8535
5. Row1 dihubungkan ke Port C4 pada ATMEGA 8535
6. Row2 dihubungkan ke Port C5 pada ATMEGA 8535
7. Row3 dihubungkan ke Port C6 pada ATMEGA 8535
8. Row4 dihubungkan ke Port C7 pada ATMEGA 8535

Koneksi LCD dan Mikrokontroler:

1. Pin 4 (RS) dari LCD dihubungkan ke Port B.0 pada ATMEGA 8535
2. Pin 6 (E) dari LCD dihubungkan ke port B.1 pada ATMEGA 8535
3. Pin 11 (D4) dari LCD dihubungkan ke port B.4 pada ATMEGA 8535
4. Pin 11 (D5) dari LCD dihubungkan ke port B.5 pada ATMEGA 8535
5. Pin 11 (D6) dari LCD dihubungkan ke port B.6 pada ATMEGA 8535
6. Pin 11 (D7) dari LCD dihubungkan ke port B.7 pada ATMEGA 8535

Untuk menguji program yang kita buat. 

Alangkah baiknya anda mengujinya pada rangkaian yang telah dibeli dari perusahaan. 

Kenapa? karena rangkaian yang dijual oleh perusahaan sebelum dijual telah diuji terlebih dahulu. 

Jadi resiko kegagalan device/alat sudah diantisipasi terlebih dahulu.

Berikut ini adalah program BASCOM untuk me.>ngirimkan kata-kata ke LCD.

'--------------------------------------------------------
'DEKLARASI HEADER
'--------------------------------------------------------
$regfile = "8535def.dat" 'untuk deklarasi menggunakan IC ATMEGA8535  
'--------------------------------------------------------
'DEKLARASI CRYSTAL
'--------------------------------------------------------
$crystal = 12000000 'menggunakan crystal 12MHz  
'--------------------------------------------------------
'Konfigurasi LCD
'--------------------------------------------------------
Config Lcdpin = Pin, Db4 = Portb.4, Db5 = Portb.5, Db6 = Portb.6, Db7 = Portb.7, E=Portb.1, Rs=Portb0

'-------------------------------------
'Deklarasi Variabel
'--------------------------------------
 Dim B as integer       'mendeklarasikan sebuah variabel
 Dim B1 as string * 1     'Deklarasi variabel B1 sebagai string dan mengambil tempat 16 Byte
                                         'di memory untuk variabel B1
Dim A = 16
'-------------------------------------
'Konfigurasi Keypad
'--------------------------------------
 Config Kbd = Portc

'--------------------------------------------------------
'Rutin utama
'--------------------------------------------------------
B1 = ""
Do    'masukkan perintah perulangan Do

      Cls            'bersihkan layar lcd

      B = Getkbd()
     
      if B = 0 then

         Lcd "0"   'tulis angka 0 dilcd

      End if

     

       

      

      Wait 4        'tunggu hingga 2 detik

      Loop   'Akhir dari perulangan Do...Loop

End 'mengakhiri program

Tutorial Bascom Pembacaan Keypad dengan Mikrokontroler 2015-09-16T16:39:00+07:00 Rating: 4.5 Diposkan Oleh: Dedy Fermana