Faktor slucajnost

Faktor slucajnost 11.06.2004. u 23:20 · pre 272 meseci #1

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

Potpis

^{cik pogodi sta imam za veceru...}

Re: Faktor slucajnost 12.06.2004. u 16:26 · pre 272 meseci #2

@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

Potpis

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Re: Faktor slucajnost 13.06.2004. u 10:43 · pre 272 meseci #3

Hehhee...hvala vam na odgovoru!

Potpis

^{cik pogodi sta imam za veceru...}

Re: Faktor slucajnost 21.06.2004. u 10:20 · pre 271 meseci #4

@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++ ?

Potpis

Pozdrav
GoGy

Re: Faktor slucajnost 21.06.2004. u 11:39 · pre 271 meseci #5

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

Potpis

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

Re: Faktor slucajnost 21.06.2004. u 12:05 · pre 271 meseci #6

@vujkev

dali to vazi za Visual Basic?

Potpis

Pozdrav
GoGy

Re: Faktor slucajnost 21.06.2004. u 12:15 · pre 271 meseci #7

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

Potpis

Blue Man Group

Re: Faktor slucajnost 21.06.2004. u 12:18 · pre 271 meseci #8

Naravno.

Code:

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

i posle samo pozivas funkciju

Code:

broj = GetTickCount

Potpis

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

Re: Faktor slucajnost 21.06.2004. u 12:47 · pre 271 meseci #9

@X-Cite:

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

Potpis

Commercial-Free !!!

Re: Faktor slucajnost 22.06.2004. u 11:58 · pre 271 meseci #10

hvala momci ;)

Potpis

Pozdrav
GoGy

Re: Faktor slucajnost 22.06.2004. u 12:22 · pre 271 meseci #11

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.

Potpis

OV SM
LA PK

Srodne teme