Kviz VB6 - problem

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

Problem je u tome sto ne znam kako da u ovaj kod ubacim random funkciju da mi se pitanja nasumicno pojavljuju. Molim vas, pomozite?

0. Public pitanje As Integer
1.  
2.  
3. Private Sub Command1_Click()
4. If pitanje = 0 Then GoTo prvopitanje
5. If pitanje = 1 Then GoTo drugopitanje
6. If pitanje = 2 Then GoTo trcepitanje
7.  
8. prvopitanje: ' za prvo pitanje stavi sam pitanje i odgovore na formu
9. If Option2.Value = True Then
10. MsgBox "Tacno !!", vbInformation, "Kviz"
11. tacno = tacno + 1
12. Else
13. MsgBox "Pogresno !!!", vbInformation, "Kviz" 
14. netacno = netacno + 1
15. End If
16. pitanje = pitanje + 1
17. Frame1.Caption = "No.2"
18. Label1.Caption = "Proba"
19. Option1.Caption = "Tacno"
20. Option2.Caption = "Netacno"
21. Option3.Caption = "Netacno"
22. Option4.Caption = "Netacno"
23. Exit Sub
24.  
25. drugopitanje:
26. If Option1.Value = True Then
27. MsgBox "Tacno !!", vbInformation, "SportKviz"
28. tacno = tacno + 1
29. Else
30. MsgBox "Pogresno !!!", vbInformation, "SportKviz"
31. netacno = netacno + 1
32. End If
33.  
34. pitanje = pitanje + 1
35. Frame1.Caption = "No.3"
36. Label1.Caption = "Proba"
37. Option1.Caption = "Netacno"
38. Option2.Caption = "Netacno"
39. Option3.Caption = "Tacno"
40. Option4.Caption = "Netacno"
41. Exit Sub
42.  
43. trcepitanje:
44. If Option3.Value = True Then
45. MsgBox "Tacno !!", vbInformation, "Kviz"
46. tacno = tacno + 1
47. Else
48. MsgBox "Pogresno !!!", vbInformation, "Kviz"
49. netacno = netacno + 1
50. End If
51. End Sub

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

Ne mozes ovako formulisan kod nikako da randomizujes.
Pogresno si pristupio problemu.

Znas li da radis sa dvodimenzionalnim matricama ili sa listama?

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

bobby ::Ne mozes ovako formulisan kod nikako da randomizujes.
Pogresno si pristupio problemu.

Znas li da radis sa dvodimenzionalnim matricama ili sa listama?
Ja sam skoro pa totalni pocetnik u VB. Da li mozes nekako da mi prepavis ovaj kod da mi nasumicno bira pitanja? Unapred hvala.

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

Nazalost, ja ne radim u VB-u, pa ne mogu da ti pomognem nista konkretnije od teoretskog resavanja problema (ako ti je to od ikakve pomoci).

Ima ovde ljudi na forumu koji rade u VB-u, pa ti oni mogu konkretnije pomoci (samo treba da sacekas dok posete forum).

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

Definitivno je los pristup i jos sa ovim GoTo koje kvari strukturno programiranje.
Mogao bi nasumice birati pitanja, ali definitivno menjaj nacin pristupa problemu i nikako GoTo.

A sto se tice nasummice izabranih pitanja, mozes da postavis promenljivu pitanje na neki broj (sa funkcijom za randomize) pre ona tri if-a.

Ne znam kako ide f-ja za random u VB6, potrazi na netu.

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

snoop ::Definitivno je los pristup i jos sa ovim GoTo koje kvari strukturno programiranje.
Mogao bi nasumice birati pitanja, ali definitivno menjaj nacin pristupa problemu i nikako GoTo.

A sto se tice nasummice izabranih pitanja, mozes da postavis promenljivu pitanje na neki broj (sa funkcijom za randomize) pre ona tri if-a.

Ne znam kako ide f-ja za random u VB6, potrazi na netu. Zbog cega mislis da ne valja GoTo?

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

Postoji jako mnogo razloga zasto se GoTo vise ne upotrebljava. On narusava strukturnu teoremu i odbacen je jos sa pojavom Pascala i C-a (1970. ili tu negde). Kao prvo, SVE sto ti je potrebno mozes uraditi pomocu uslova, ciklusa i programskih zagrada, kao drugo, program pisan pomocu GoTo naredbe je mnogo komplikovaniji, tezi i za pisanje i za citanje, neuporedivo vise imas mesta da pogresis i sto je najvaznije, nikad ne znas kad ce ti isplivati neku bug. Naravno, takvih problema neces imati ako pravis neke jednostavne programe, ali cim odes malo dalje zakucaces se.

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

Ovde ima malo o GoTo -> [Link mogu videti samo ulogovani korisnici]

Profesor na faxu nije dao da se koristi GoTo.

Iako izgleda jednostavno, nije lako odrzavati code koji je pun GoTo naredbi.
Za ovako jdnostvan program i nije toliki problem, ali ipak nije dobro resenje.

Zamisli sta moras da uradis da bi dodao npr. 10 novih pitanja.
Trebalo bi ti 10 novih linija za if then i 10 puta onaj deo posle labele za svaki goto.
A sa nizovima/listama/matricama, kada uradis pravi algoritam, samo dodas pitanja u niz/listu/matricu i sve ti je automatizovano.

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

snoop, da tebi mozda nije predavao Malbaski?

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

Laslo Kraus je meni predavao.