Zufallszahl mit 7-Segment anzeigen lassen

[XIDOS]

Hallo Leute
Ich hoffe ihr könnt mir helfen!
Ich möchte in V-Basic eine Rechengestützte Maschine bauen, die mir im Zeittakt von einer Sekunde je eine Zufallszahl zwischen 0-9 bildet und mir diese über eine 7-Segment anzeige ausgibt. (über ioBox). Dies soll mit Start und Stop in gang gebracht werden.
Hab schon mal angefangen nur bildet er keine zufallszahl sondern läuft von 0-9 durch:

Code
Option Explicit
Dim Zahl As Integer
Dim Zustand As Integer
Dim x1 As ioBox

Private Sub cmd_cancel_Click()
End
End Sub

Private Sub cmd_start_Click()
tmr_takt.Enabled = True
End Sub

Private Sub cmd_stop_Click()
tmr_takt.Enabled = False
End Sub

Private Sub Form_Load()
Set x1 = New ioBox
x1.ComPort 1
x1.BitD 0, 1
x1.BitD 1, 1
x1.BitD 2, 1
x1.BitD 3, 1
x1.BitD 4, 1
x1.BitD 5, 1
x1.BitD 6, 0
x1.BitD 7, 0

Zahl = 0
tmr_takt.Enabled = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set x1 = Nothing
End Sub

Private Sub tmr_takt_Timer()
Zahl = Zahl + 1
Zustand = Zahl Mod 10
Select Case Zustand
Case 0
x1.BitD 0, 1
x1.BitD 1, 1
x1.BitD 2, 1
x1.BitD 3, 1
x1.BitD 4, 1
x1.BitD 5, 1
x1.BitD 6, 0
x1.BitD 7, 0

Case 1
x1.BitD 0, 0
x1.BitD 1, 1
x1.BitD 2, 1
x1.BitD 3, 0
x1.BitD 4, 0
x1.BitD 5, 0
x1.BitD 6, 0
x1.BitD 7, 0
Case 2
x1.BitD 0, 1
x1.BitD 1, 1
x1.BitD 2, 0
x1.BitD 3, 1
x1.BitD 4, 1
x1.BitD 5, 0
x1.BitD 6, 1
x1.BitD 7, 0

Case 3
x1.BitD 0, 1
x1.BitD 1, 1
x1.BitD 2, 1
x1.BitD 3, 1
x1.BitD 4, 0
x1.BitD 5, 0
x1.BitD 6, 1
x1.BitD 7, 0

End Select
End Sub
Code Ende

Danke schonmal im vorraus

 

[Thomas Kuse]

Die beiden Befehle RND und RANDOMIZE TIMER solltest Du Dir mal näher anschauen.

[edit]
War auch schon mal hier im Forum unter http://www.tutorials.de/forum/showthread.php?postid=62307&highlight=rnd
[/edit]