hmm so schaut das ganze progarmm aus:
Code:
Declare Sub Anzeige1()
Declare Sub Anzeige2()
Declare Sub Anzeige3()
Declare Sub Anzeige4()
Declare Sub Anzeige5()
Declare Sub Anzeige6()
Declare Sub Zuruecksetzen()
Declare Function Zufall() As Byte
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 9600


Dim I As Integer
Dim Zufallszahl As Integer
Config Porta = Output

Do
Waitms 2000

Zufallszahl = Rnd(6)

Function Zufall() As Byte
Select Case Zufallszahl
   Case 0
      Call Anzeige1
   Case 1
      Call Anzeige2
   Case 2
      Call Anzeige3
   Case 3
      Call Anzeige4
   Case 4
      Call Anzeige5
   Case 5
      Call Anzeige6
End Select
End Function

Sub Anzeige1()
Porta.3 = 1
Call Zuruecksetzen
End Sub

Sub Anzeige2()
Porta.0 = 1
Porta.7 = 1
Call Zuruecksetzen
End Sub

Sub Anzeige3()
Porta.0 = 1
Porta.3 = 1
Porta.7 = 1
Call Zuruecksetzen
End Sub

Sub Anzeige4()
Porta.0 = 1
Porta.2 = 1
Porta.4 = 1
Porta.7 = 1
Call Zuruecksetzen
End Sub

Sub Anzeige5()

Porta.0 = 1
Porta.2 = 1
Porta.3 = 1
Porta.4 = 1
Porta.7 = 1
Call Zuruecksetzen
End Sub

Sub Anzeige6()
Porta.0 = 1
Porta.1 = 1
Porta.2 = 1
Porta.4 = 1
Porta.5 = 1
Porta.7 = 1
Call Zuruecksetzen
End Sub

Sub Zuruecksetzen()
Waitms 2000
For I = 0 To 7
Porta.i = 0
Next I
End Sub

Loop
hab ja eine do..loop schleife in dem das rnd steht aber ttrotzdem kommt immer die gleiche Zahl, keine Zahlenfolge.