Aplikasi Input output Membaca keypad 3x4 menggunakan mikrokontroler dengan bascom dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS

Aplikasi Input output  Membaca keypad 3x4 menggunakan  mikrokontroler dengan bascom dan at mega 8535

Skema rangkaian Aplikasi Input output  Membaca keypad 3x4 menggunakan  mikrokontroler dengan bascom dan at mega 8535

Source code Aplikasi Input output  Membaca keypad 3x4 menggunakan  mikrokontroler dengan bascom dan at mega 8535

$regfile = "m8535.dat"

$crystal = 16000000

Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.2 , Db4 = Portc.4

Config Lcdpin = Pin , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7

Config Lcd = 16 * 2

Cursor Off

Cls

Lcd "Tombol="

Config KBD = Porta

Dim keypad as Byte

Do

keypad = getkbd()

If keypad <> 16 then

Gosub Display_lcd

waitms 350

End IF

Loop

End

Display_lcd:

Locate 1 , 8

Select case keypad

Case 19 : Lcd "0"

case 0 : lcd "1"

Case 4 : Lcd "2"

Case 8 : Lcd "3"

Case 1 : Lcd "4"

case 5 : lcd "5"

Case 9 : Lcd "6"

Case 2 : Lcd "7"

Case 18 : Lcd "8"

case 10 : lcd "9"

Case 3 : Lcd "*"

Case 11 : Lcd "#"

end SELECT

Return

End