Pravim kviz, treba mi kod za nasumicna pitanja

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

Dopuna: 08 Jul 2009 13:18

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

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

auuuuu, al si ga zakomplikovao.


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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Napisano: 11 Jul 2009 16:52

mycity.rs/must-login.png

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