keypad 4X4 dengan bascom atmga 8535

cara membuat keypad 4x4 pada atmga 8535 dengan program bascom
buat program di bascom seperti di bawah ini
====================================================

     'creatip barlianno
       $regfile = "m8535.dat"
$crystal = 11059200

Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.2 , Rs = Portc.0
Config Lcdbus = 4
Config Lcd = 16 * 2
Cursor Off

Config Kbd = Portd , Debounce = 20 , Delay = 5
Dim Keypad As Byte

Cls
Main:
Do
Keypad = Getkbd()
Locate 1 , 1
Lcd "swit barlianno"
Locate 2 , 1
Goto Label_swit
Loop

Label_swit:
Select Case Keypad
Case 0 : Lcd "swit 0 ditekan"
Case 1 : Lcd "swit 1 ditekan"
Case 2 : Lcd "swit 2 ditekan"
Case 3 : Lcd "swit 3 ditekan"
Case 4 : Lcd "swit 4 ditekan"
Case 5 : Lcd "swit 5 ditekan"
Case 6 : Lcd "swit 6 ditekan"
Case 7 : Lcd "swit 7 ditekan"
Case 8 : Lcd "swit 8 ditekan"
Case 9 : Lcd "swit 9 ditekan"
Case 10 : Lcd "swit 10 ditekan"
Case 11 : Lcd "swit 11 ditekan"
Case 12 : Lcd "swit 12 ditekan"
Case 13 : Lcd "swit 13 ditekan"
Case 14 : Lcd "swit 14 ditekan"
Case 15 : Lcd "swit 15 ditekan"

End Select
Goto Main

============================================================

buat sekema di proteus

 penjelasan program
Config Kbd = Portd , Debounce = 20, Delay = 5
untuk mengkonfigurasi fungsi KBD pada portD, dan nilai debouncing sebesar 20 dengan tundaan sebesar 5 milisekon.
fungsi umum Confid KBD dalam BASCOM AVR sebagai berikut :
CONFIG KBD = PORTx , DEBOUNCE = value [, DELAY = value]
PORTx dimana letak port yang digunakan, untuk nilai debounce, default nya sebesar 20, untuk nilai maksimum nya 255,
 Delay, tundaan ini optional, bisa dipakai maupun tidak. parameter yang optional yang menyebabkan fungsi GETKBD() untuk menunggu waktu tertentu saat setelah keypad ditekan


Dim Keypad As Byte , mendeklarasikan variabel Keypad dengan tipe data BYTE.

Keypad = Getkbd() , berfungsi untuk scan keypad matrix dan mengembalikan nilai dari tombol yang ditekan.

Goto Label_swit , untuk melompat ke label tertentu, dalam hal ini melompat ke label Label_swit_tombol: , label Label_tombol
Select Case Keypad, adalah instruksi operasi bersyarat menggunakan SELECT..CASE, yang diakhiri dengan END SELECT .

Goto Main, lompat ke label MAIN



sebagian tulisan di ambil dari sumber http://goes-open.blogspot.com/2012/01/akses-keypad-matrix-4x4-dengan-bascom.html

telah di coba di lab barlianno