Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » Visual Basic 6.0 / VBA » 20 Zuffalszahlen zwischen 0 und 20 printen???

Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

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: