/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Rnd?
Fra : nOAz


Dato : 17-08-02 19:59

hvorfor virker min rnd ikke korrekt...
hver gang jeg starter programmet og klikker på knappen
vælger den tallene i samme rækkefølge som sidst...

Private Sub Command1_Click()
R = Int(Rnd * 17)
Label1.Caption = R
End Sub




 
 
preben nielsen (18-08-2002)
Kommentar
Fra : preben nielsen


Dato : 18-08-02 09:47


"nOAz" <n0Az@hotmail.com> skrev i en meddelelse
news:ajm6gh$1ci5u4$1@ID-134837.news.dfncis.de...
> hvorfor virker min rnd ikke korrekt...
> hver gang jeg starter programmet og klikker på knappen
> vælger den tallene i samme rækkefølge som sidst...
>
> Private Sub Command1_Click()
> R = Int(Rnd * 17)
> Label1.Caption = R
> End Sub

Brug Randomize før Rnd(), men ikke før hvert kald af Rnd(). Bare
et enkelt kald af Randomize i din Form_Load eller Sub Main



--
/\ preben nielsen
\/\ prel@post.tele.dk



nOAz (18-08-2002)
Kommentar
Fra : nOAz


Dato : 18-08-02 13:17

Doh!

Private Sub Command1_Click()
Randomize
R = Int(Rnd * 17)
Label1.Caption = R
End Sub

virker perfekt... takker for hjælpen...
noaz...



"preben nielsen" <prel@post.tele.dk> skrev i en meddelelse
news:3d5f5f1c$0$27702$edfadb0f@dspool01.news.tele.dk...
>
> "nOAz" <n0Az@hotmail.com> skrev i en meddelelse
> news:ajm6gh$1ci5u4$1@ID-134837.news.dfncis.de...
> > hvorfor virker min rnd ikke korrekt...
> > hver gang jeg starter programmet og klikker på knappen
> > vælger den tallene i samme rækkefølge som sidst...
> >
> > Private Sub Command1_Click()
> > R = Int(Rnd * 17)
> > Label1.Caption = R
> > End Sub
>
> Brug Randomize før Rnd(), men ikke før hvert kald af Rnd(). Bare
> et enkelt kald af Randomize i din Form_Load eller Sub Main
>
>
>
> --
> /\ preben nielsen
> \/\ prel@post.tele.dk
>
>



preben nielsen (18-08-2002)
Kommentar
Fra : preben nielsen


Dato : 18-08-02 21:02


"nOAz" <n0Az@hotmail.com> skrev i en meddelelse
news:ajo39k$1cvr8e$1@ID-134837.news.dfncis.de...
> Doh!
>
> Private Sub Command1_Click()
> Randomize
> R = Int(Rnd * 17)
> Label1.Caption = R
> End Sub
>
> virker perfekt...

Gud fader .......


--
/\ preben nielsen
\/\ prel@post.tele.dk



Tim Sørensen (17-08-2002)
Kommentar
Fra : Tim Sørensen


Dato : 17-08-02 20:47

"nOAz" <n0Az@hotmail.com> wrote
> hvorfor virker min rnd ikke korrekt...
> hver gang jeg starter programmet og klikker på knappen
> vælger den tallene i samme rækkefølge som sidst...
>
> Private Sub Command1_Click()
> R = Int(Rnd * 17)
> Label1.Caption = R
> End Sub

Det er fordi at du SKAL bruge Randomize først.
F. eks:

Private Sub Command1_Click()
Randomize
R = Int(Rnd * 17)
Label1.Caption = R
End Sub

--
Mvh.... Tim Sørensen
http://www.dondata.dk/



Jens (17-08-2002)
Kommentar
Fra : Jens


Dato : 17-08-02 20:51

Private Sub Command1_Click()
Dim r As Integer

Randomize
r = Int(Rnd * 17)
Label1.Caption = r

End Sub



"nOAz" <n0Az@hotmail.com> skrev i en meddelelse
news:ajm6gh$1ci5u4$1@ID-134837.news.dfncis.de...
> hvorfor virker min rnd ikke korrekt...
> hver gang jeg starter programmet og klikker på knappen
> vælger den tallene i samme rækkefølge som sidst...
>
> Private Sub Command1_Click()
> R = Int(Rnd * 17)
> Label1.Caption = R
> End Sub
>
>
>



Jens Vestergaard (17-08-2002)
Kommentar
Fra : Jens Vestergaard


Dato : 17-08-02 20:52

"nOAz" <n0Az@hotmail.com> skrev i en meddelelse
news:ajm6gh$1ci5u4$1@ID-134837.news.dfncis.de...
> hvorfor virker min rnd ikke korrekt...
> hver gang jeg starter programmet og klikker på knappen
> vælger den tallene i samme rækkefølge som sidst...
>
> Private Sub Command1_Click()
> R = Int(Rnd * 17)
> Label1.Caption = R
> End Sub

Husk Randomize før Rnd:
Fra Help:
If Randomize is not used, the Rnd function (with no arguments) uses the same
number as a seed the first time it is called, and thereafter uses the last
generated number as a seed value.

M.a.o. for at få en ny række tilfældige tal hver gang, skal Randomize fyres
af før Rnd.

--
mvh
Jens Vestergaard
www.railsoft.dk
--------
Indsæt v før snablen



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste