Der Nachfolger des WDR-Computerclub mit Wolfgang Back und Wolfgang Rudolph - ...und immer ein Bit übrigbehalten!


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Re: Flackerlicht Kategorie: Open-Micro/Open-Mini/Open-Midi/Open-Macro/Open-Maxi (von Dietmar, Homepage - 2.01.2013 16:13)
 Als Antwort auf Flackerlicht von SMAX - 1.01.2013 17:57
Dietmar nutzt:  Open-Micro, Open-Mini, Open-Midi, Open-Macro, Open-Mini M-Unit, Open-Mini Station, sonstige
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

Bisherige Antworten:

Re: Flackerlicht (von Robert02 (Robertnullzwo) - 21.05.2013 22:29)