[ Sonique @ 18.09.2010. 23:57 ] @
Pozdrav svima,
radim jedan kviz u Access-u i svaki put pitanja se generisu pomocu funkcije random, medjutim problem je sto za jedno pitanje odgovor se uvijek nalazi na istom mjestu. Npr.
1. Najpoznatiji njemacki proizvodjac automobila?
a) Toyota
b) Fiat
c) Mercedes

Bilo bi dobro kad bi mogao da se moze svaki put kad korisnik dobije predhodno pitanje tacan odgovor nalazi na drugom mjestu. Npr:

1. Najpoznatiji njemacki proizvodjac automobila?
a) Mercedes
b) Toyota
c) Fiat


Unaprijed hvala svima!
[ izonic @ 19.09.2010. 09:02 ] @
Vjerovatno odgovore drzis u nekoj tabel napr odgovori:
Da pretpostavim polja:
Id--->sifra odgovora autonuber
IdPitanja-->Sifra pitanja
Opis-->opis ogovora
Tacan-->Tru/flse

Ovu tabelu podizes na formi dali krou sql ili direktno.
Napravi kuery i dodaj polja koja ti trebaju i pored toga dodaj jedno polje napr da se zove sort:
sort:slucajno([id]) i slozi po njemu tj. stavi ga asc.

Ovu proceduru stavi u neki modul:
Function Slucajno(Id As Long) As Integer
Slucajno = (5 * Rnd) + 1
End Function
[ Sonique @ 19.09.2010. 21:20 ] @
Hvala izonic ovo je ok, medjutim pojavi se jedan problem, naime kad prvi put pokrenem Access i izvrsim query daje mi uvijek isti redoslijed pitanja, ovo se desava samo kod prvog pokretanja Access-a poslije je ok???

[ izonic @ 19.09.2010. 21:48 ] @
Slucajan broj iako se zove slucajan nije eto bas sto ima nekakav slijed.
Da bi stvarno bio slucajan treba ga kobinovati i sa veremnom.
Ako ne uspijes sam prepraviti proceduru, prepravit cu ti je.
[ Sonique @ 21.09.2010. 09:46 ] @
Izonic zamolio bih te ako mozes da mi napises tu proceduru, ja sam nesto pokusavao ali mi ne ide???
[ izonic @ 21.09.2010. 14:56 ] @
Function Slucajno(Id As Long) As Integer
Dim V As Double
V = Now()
V = Right(Format$(V), 1)
Slucajno = (5 * Rnd) + V
End Function

Evo probaj sa ovim.
Trebalo bi da bude dobro.
[ Sonique @ 22.09.2010. 17:22 ] @
Probao sam ali opet isto, kad se prvi put pokrene Access isti je redosljed odgovora?
[ Zoran.Eremija @ 22.09.2010. 17:27 ] @
Probajte da umesto Rnd stavite Rnd(Now())
[ izonic @ 22.09.2010. 17:56 ] @
Opsi malo odakle pokreces.
Jel u Query-u.
Jesil probao napraviti Query.
Ako tu dobro radi onda na formi mras sort postaviti.
Vjerovatno koristis iz forme podatke.
[ Sonique @ 22.09.2010. 23:11 ] @
Evo fajl pa malo pogledaj
[ Zoran.Eremija @ 23.09.2010. 06:33 ] @
Da li je ovo to sto ste zeleli?
[ Sonique @ 23.09.2010. 09:29 ] @
To je ono sto bi mi trebalo, ne znam da li ste primjetili, ali dok ne zatvorim Access sve je ok, medjutim kad izadjem iz Access-a i ponovno pokrenem formu s pitanjima uvijek je isti redoslijed pitanja a takodjer kod prvog pokretanja forme s odgovorima isti je i redoslijed odgovora sto mi ne odgovara?
[ Sonique @ 25.09.2010. 08:28 ] @
Ima li neko rjesenje???
[ izonic @ 25.09.2010. 19:40 ] @
Pa zar nije ovo rijeeno.
Function Slucajno(Id As Long) As Integer
Dim V As Double
V = Now()
V = Right(Format$(V), 1)
Do While V > 0
Slucajno = (8 * Rnd)
V = V - 1
Loop
End Function
[ Sonique @ 26.09.2010. 00:08 ] @
Hvala puno izonic sad je ok!
[ milos2323 @ 14.11.2013. 15:15 ] @
Citat:
Sonique:
Pozdrav svima,
radim jedan kviz u Access-u i svaki put pitanja se generisu pomocu funkcije random, medjutim problem je sto za jedno pitanje odgovor se uvijek nalazi na istom mjestu. Npr.
1. Najpoznatiji njemacki proizvodjac automobila?
a) Toyota
b) Fiat
c) Mercedes

Bilo bi dobro kad bi mogao da se moze svaki put kad korisnik dobije predhodno pitanje tacan odgovor nalazi na drugom mjestu. Npr:

1. Najpoznatiji njemacki proizvodjac automobila?
a) Mercedes
b) Toyota
c) Fiat


Unaprijed hvala svima!


Radim kolokvijum u accessu, koji poput takvog kviza. Kako da vidim odgovore na pitanja? Hvala
[ SLOJ.1973 @ 14.11.2013. 18:46 ] @
Pojasni malo:Da vidis odgovore na pitanja preko forme ili jednostavno da ti vidis koji su odgovori na pitanja u datom primeru?