XProfan

cls
var orangeLEDBild&=create("hPic",-1,"orange.png")
var gruenLEDBild&=create("hPic",-1,"grün.png")
var cyanLEDBild&=create("hPic",-1,"cyan.png")
var ausLEDBild&=create("hPic",-1,"aus.png")
//
var orangeLEDBitmap&=create("bitmap",%hWnd,orangeLEDBild&,30,30)
var gruenLEDBitmap&=create("bitmap",%hWnd,gruenLEDBild&,50,30)
var cyanLEDBitmap&=create("bitmap",%hWnd,cyanLEDBild&,70,30)

while 1

    waitinput 50

    if rnd(2)

        sendMessage(orangeLEDBitmap&,370,0,orangeLEDBild&)

    else

        sendMessage(orangeLEDBitmap&,370,0,ausLEDBild&)

    endif

    if rnd(2)

        sendMessage(gruenLEDBitmap&,370,0,gruenLEDBild&)

    else

        sendMessage(gruenLEDBitmap&,370,0,ausLEDBild&)

    endif

    if rnd(2)

        sendMessage(cyanLEDBitmap&,370,0,cyanLEDBild&)

    else

        sendMessage(cyanLEDBitmap&,370,0,ausLEDBild&)

    endif

wend

end