![]() ![]() INFO - FAQ - CC2-Forum - CCPro-Forum |
|
Hallo Martin, hier mal eine Variante für die Open-Micro: ' "Flackerlicht" auf Open-Micro ' in OCBASIC 1.09a am 2. Januar 2013 DEFINE leds BYTEPORT[1] DEFINE led0 PORT[1] DEFINE led1 PORT[2] DEFINE led2 PORT[4] DEFINE led3 PORT[5] DEFINE led4 PORT[6] DIM pos BYTE WHILE TRUE bargraph RAND/43 ' Zufallszahlen 0 bis 5 PAUSE 3 WEND END ' led0 bis led4 als Bargraph-Anzeige ' pos: 0 bis 5 PROCEDURE bargraph(pos) leds=OFF IF POS>=1 THEN led0=ON END IF IF POS>=2 THEN led1=ON END IF IF POS>=3 THEN led2=ON END IF IF POS>=4 THEN led3=ON END IF IF POS>=5 THEN led4=ON END IF RETURN END PROCEDURE Viel Spaß und Erfolg mit den OM-Controllern! Dietmar Meine Homepage: http://ccintern.dharlos.de |
Antwort schreiben |