Fun-Soft - Programmierforum

Autor

Thread - Seiten: > 1 <

000
30.11.2004, 16:15 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

Hi!
Ich habe ein kleines Problem... Undzwar will ich mit einer For..Next... Schleife, 20 Zuffalszahlen printen... Das problem ist, die zahlen sollen zwischen 1 und 20 sein... also 20 zahlen.. und nichnur:
1
2
3
4
5
...
sondern
1
5
3
8
10
...
Soweit binich:

Visual Basic:

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 20
Print Rnd(i)
Next i
End Sub

das prob ist, wennich folgendes mache:

Visual Basic:

Private Sub Form_Load()
Dim i As Integer
For i = 1 to 20
i = Rnd(20)
Print i
Next i
End Sub

Dann kackt VB ab O.o

Kann mir da jemand weiterhelfen???
--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

001
30.11.2004, 19:40 Uhr
Bruder Leif
dances with systems
(Operator)

Moin!

Wenn Du der Schleifenvariable i in jedem Durchlauf einen neuen Wert zwischen 0 und 1 zuweist, kann i nie den Wert 20 erreichen, und die Schleife endet nie. Benutz eine andere Variable, dann klappts.
--
Mit 40 Fieber sitzt man nicht mehr vor dem PC.
Man liegt im Bett.
Mit dem Notebook.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

002
06.12.2004, 15:49 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

sagen wir ich hab nen multiline textfeld. dann machich sowas:

Visual Basic:

Dim i As Integer
Dim sI As String
For i = 1 To 20
sI = Rnd(i)
Text1.Text = Text1.Text + vbCrLf + sI
Next i

ok, dann sagter aber sowas:

0,7055475
0,533424
0,5795186
0,2895625
0,301948
0,7747401
1,401764E-02
0,7607236
0,81449
0,7090379
4,535276E-02
0,4140327
0,8626193
0,79048
0,3735362
0,9619532
0,8714458
5,623686E-02
0,9495566
0,3640187

der soll 20 zahlen machen, ABER sollen die so aussehen: 1 - 20 und nich 5,623686E-02 (warum ein E dabei ist, ist mir sowieso ein rätsel)
das random ist da weil die 20 zahlen nich alle in der reihenfolge sein sollen.
--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

003
06.12.2004, 15:57 Uhr
Bruder Leif
dances with systems
(Operator)

Moin!

Rnd() gibt einen Wert zwischen 0 einschließlich und 1 ausschließlich zurück. Den mußt Du nur noch mit 20 multiplizieren, 1 addieren (damits 1 bis 20 wird, und nicht 0 bis 19), und das ganze in ein Int() packen, dann hast Du Zahlen zwischen 1 und 20.
--
Mit 40 Fieber sitzt man nicht mehr vor dem PC.
Man liegt im Bett.
Mit dem Notebook.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

004
06.12.2004, 16:17 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

hähä, und wie geht das?

' sorry hab mit algorithmen nochnich soviel am hut gehabt
--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

005
06.12.2004, 16:49 Uhr
Bruder Leif
dances with systems
(Operator)

Zahl = Int(Rnd()*20+1)
--
Mit 40 Fieber sitzt man nicht mehr vor dem PC.
Man liegt im Bett.
Mit dem Notebook.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

006
06.12.2004, 20:41 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

hmm oki danke, problem gelöst, also war alles quatsch mit der While, Next schleife ^^

dankeeeee
--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

Seiten: > 1 < [ Visual Basic 6.0 / VBA ]

ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: