Das Open-Control-Projekt - Die Alternative zur C-Control-I


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: led spektakel Kategorie: Programmierung Basic (von Gerhard - 11.04.2005 17:15)
 Als Antwort auf led spektakel von jens - 11.04.2005 16:22

> hi leute
> das ist mein erster beitrag hier, also seid nich zu streng mit mir ;)
> zu meinem "problem"
> im info unterricht haben wir die aufgabe bekommen ein kleines spielchen mit hilfe von ccbasic zu programmieren, die oben led blinken zufällig und man soll die led unter der blinkenden led klicken..dann bekommt man einen punkt.
> so..ich will ja garnich wissen, wie man das programmiert, nur irgendwie hab ich gerad nen blackout, ich hab bis jetzt "nur" das zufällige aufblinken der leds geschafft, ich möchte jedoch, dass nach 10 aufgeblinkten leds das "spiel" beendet werden soll und das bekomm ich nich hin, das teil blinkt einfach weiter vor sich hin ;)
>
> hier ist der quelltext..
> DEFINE zahl BYTE
> DEFINE runde BYTE
> DEFINE led1 PORT[1]
> DEFINE led2 PORT[2]
> DEFINE led3 PORT[3]
> DEFINE led4 PORT[4]
> DEFINE led5 PORT[5]
> DEFINE led6 PORT[6]

> DEFINE led7 PORT[7]
> DEFINE led8 PORT[8]
>
> #blinken
>                 RANDOMIZE zahl
>                 RANDOMIZE TIMER
>                 zahl = RAND
>                 zahl = zahl MOD 8
>                
>        FOR runde = 1 TO 10
>        IF runde > 10 THEN GOTO ende ELSE GOSUB leds
>        PAUSE 30
>        GOTO blinken
>        NEXT
>
> #leds
> IF zahl = 0 THEN led1 = ON ELSE led1 = OFF
> IF zahl = 1 THEN led2 = ON ELSE led2 = OFF
> IF zahl = 2 THEN led3 = ON ELSE led3 = OFF
> IF zahl = 3 THEN led4 = ON ELSE led4 = OFF
> IF zahl = 4 THEN led5 = ON ELSE led5 = OFF
> IF zahl = 5 THEN led6 = ON ELSE led6 = OFF
> IF zahl = 6 THEN led7 = ON ELSE led7 = OFF
> IF zahl = 7 THEN led8 = ON ELSE led8 = OFF
> RETURN
>
> #ende
> END
>
> ich hoffe auf hilfe...danke schonmal
>
>
> mfg
> jens
>
>

hallo jens,
ändere mal das U-pro #blinken wie folgt:


#blinken
      FOR runde = 1 TO 10
        RANDOMIZE zahl
        RANDOMIZE TIMER
        zahl = RAND
        zahl = zahl MOD 8
               
        GOSUB leds
        PAUSE 30
       NEXT

goto ende


mfg Gerhard

 Antwort schreiben

Bisherige Antworten: