Hi,

@ Ratber: Sry ^^ Eigentlich spreche ich nie jemanden direkt an. Schließlich möchte ich die Community erreichen. Ich hoffe du bist nicht zu sehr gekränkt

So hiermal das Programm:

Do
Taste = Tastenabfrage()

If Taste <> 0 Then

Select Case Taste
Case 1
Call Licht
Case 2
Call Musik
Case 3
__rseed = Zeit
Call Zufall
Case 4
__rseed = Zeit
Call Motor
Case 5
Call Test
End Select

End If

Zeit = Zeit + 1
Loop

[...]
Sub Zufall
Config Portc = Output

Do



X = Rnd(6)
Portc.6 = 1
Portc.7 = 1

Portc.x = 0
Waitms 500
Portc.x = 1
Zeit = Zeit + 1
Print X
Loop
End Sub
Die anderen Subs habe ich mal rausgelassen.


MfG