Do
gettestcar
loop
'
'
sub drawkeypad p
drawkeypad1 p
'drawkeypad2 p
end sub
'
Sub GetTestCar caption As String, var As Float
Const bw = MM.HRes\4, bh = MM.VRes\5
' these are the captions on each key
Local String cap(15) = ("7","8","9","","4","5","6","","1","2","3","Can","X","0","Del","ENT")
Local Integer key, keydwn
Local Integer x, y, xt, yellowt, btn
Local String s
CarNo$ = "Car No: "
Penalty$ = "Penalty: "
If QQQ = 1 Then Ident$ = CarNo$
If QQQ = 2 Then Ident$ = Penalty$
CLS 0
If QQQ = 0 Then
Text 0, 9, caption + "Test No: ", , 2, 2, RGB(yellow), 0
Else
Text 0, 10, caption + Ident$, , 2, 2, RGB(yellow), 0
End If
' draw the entire keypad (99 means draw them all)
DrawKeypad 99
Do
If Touch(x) <> -1 And Not keydwn Then
' if the panel is touched
keydwn = 1
xt = Touch(x)
yellowt = Touch(y)
btn = 1
For y = bh To MM.VRes - bh Step bh
For x = 0 To MM.HRes - bw Step bw
If cap(btn-1) <> "" And xt > x And xt < x+bw And yellowt > y And yellowt < y+bh Then
x = 1000 : y = 1000 ' exit both loops
Else
btn = btn + 1
EndIf
Next x
Next y
' continue looping if the touch was not on a key
If btn > 16 Then Continue do
' special handling for the +, - and . keys
If (btn = 4 Or btn = 8) And s <> "" Then Continue do
'If btn = 13 And Instr(s, "X") > 0 Then Continue do
' draw the key as pressed
DrawKeypad btn
' special processing for Can (cancel), Del and Ent (enter)
If btn = 12 Or btn = 16 Then Continue do
If btn = 15 Then
If s <> "" Then s = Left$(s, Len(s) - 1)
Else
s = s + cap(btn - 1) ' add the key to our entered string
EndIf
Text Len(caption + " : ") * 16, 8, s + " ", , 2, 2, RGB(yellow), 0
EndIf
' if a key is currently down check if it has been released
If Touch(x) = -1 And keydwn Then
' yes, the key has been released
' draw the key as normal (ie, not pressed)
keydwn = 0
DrawKeypad -btn
' if ENT return the value
If QQQ = 0 Then
If btn = 16 And s <> "" Then TestNo = Val(s)
End If
If QQQ = 1 Then
If btn = 16 And s <> "" Then
Car(num) = Val(s)
cart$ = s
End If
End If
If QQQ = 2 Then
If btn = 16 And s <> "" Then
Penaltyst(num) = Val(s)
End If
End If
' if Can just return
If btn = 12 Or btn = 16 Then Exit Sub
EndIf
Loop
End Sub


'
'This is the sub out of version 15 and will not work under version 5.3 it freezes
'Yet it works fine under version 5.2
Sub DrawKeypad1 btndwn As Integer
Const bw = MM.HRes\4, bh = MM.VRes\5
Local String cap(15) = ("7","8","9","","4","5","6","","1","2","3","Can","X","0","Del","ENt")
Local Integer x, y, btn
btn = 1
For y = bh To MM.VRes - bh Step bh
For x = 0 To MM.HRes - bw Step bw
If cap(btn - 1) <> "" Then
If btn = btndwn Then
' draw the key as touched (ie, reverse video)
RBox x + 5, y + 5, bw - 5, bh - 5, , RGB(cyan), RGB(cyan)
Text x + bw/2 + 4, y + bh/2 + 6, cap(btn - 1), CM, 2,2, 0, RGB(cyan)
ElseIf -btn = btndwn Or btndwn = 99 Then
' draw the key as normal
RBox x + 5, y + 5, bw - 5, bh - 5, , RGB(cyan), 0
Text x + bw/2, y + bh/2 + 2, cap(btn - 1), CM, 2,2, RGB(cyan), 0
EndIf
EndIf
btn = btn + 1
Next x
Next y
End Sub
'
'Font changed but no scaling
Sub DrawKeypad2 btndwn As Integer
Const bw = MM.HRes\4, bh = MM.VRes\5
Local String cap(15) = ("7","8","9","","4","5","6","","1","2","3","Can","X","0","Del","ENt")
Local Integer x, y, btn
btn = 1
For y = bh To MM.VRes - bh Step bh
For x = 0 To MM.HRes - bw Step bw
If cap(btn - 1) <> "" Then
If btn = btndwn Then
' draw the key as touched (ie, reverse video)
RBox x + 5, y + 5, bw - 5, bh - 5, , RGB(cyan), RGB(cyan)
Text x + bw/2 + 4, y + bh/2 + 6, cap(btn - 1), CM, 5,1, 0, RGB(cyan)
ElseIf -btn = btndwn Or btndwn = 99 Then
' draw the key as normal
RBox x + 5, y + 5, bw - 5, bh - 5, , RGB(cyan), 0
Text x + bw/2, y + bh/2 + 2, cap(btn - 1), CM, 5,1, RGB(cyan), 0
EndIf
EndIf
btn = btn + 1
Next x
Next y
End Sub