cls
button "mariano" ,[mariano]
button "stefano" ,[stefano]
wait
[mariano]
io(po,16,0)
wait
[stefano]
io(po,16,1)
wait
-----------------------------------------------------------------------
cls
button "mariano" [mariano]
button "stefano" [stefano]
wait
[mariano]
po 1 0
po 2 0
po 3 0
wait
[stefano]
po 1 1
po 2 1
po 3 1
wait
DEFAULT1.BAS
cls
button "test04" [test04]
button "test05" [test05]
button "test12" [test12]
button "test13" [test13]
button "test14" [test14]
print "Test"
print ""
button "open" [open]
button "close" [close]
button "flash" [flash]
wait
[test04]
po 4 0
delay 1000
po 4 1
wait
[test05]
po 5 0
delay 1000
po 5 1
wait
[test12]
po 12 0
delay 1000
po 12 1
wait
[test13]
po 13 0
delay 1000
po 13 1
wait
[test14]
po 14 0
delay 1000
po 14 1
wait
[open]
po 5 1
wait
[close]
po 5 0
wait
[flash]
For x = 1 to 20
po 5 1
delay 30
po 5 0
delay 30
next x
delay 500
For x = 1 to 20
po 5 1
delay 30
po 5 0
delay 30
next x
delay 500
For x = 1 to 20
po 5 1
delay 30
po 5 0
delay 30
next x
wait
[TestExit]
end
DEFAULT.BAS
cls
let pinNo = 0
let pinStat = 0
print "Pin Number"
textbox pinNo
print "Pin Stat"
textbox pinStat
button "Set Pin" [SetThePin]
button "Set Pin PWM" [SetThePinPWM]
button "Set Servo" [SetThePinServo]
button "Exit " [TestExit]
print ""
button "set" [testset]
button "reset" [testreset]
print ""
button "pwon" [pwon]
button "pwoff" [pwoff]
print ""
button "test14" [test14]
button "test12" [test12]
wait
[SetThePin]
po pinNo pinStat
wait
[SetThePinPWM]
pwo pinNo pinStat
wait
[testset]
po 1 0
wait
[testreset]
po 1 1
wait
[pwon]
For x = 500 to 1024
pwo 1 x
delay 1
Next x
wait
[pwoff]
For x = 500 to 1024
pwo 1 1024-x
delay 1
Next x
wait
[test1]
po 2 1
delay 1000
po 2 0
delay 1000
po 2 1
delay 1000
po 2 0
delay 1000
po 2 1
delay 1000
wait
[test2]
po 2 0
wait
[test12]
po 12 0
delay 1000
po 12 1
wait
[test14]
po 14 0
delay 1000
po 14 1
wait
[SetThePinServo]
servo pinNo pinStat
wait
[TestExit]
end