GPIO and PWM with GUI
Posted: Thu Sep 03, 2015 2:33 pm
Code: Select all
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 "Exit " [TestExit]
wait
[SetThePin]
print "Pin Number"
print pinNo
print "Pin Stat"
print pinStat
po pinNo pinStat
wait
[SetThePinPWM]
print "Pin Number"
print pinNo
print "Pin Stat"
print pinStat
pwo pinNo pinStat
wait
[TestExit]
end