4 Led´s unabhängig per Zufall blinken lassen?

[021aet04]

Ich weiß zwar nicht wie es in Bascom ist, aber bei C ist es egal, da er beides kennt (nicht genau die Befehle, aber auch mit Ein-/Ausgängen).
Wenn es so ist wie in C (AVR Studio mit GCC) ist PINB für Eingänge vom Port B und PORTB Ausgänge vom Port B.

MfG Hannes

[radbruch]

würgs:

Timer_irq:
Timer0 = Timervorgabe

If Mg1time = 0 Then
   If Mg1flag = 1 Then
      Mg1time = 250                                         ' Anzeit
      Mg1 = 1
      Mg1flag = 0
   Else
      Do                                                    ' Auszeit
         Mg1time = Rnd(500)
      Loop Until Mg1time < 500
      Mg1time = Mg1time + 250
      Mg1 = 0
      Mg1flag = 1
   End If
End If
Decr Mg1time

Return

[DanielSan]

Edit: Ah jetzt seh ich erst was du gemacht hast! Du Fuchs

Ok deine Lösung ist zwar "gepfuscht" aber sie funktioniert. Ich denke das Rnd() nicht richtig funktioniert ist ein Bug in Bascom.

Gruß Daniel