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

[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