Cara Memprogram Keypad 3x4 dengan Tampilan LCD, Pemrograman Bascom AVR Atmega8535 di Proteus.

Keypad ini sangat banyak penggunaannya dalam kehidupan sehari-hari, mulai dari tombol sebuah HandPhone, tombol kalkulator hingga bisa menjadi sebuah kombinasi Password. 

Postingan kali ini adalah bagaimana cara mengotrol atau menampilkan angka-angka pada keypad dan ditampilkan dalam LCD. Kali ini saya akan berbagi bahasa pemrogramannya, bagi teman semua yang suka Proteus silahkan langsung dipraktekin ya.

JIKA TEMAN SEMUA INGIN MELIHAT VIDIO NYA, SILAHKAN DILIHAT DI YT SAYA BATAK sarjana.

 ' Nama   : Jetro Rajagukguk

' HP     : 0812 1839 0689

' Hobby  : Elektronika

$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

Ddra = &B1110000

Porta = &B1111111

Lcd "TEKAN TOMBOL!"

Lowerline

Lcd "Tombol="

Do

Porta = &B1101111

Waitms 5

If Pina.0 = 0 Then

Locate 2 , 8

Lcd "1"

Elseif Pina.1 = 0 Then

Locate 2 , 8

Lcd "4"

Elseif Pina.2 = 0 Then

Locate 2 , 8

Lcd "7"

Elseif Pina.3 = 0 Then

Locate 2 , 8

Lcd "*"

End If

Porta = &B1011111

Waitms 5

If Pina.0 = 0 Then

Locate 2 , 8

Lcd "2"

Elseif Pina.1 = 0 Then

Locate 2 , 8

Lcd "5"

Elseif Pina.2 = 0 Then

Locate 2 , 8

Lcd "8"

Elseif Pina.3 = 0 Then

Locate 2 , 8

Lcd "0"

End If

Porta = &B0111111

Waitms 5

If Pina.0 = 0 Then

Locate 2 , 8

Lcd "3"

Elseif Pina.1 = 0 Then

Locate 2 , 8

Lcd "6"

Elseif Pina.2 = 0 Then

Locate 2 , 8

Lcd "9"

Elseif Pina.3 = 0 Then

Locate 2 , 8

Lcd "#"

End If

Loop

End