' NumberBox Bug Demo
' MMBasic 5.04.05
' PM MZ144 Backpack with 7" LCD
cls
const LED1 = 1
const SWITCH1 = 2
const NUMBOX1 = 3
dim ontime

GUI led LED1,"Heartbeat",50,200,10,RGB(red)
print "Test showing reading and writing of GUI LED CTRLVAL"
print "Press any key to go to next test"
do
input "Enter on time of LED in seconds ",ontime
' here we write and read the CtrlVal for GUI LED
CtrlVal(LED1) = ontime * 1000 ' convert to mS
if ctrlval(LED1) => 1 then
print "LED is ON"
endif
pause (ontime * 1000) * 2
if ctrlval(LED1) = 0 then
print "LED is OFF"
endif
if inkey$ <> "" then ' any key to exit
exit DO
endif
loop
print "Test to show GUI SWITCH turning GUI LED On/Off"
print "This test shows TOUCH does not cause issues with GUI LED"
print "Press any key to continue to next test"
gui switch SWITCH1,"On/Off",400,200,80,80,rgb(yellow),rgb(green)
' here we read switch CtrlVal and write to LED CtrlVal
' with no ill effects
Do
If CtrlVal(SWITCH1)=0 Then 'test the staus of the switch
CtrlVal(LED1) = 0 ' if switch OFF, set led OFF
Elseif ctrlval(SWITCH1) = 1 then ' else if switch ON,
CtrlVal(LED1) = 1 ' set led ON
EndIf
if inkey$ <> "" Then ' any key to exit
exit DO
endif
pause 100
Loop

print "GUI LED switching ON/OFF with SWITCH"
print "- touching the SWITCH has no negative impact on the program"
print " other than switching the LED On/Off"
print "Touching the NUMBERBOX will crash the program"
print " Try it and see!!! "
GUI NUMBERbox NUMBOX1,1,1,100,100,RGB(white),RGB(blue)
Do
If CtrlVal(SWITCH1)=0 Then 'test the staus of the switch
CtrlVal(LED1) = 0 ' if switch OFF, set led OFF
Elseif ctrlval(SWITCH1) = 1 then ' else if switch ON,
CtrlVal(LED1) = 1 ' set led ON
EndIf
if inkey$ <> "" Then ' any key to exit
exit DO
endif
pause 100
Loop
' it would appear that touching a NUMBERBOX or a TEXTBOX changes the
' variable type of CtrlVal from float to string for all further uses
' of CtrlVal rather than just for these two.