Faktor slucajnost

[ OTOK@ @ 11.06.2004. 23:20 ] @

Evo da bi lakse objasnio navest cu jedan bezvezan primjer:
Kako da npr. kad kliknem na dugme Command1
da mi od tri ponuđene poruke otvori jednu po principu slucajnosti
1.Msgbox "bla bla bla 1"
2.Msgbox "bla bla bla 2"
3.Msgbox "bla bla bla 3"

Gledao sam ovo vec jednom ovdje na forumu ali nisam mogao naci pravi thread sa codom...

[ Marko_L @ 12.06.2004. 16:26 ] @

@Radudzoni, malo si pobrk'o lončiće :) Kad sam zadnji put gledao ovo je bio VB forum :)

Citat:

Kako da npr. kad kliknem na dugme Command1
da mi od tri ponuđene poruke otvori jednu po principu slucajnosti
1.Msgbox "bla bla bla 1"
2.Msgbox "bla bla bla 2"
3.Msgbox "bla bla bla 3"

Code:
Private Sub Command1_Click()
Dim a As Integer
Randomize Timer
a = Int(3 * Rnd)
If a = 0 Then MsgBox "bla bla bla 1"
If a = 1 Then MsgBox "bla bla bla 2"
If a = 2 Then MsgBox "bla bla bla 3"
End Sub

[ OTOK@ @ 13.06.2004. 10:43 ] @

Hehhee...hvala vam na odgovoru!

[ X-Cite @ 21.06.2004. 10:20 ] @

@Marko_L

Zanima me nesto... taj Random koji si koristio
ja sam ga stavio u neki kao racunski slucaj da izbaci po
svom izboru broj... i kad sam god startovao on mi je izbacio uvjek
iste brojeve po istom redu i sve... dali je to samo kod
mene ili i kod vas? i dali za to postoji neko rjesenje da koristi
npr timer randomize kao sto sam cuo da ima c++ ?

[ vujkev @ 21.06.2004. 11:39 ] @

Kao random broj mozes da koristis i GetTickCount. To je brojac koji se startuje od paljenja racunara i meri vreme rada u milisekundama.

[ X-Cite @ 21.06.2004. 12:05 ] @

@vujkev

dali to vazi za Visual Basic?

[ mladenovicz @ 21.06.2004. 12:15 ] @

Da, to vazi i za VB. GetTickCount je API funkcija.

Code:

Private Declare Function GetTickCount& Lib "kernel32" ()
Private Sub Form_Load()
ret& = GetTickCount&
MsgBox Str$(ret& / 60000) + " minutes."
End Sub

[ vujkev @ 21.06.2004. 12:18 ] @

Naravno.

Code:

Private Declare Function GetTickCount Lib "kernel32" () As Long

i posle samo pozivas funkciju

Code:

broj = GetTickCount

[ degojs @ 21.06.2004. 12:47 ] @

@X-Cite:

Primeti da u kodu koji si dobio postoji i ona linija sa
Randomize Timer
koja ce spreciti ponavljanje..

[ X-Cite @ 22.06.2004. 11:58 ] @

hvala momci ;)

[ markom @ 22.06.2004. 12:22 ] @

Ja bih samo dodao, nevezano za Visual Basic, da ovakav tip randomizera ne koristiš ni za šta oybiljno, pošto su u pitanju (veoma slabi) pseudorandom brojevi.

Ukoliko želiš da generišeš prave slučajne brojeve, morao bi da nabaviš hardverski generator.

Marko.