Contoh program Keypad bascom AVR

Pada saat ini mungkin telah banyak orang-orang yang lebih pintar dari saya dalam bhs pemograman namun saya cuma mau share aja contoh program klo ad yg salah tolong dibenerin


$regfile = "m8535.dat"
$crystal = 8000000
Rem ------------ 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