Pravim kviz, treba mi kod za nasumicna pitanja

Pravim kviz, treba mi kod za nasumicna pitanja

offline
  • Pridružio: 03 Jul 2009
  • Poruke: 31

Koj je kod za nasumicna pitanja??? Je l' to nesto sa random?

1.)Kako da namestim da je odredjena varijabla = neki nasumican broj od 1 do 40? 40 je broj pitanja u kvizu...



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 26 Okt 2008
  • Poruke: 1560
  • Gde živiš: Sremski Mihaljevci

Napisano: 08 Jul 2009 13:17

ne znam da li si mislio na ovo..??

upisi u click event za dugme:

dim pera as string pera=int(Rnd()*10) select case pera case"0" TextBox1.text="Cao!" case"1" TextBox1.text=""Pekito" case"2" TextBox1.text="Pera je car" case"3" TextBox1.text="Jovanovic" case"4" TextBox1.text="hahaha" case"5" TextBox1.text="ja" case"6" TextBox1.text="mi" case"7" TextBox1.text="vi" case"8" TextBox1.text="zdravo" case"9" TextBox1.text="cool" end select

na formu naravno stavis i jedan textbox... Wink

Dopuna: 08 Jul 2009 13:18

ja sam stavio 10.. ti stavi 40...50...1000

/mod: koristi code tagove... U suprotnom, brisem postove!



offline
  • Pridružio: 03 Jul 2009
  • Poruke: 31

Napisano: 09 Jul 2009 16:54

Evo pokusacu sa tvojim kodom. Hvala.

Dopuna: 09 Jul 2009 17:08

Pokusavao sam nesto al' ne ide bas. Evo stavio sam raniju verziju tog mog kviza i ako moze neko od strucnijih(a svi su strucniji od mene verovatno) da pogleda i kaze u cemu je greska i da da savet kako da je ispravim???

mycity.rs/must-login.png

Dopuna: 09 Jul 2009 18:52

Pomagajte...

offline
  • Pridružio: 25 Maj 2007
  • Poruke: 114
  • Gde živiš: Novi Sad, Sombor

auuuuu, al si ga zakomplikovao. Surprised


Prvo imas 2 greske:
 PIT001 = Falshe  PIT002 = Falshe

a treba

 PIT001 = False  PIT002 = False

umesto ovoga
Xpit = Int(Rnd *2) If Xpit = 1 And PIT001 = True Then Call PITANJE1 If Xpit = 2 And PIT002 = True Then Call PITANJE2

stavi ovako

Xpit = Int(1 + 2 * Rnd) If Xpit = 1 And PIT001 = True Then Call PITANJE1 If Xpit = 2 And PIT002 = True Then Call PITANJE2

sve ove promenljive

Dim PIT001 As Boolean Dim PIT002 As Boolean Dim PIT003 As Boolean Dim PIT004 As Boolean .....

stavi kao Public

Public PIT001 As Boolean Public PIT002 As Boolean .....

posto ih koristis i u modulu.


Inace sve ove promenljive PIT001 .... PIT020 si mogao da stavis u niz.

Isto tako si mogao sva pitanja da strpas u matricu..

Probaj pa javi.

offline
  • Pridružio: 03 Jul 2009
  • Poruke: 31

Uradio sam te tri stvari:

1.)Ispravio sam gramaticku gresku
2.)Ovo sa Random sam ispravio
3.)One variable sam umesto Dim deklarisao sa Public

Ovo cetvrto da stavim u niz nije mi jasno, i takodje mi nije jasno kako da stavim u matricu.

Evo pa sad pogledajte... Sta sad da uradim???

mycity.rs/must-login.png

offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

U sustini, to se ne radi tako uopste. KAd god pravis program, pravis ga tako da bude sto ekstenzibilniji, ali uvek treba imati granica Smile

Ono sto bi trebalo da uradis je da u nekom eksternom fajlu cuvas pitanja i odgovore, da ih na pocetku programa, ili u nekom drugom trenutku, ucitas iz fajla i pokazes korisniku.

Koliko se meni cini, tvoje znanje programiranja (ne govorim o konkretno o znanju VB jezika, nego o razmisljanju kao programer) je prilicno slabo. Mozda bi trebalo prvo da napravis neke mnogo jednostavnije programe pre nego sto krenes dalje.

offline
  • Pridružio: 03 Jul 2009
  • Poruke: 31

Napisano: 11 Jul 2009 16:52

mycity.rs/must-login.png

Aj pogledajte ovaj nedovrsen kviz i pomozite mi da ga dovrsim. Hvala.

Ko je trenutno na forumu
 

Ukupno su 762 korisnika na forumu :: 25 registrovanih, 5 sakrivenih i 732 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., amaterSRB, amstel, Apotekar, babaroga, cenejac111, dragon986, Dukelander, ivica976, laki_bb, MarKhan, mačković, MIg, Mihajlo, NoOneEver Dreams, ostoja, perko91, rovac, sakota79, Snorks, Srki94, Tas011, yrraf, zoranis, |_MeD_|