source code ที่ผมใช้เป็นแบบนี้
KEY VAR BITE
NUM_INDEX VAR BITE
DENINE VAR BITE
PASSWORD DATA "1111"
DIRL=$FF ' ให้ p0-7 เป็น เอ้าพุต
DIRC=$0 ' ให้ p8-11 เป็น อินพุต
***************************************************
WAIT_PWD:IF STROBE=1 THEN READ_PWD
PAUSE 10
TIMEOUT=TIMEOUT+1
IF TIMEOUT=1000 THEN RESET
GOTO MAIN
READ_PWD:IF STROBE=1 THEN READ_PWD
TIMEOUT=0
NUM_INDEX=INC
LOOKUP NUM_INDEX,["0 1 2 3 4 5 6 7 8 9 * #],KEY
READ PASSWORD+PWD_COUNT+1
IF CODE=KEY THEN PWD_PASS
DENINE=1
PWD_PASS:IF(PWD_COUNT=4)&(~DENINE) THEN ACCESS_OK
IF PWD_COUNT<4 THEN WAIT_PWD
ผมทำผิดรึป่าวครับ
