Bamboocha_10
Mitglied
Hallo,
also, ich möchte eine Losbox für eine Tombola programmieren. Es sind hier 5 Preise und 10 Lose. Jede Nummer darf nur einmal gezogen werden. Mit Button 1 starte ich das Losen und mit Button 2 soll immer die nächste Nummer erscheinen.
Bisher kann ich auf Button 1 klicken und es erscheint eine Zahl. Klicke ich erneut, kann jedoch die geliche Zahl wieder gezogen werden
Frage 1: Wie schaffe ich es, dass ich Button 2 einbaue, der die Schleife nicht verlässt und sich somit bereits gezogene Zahlen merkt?
Frage 2: Kann ich das Programm als Exe oder ähnliches ablegen, dass es auch auf einem Rechner ohne VB läuft?
Hier der Code:
Vielen Dank schon mal
also, ich möchte eine Losbox für eine Tombola programmieren. Es sind hier 5 Preise und 10 Lose. Jede Nummer darf nur einmal gezogen werden. Mit Button 1 starte ich das Losen und mit Button 2 soll immer die nächste Nummer erscheinen.
Bisher kann ich auf Button 1 klicken und es erscheint eine Zahl. Klicke ich erneut, kann jedoch die geliche Zahl wieder gezogen werden
Frage 1: Wie schaffe ich es, dass ich Button 2 einbaue, der die Schleife nicht verlässt und sich somit bereits gezogene Zahlen merkt?
Frage 2: Kann ich das Programm als Exe oder ähnliches ablegen, dass es auch auf einem Rechner ohne VB läuft?
Hier der Code:
Code:
Private Sub CommandButton1_Click()
'Array für die gezogenen Lose
'Anzahl = Anzahl der Preise
Dim Preise(5) As Integer
'Sicherstellen, daß bei jedem Start wirklich
'eine neue Zufallszahl generiert wird
Randomize -Timer
'Insgesamt 5 Zufallszahlen ermitteln (denn Anzahl der Preise
Dim Ziehung As Integer
Dim i As Integer
Dim Result As Boolean
Dim Zahl As Integer
Ziehung = 0
While Ziehung < 5
Ziehung = Ziehung + 1
Do
'Zufallszahl 1 bis Anzahl der Lose
Zahl = Int(10 * Rnd + 1)
'Prüfen, ob Zufallszahl bereits "gezogen"
Result = True
For i = 1 To Ziehung - 1
If Preise(i) = Zahl Then
Result = False: Exit For
End If
Next i
Loop Until Result = True
Preise(Ziehung) = Zahl
TextBox1.Text = Preise(Ziehung)
Wend
End Sub
Vielen Dank schon mal