---

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

---

"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

---

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
>
>

---

"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

---

"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/

---

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
>
>
>

---

"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