Complete Keypad Example

[RAYMON]

I find the T.Jackson program very well, but I need a routine or a help for a program, to make a spy, to see example thank you

Col_1 VAR PORTB.4
Col_2 VAR PORTB.5
Col_3 VAR PORTB.6

Row_1 VAR PORTB.3
Row_2 VAR PORTB.2
Row_3 VAR PORTB.1
Row_4 VAR PORTB.0



Col_1/ Row_1 = 1
Col_1/ Row_2 = 4
Col_1/ Row_3 = 7
Col_1/ Row_4 = *

Col_2/ Row_1 = 2
Col_2/ Row_2 = 5
Col_2/ Row_3 = 8
Col_2/ Row_4 = 0

Col_3/ Row_1 = 3
Col_3/ Row_2 = 6
Col_3/ Row_3 = 9
Col_3/ Row_4 = #

CASE 1
Col_1 = 0
Row_1 = 0
Row_2 = 0
Row_3 = 0
Row_4 = 0


'// 1 Key
IF Row_1 = 0 THEN
IF Allow_Key = 0 THEN
Key_Press = 1
Allow_Key = 1
ENDIF
ENDIF
'// 4 Key
IF Row_2 = 0 THEN
IF Allow_Key = 0 THEN
Key_Press = 4
Allow_Key = 1
ENDIF
ENDIF
'// 7 Key
IF Row_3 = 0 THEN
IF Allow_Key = 0 THEN
Key_Press = 7
Allow_Key = 1
ENDIF
ENDIF
'// * Key
IF Row_4 = 0 THEN
IF Allow_Key = 0 THEN
Key_Press = 42
Allow_Key = 1
ENDIF
ENDIF

Scan_Col = 0

http://www.electroniquepratique.com/...idMg=44&id=523

Mini espion pour clavier de PC