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

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

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

Source code Aplikasi Input output  Membaca keypad 4x4 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="

Ddra = &B00001111

Porta = &B11111111

Do

Porta = &B11111110

If Pina.4 = 0 Then

Locate 1 , 8

Lcd "1"

Elseif Pina.5 = 0 Then

Locate 1 , 8

Lcd "4"

Elseif Pina.6 = 0 Then

Locate 1 , 8

Lcd "7"

Elseif Pina.7 = 0 Then

Locate 1 , 8

Lcd "*"

End If

Porta = &B11111101

If Pina.4 = 0 Then

Locate 1 , 8

Lcd "2"

Elseif Pina.5 = 0 Then

Locate 1 , 8

Lcd "5"

Elseif Pina.6 = 0 Then

Locate 1 , 8

Lcd "8"

Elseif Pina.7 = 0 Then

Locate 1 , 8

Lcd "0"

End If

Porta = &B11111011

If Pina.4 = 0 Then

Locate 1 , 8

Lcd "3"

Elseif Pina.5 = 0 Then

Locate 1 , 8

Lcd "6"

Elseif Pina.6 = 0 Then

Locate 1 , 8

Lcd "9"

Elseif Pina.7 = 0 Then

Locate 1 , 8

Lcd "#"

End If

Porta = &B11110111

If Pina.4 = 0 Then

Locate 1 , 8

Lcd "A"

Elseif Pina.5 = 0 Then

Locate 1 , 8

Lcd "B"

Elseif Pina.6 = 0 Then

Locate 1 , 8

Lcd "C"

Elseif Pina.7 = 0 Then

Locate 1 , 8

Lcd "D"

End If

Loop

End