2
« on: July 19, 2011, 02:46:50 AM »
I have downloaded your progam(HMI65to80) which i use to enter data from the keypad,and comes with the Installation CD.When i try to enter more than 10 digits it does not accept the enterred number giving me an error(some absurd number).I tried changing the lenght of Z in the custom function of the program but it does`nt help.The custom function is as below
' This function handles the keypad scanning and make sure that a key must be
' pressed and released before the next key can accepted. It reserves the use
' of the Z$ string variable so you should avoid modifying Z$ in other part of
' the program.
'============================================================================
DM[900] = INPUT[2] ' Get data from input #17-32
IF DM[900]=0
Z = -1 ' no key pressed
RETURN
ENDIF
IF Z >= 0 ' previous key has been pressed.
IF TESTBIT(DM[900],Z) RETURN ' previous key not yet released
ENDIF
ENDIF
FOR Z = 0 to 11 ' scan 0 to 9 and <- key
IF TESTBIT(DM[900],Z) GOTO @10: ENDIF
NEXT
@10 IF Z = 10 ' <Del> key has been pressed.
IF LEN(Z$)>0
Z$ = MID$(Z$,1,LEN(Z$)-1)
ENDIF
ELSE ' Check if numeric keys 0-9 has been pressed.
IF Z < 10 AND LEN(Z$) < 10 ' not more than 10 digits
Z$ = Z$+STR$(Z)
ENDIF
ENDIF
Show Posts