Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

nochmal zufallsgenerator
Autor: Boris Huemer
Datum: 29.01.02 10:25
hi leute. das beispiel mit den lottozahlen ist zwar eigentlich genau das was ich suche, ich schaffs aber nicht es so umzuschreiben, dass es in meine applikation passt! schließlich soll es nicht zufallszahlen generieren, sonder zufällig 5 artikel aus meiner list1 auswählen! hab echt keine ahnung wie ich das anstellen soll. bitte helft mir noch mal weiter.*g* hier ist der code: 'Array für die gezogenen Lottozahlen Dim Lottozahl(6) As Integer 'Sicherstellen, daß bei jedem Start wirklich 'eine neue Zufallszahl generiert wird Randomize -Timer 'Insgesamt 6 Zufallszahlen ermitteln Dim Ziehung As Integer Dim i As Integer Dim Result As Boolean Dim Zahl As Integer Ziehung = 0 While Ziehung < 6 Ziehung = Ziehung + 1 Do 'Zufallszahl 1..49 Zahl = Int(49 * Rnd + 1) 'Prüfen, ob Zufallszahl bereits "gezogen" Result = True For i = 1 To Ziehung - 1 If Lottozahl(i) = Zahl Then Result = False: Exit For End If Next i Loop Until Result = True Lottozahl(Ziehung) = Zahl Wend 'Lottozahlen anzeigen Dim Msg As String Msg = "Die Lottozahlen lauten: " For i = 1 To 6 Msg = Msg & Format$(Lottozahl(i)) & " " Next i MsgBox Msg das ist der code aus dem beispiel mit den lottozahlen. erstens, soll der zufallsgenerator die ergebnisse nicht in einer msgbox ausgeben, sonder in meine list2 kopieren, (das schaff ich allerdings *g*), und außerdem (das größere Problem) soll er nicht irgendwelche zahlen auswählen, sonder eben artikel aus meiner list1. hoffe ihr könnt mir da helfen. boris.

nochmal zufallsgenerator	40	Boris Huemer	29.01.02 10:25
Re: nochmal zufallsgenerator	174	Dieter	29.01.02 10:38
danke (-:	23	Boris Huemer	29.01.02 10:46

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen