MyMelon
Member level 2
can you help me my ckt don't run, i don't know if the ckt connection is the problem or the codes
https://imageshack.us/photo/my-images/692/94707034.jpg/
code:
Device 16F877A
Xtal = 20
All_Digital = true
Keypad_Port PORTB
PortB_Pullups true
LCD_DTPin PORTD.4
LCD_RSPin PORTD.2
LCD_ENPin PORTD.3
Print Cls
Dim x As Byte
Dim a As Byte
loop:
x=InKey
a=LookUp x, [1,2,3,255,4,5,6,255,7,8,9,255,"*",0,"#",255,255]
Print At 1,1, "keycode:" , Dec3 x
Print At 2,1, "keylabel:" , Dec3 a
GoTo loop
https://imageshack.us/photo/my-images/692/94707034.jpg/
code:
Device 16F877A
Xtal = 20
All_Digital = true
Keypad_Port PORTB
PortB_Pullups true
LCD_DTPin PORTD.4
LCD_RSPin PORTD.2
LCD_ENPin PORTD.3
Print Cls
Dim x As Byte
Dim a As Byte
loop:
x=InKey
a=LookUp x, [1,2,3,255,4,5,6,255,7,8,9,255,"*",0,"#",255,255]
Print At 1,1, "keycode:" , Dec3 x
Print At 2,1, "keylabel:" , Dec3 a
GoTo loop