Contoh program Keypad bascom AVR

$regfile = "m8535.dat"

$crystal = 8000000

' ------------ lcd ------------------

Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.2 , Rs = Portc.0

Config Lcd = 16 * 2

Cls

Locate 1 , 4 Lcd "TEKAN KEYPAD"

Wait 5

Dim Ulang As Byte

Dim Keypad As Byte

'Declare Sub Ambil_data_keypad

Config Kbd = Portb , Debounce = 200

'If Ulang = 49 Then Ulang = 1

'If Ulang = 50 Then Ulang = 2

'If Ulang = 51 Then Ulang = 3

'If Ulang = 52 Then Ulang = 4

'If Ulang = 53 Then Ulang = 5

'If Ulang = 54 Then Ulang = 6

'If Ulang = 55 Then Ulang = 7

'If Ulang = 56 Then Ulang = 8

'If Ulang = 57 Then Ulang = 9

Do

Keypad = Getkbd()

If Keypad < 16 Then

Ulang = Lookup(keypad , Tabel)

Print Ulang

Cls

Lcd Chr(ulang)

Lcd "ulang=" ;

Ulang

End If

Loop

End

Tabel: 'Data &H2A , &H30 , &H23 , &H00 , &H31 , &H32 , &H33 , &H00 , &H34 , &H35 , &H36 , &H00 'Data &H37 , &H38 , &H39 , &H00 Data &H31 , &H34 , &H37 , &H2A , &H32 , &H35 , &H38 , &H30 , &H33 , &H36 , &H39 , &H23 , &H41 , &H42 , &H43 , &H44 'Data &H23 , &H30 , &H2A , &H39 , &H38 , &H37 , &H36 , &H35 , &H34 , &H33 , &H32 , &H31 'Data &H23 , &H39 , &H36 , &H33 , &H30 , &H38 , &H35 , &H32 , &H2A , &H37 , &H34 , &H31

Program diatas hanya untuk ngetes keypad contoh ketika kita tekan tombol 1 maka akan muncul angka 1 keypad yg digunakan adalah matrik keypad 4x4 klo mau make keypad 4x3 juga bisa asalkan diubah aja pd bagian diberi warna merah jadi 12 Terus pada tabel klo ngak urut pas mencet keypad sebaiknya diatur pada bagian yg dikasih warna biru sbgai contoh 1 2 3 4 5 6 7 8 9 maka tinggal diganti heksanya aja dari atas kebawah trus keatas lagi jadi 1 4 7 2 5 8 3 6 9 nah selamat mencoba buat rekan-rekan

Contoh Lain Program Keypad AVR Bascom :
Keypad AVR BasCom