Kviz VB6 - problem

1

Kviz VB6 - problem

offline
  • Pridružio: 16 Jan 2009
  • Poruke: 23

Problem je u tome sto ne znam kako da u ovaj kod ubacim random funkciju da mi se pitanja nasumicno pojavljuju. Molim vas, pomozite?
Public pitanje As Integer Private Sub Command1_Click() If pitanje = 0 Then GoTo prvopitanje If pitanje = 1 Then GoTo drugopitanje If pitanje = 2 Then GoTo trcepitanje prvopitanje: ' za prvo pitanje stavi sam pitanje i odgovore na formu If Option2.Value = True Then MsgBox "Tacno !!", vbInformation, "Kviz" tacno = tacno + 1 Else MsgBox "Pogresno !!!", vbInformation, "Kviz"  netacno = netacno + 1 End If pitanje = pitanje + 1 Frame1.Caption = "No.2" Label1.Caption = "Proba" Option1.Caption = "Tacno" Option2.Caption = "Netacno" Option3.Caption = "Netacno" Option4.Caption = "Netacno" Exit Sub drugopitanje: If Option1.Value = True Then MsgBox "Tacno !!", vbInformation, "SportKviz" tacno = tacno + 1 Else MsgBox "Pogresno !!!", vbInformation, "SportKviz" netacno = netacno + 1 End If pitanje = pitanje + 1 Frame1.Caption = "No.3" Label1.Caption = "Proba" Option1.Caption = "Netacno" Option2.Caption = "Netacno" Option3.Caption = "Tacno" Option4.Caption = "Netacno" Exit Sub trcepitanje: If Option3.Value = True Then MsgBox "Tacno !!", vbInformation, "Kviz" tacno = tacno + 1 Else MsgBox "Pogresno !!!", vbInformation, "Kviz" netacno = netacno + 1 End If End Sub



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24130
  • Gde živiš: Wien

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

Znas li da radis sa dvodimenzionalnim matricama ili sa listama?



offline
  • Pridružio: 16 Jan 2009
  • Poruke: 23

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.

offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24130
  • Gde živiš: Wien

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

offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

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.

offline
  • Pridružio: 16 Jan 2009
  • Poruke: 23

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?

offline
  • Pridružio: 05 Mar 2007
  • Poruke: 81

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.

offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

Ovde ima malo o GoTo -> http://visualbasic.about.com/od/imhoinmyhumbleopinion/a/GraGoTo01.htm

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.

offline
  • Pridružio: 05 Mar 2007
  • Poruke: 81

snoop, da tebi mozda nije predavao Malbaski?

offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

Laslo Kraus je meni predavao.

Ko je trenutno na forumu
 

Ukupno su 596 korisnika na forumu :: 38 registrovanih, 5 sakrivenih i 553 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 1567 - dana 15 Jul 2016 19:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Sale, A.R.Chafee.Jr., aramis s, Botovac, Dannyboy, Dicus, Djole, dragoljub11987, Duh sa sekirom, duskovuk63, FOX, gorval, goxin, ILGromovnik, ivance95, kos milorad, Kristian_KG, Kubovac, lord sir giga, lovac12, ltcolonel, Metanoja, milekNS, Milos1977, nuke92, rkekoke, S-lash, Sr.Stat., tomigun, Toni, vathra, Vlada1389, vladetije, vlvl, wolverined4, zixmix, zodiac94, zoranlik