|
Poslao: 16 Jan 2009 17:38
|
offline
- brainstolen
- Novi MyCity građanin
- 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.
|
|
|
Poslao: 16 Jan 2009 17:41
|
offline
- bobby
- Administrator
- Pridružio: 04 Sep 2003
- Poruke: 24135
- 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?
|
|
|
|
|
|
|
Poslao: 16 Jan 2009 17:55
|
offline
- brainstolen
- Novi MyCity građanin
- 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.
|
|
|
|
|
|
|
Poslao: 16 Jan 2009 18:01
|
offline
- bobby
- Administrator
- Pridružio: 04 Sep 2003
- Poruke: 24135
- 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).
|
|
|
|
|
|
|
Poslao: 16 Jan 2009 18:07
|
offline
- snoop
- Genghis Khan
- 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.
|
|
|
|
|
|
|
Poslao: 16 Jan 2009 18:11
|
offline
- brainstolen
- Novi MyCity građanin
- 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?
|
|
|
|
|
|
|
Poslao: 16 Jan 2009 18:43
|
offline
- BlasteR
- Građanin
- 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.
|
|
|
|
|
|
|
Poslao: 16 Jan 2009 18:46
|
offline
- snoop
- Genghis Khan
- 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.
|
|
|
|
|
|
|
|
|
Poslao: 16 Jan 2009 20:32
|
offline
- snoop
- Genghis Khan
- Pridružio: 18 Apr 2003
- Poruke: 8134
- Gde živiš: U kesici gumenih bombona...
|
Laslo Kraus je meni predavao.
|
|
|
|
|
|
