Liberty BASIC Community Wiki - LEDDemo

Older Version Newer Version
bshipps64 Feb 22, 2006 - "First created"
== LED Demo ==
A simple demo illustrating the use of graphicboxes to represent state-changing LEDs.
----
[[code format="vbnet"]]
nomainwin

WindowWidth = 150 : WindowHeight = 90

button      #main.bSwitch,  "Switch!", [switch], UL, 10, 12, 60, 25
graphicbox  #main.gbGreen,  100, 10, 17, 17
graphicbox  #main.gbRed,    100, 28, 17, 17

stylebits   #main.gbGreen,  0, _WS_BORDER,0,0
stylebits   #main.gbRed,    0,_WS_BORDER,0,0

open "LEDs" for window_nf as #main
main.isOpen = 1

#main           "trapclose [exit]"
#main.gbGreen   "down; fill buttonface; flush bkSeg; color black"
#main.gbGreen   "backcolor darkgreen; place 8 8; circlefilled 7; flush greenSeg"
#main.gbRed     "down; fill buttonface; flush bkSeg; color black"
#main.gbRed     "backcolor red; place 8 8; circlefilled 7; flush redSeg"

wait

[exit]
    if (main.isOpen) then close #main
end

[switch]
    greenColor$ = word$("dark", abs(state)) + "green"
    redColor$   = word$("dark", abs(not(state))) + "red"
    state       = not(state)

    #main.gbGreen   "delsegment greenSeg; redraw; backcolor "; greenColor$
    #main.gbGreen   "place 8 8; circlefilled 7; flush greenSeg"
    #main.gbRed     "delsegment redSeg; redraw; backcolor "; redColor$
    #main.gbRed     "place 8 8; circlefilled 7; flush redSeg"
wait
[[code]]