Tema
Boje
Pismo
Registracija

Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

Kako se dodaje

Kviz u VB6 - saveti i uputstva

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Podeli na Facebook-u Podeli na X-u (Twitter) Idi na poslednju poruku
  • 9 odgovora
  • 4.519 pregleda

Najnovija ↓

Kviz u VB6 - saveti i uputstva 08.01.2009. u 19:50 · pre 216 meseci #1
Ovako, želim da napravim kviz u VB6. Za to imam mesec dana. Inače, sam skoro pa totalni početnik (znam osnovne stvari).
Ne mislim da mi neko ovde uradi ceo kviz, već želim da, ako je moguće, neko da uputstva i savete.
Zamislio sam da taj kviz bude "muzički" i to prvenstveno pitanja iz rock muzike - na pitanje slede četiri ponuđena odgovora, od kojih je jedan tačan. Nije mi problem da smislim pitanja, nego ne znam gde da smestim ta pitanja - da li u neku bazu podataka, ili nešto drugo. Kad napravim bazu sa pitanjima kako da je povezem sa projektom u VB?
Re: Kviz u VB6 - saveti i uputstva 08.01.2009. u 21:39 · pre 216 meseci #2
Ne bi trebalo da bude tesko, iako si pocetnik.

Sto se tice ponudjenih odgovora koristi option button-e, tekst pitanja mozes postavljati u label-e (ili zakljucane textboxove).

Postavis jedno dugme, kad se korisnik odluci na svoje pitanje, i u njemu moras postaviti jednostavan kod da ukoliko je pitanje tacno msgbox se pokrene i odgovori sa "Tacno" (npr), a pod Else stavis "Netacno".

Ne znam koliko ti kviz treba biti kompleksan da bi koristio bazu (ako ti je za neki "domaci zadatak" mozes staviti da pitanja budu fiksna (nekih 10-ak pitanja)). Ovo bi ti bila najjednostavnija varijanta, posto kazes da si pocetnik.

Ukoliko insistiras na bazi, koristi access, i u ovom slucaju moras podizati konekciju ka bazi (nesto komplikovanije).

Kreni sa formom, pa kad zapnes postuj, siguran sam da ce ti neko pomoci.

Pozdrav

Drejk

Re: Kviz u VB6 - saveti i uputstva 10.01.2009. u 11:47 · pre 216 meseci #4
Siguran sam da imas dosta primera na internetu (malo progooglaj)

evo ja sam sklepao sa jednim pitanjem kako sam ja zamislio.

Probaj na osnovu ovoga, pa kad zapnes reci gde si zapeo.
Kviz.rar1.39k
Re: Kviz u VB6 - saveti i uputstva 10.01.2009. u 15:06 · pre 216 meseci #5
Hvala. E, sad imam problem, unesem kod za SLEDECE pitanje (i izbacuje mi sledece pitanje pri probi), ali ne znam kako da unesem kod za POTVRDI - da vazi za sledece pitanje, a ne prethodno. Nadam se, da si razumeo sta sam hteo da kazem.
Re: Kviz u VB6 - saveti i uputstva 14.01.2009. u 15:00 · pre 216 meseci #6
za ovaj kviz ti treba frame,4 option-a i jedan CommandButton
evo nasao sam na jednoj temi ovaj kod pa pokusaj sa ovim kod mene radi
Code:

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" ' ovde gde pise Kviz stavi tvoj naziv programa
tacno = tacno + 1
Else
MsgBox "Pogresno !!!", vbInformation, "Kviz"  ' ovde gde pise Kviz stavi tvoj naziv programa
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"
Option1.Value = True
Exit Sub
drugopitanje:
If Option1.Value = True Then
MsgBox "Tacno !!", vbInformation, "SportKviz" ' ovde gde pise Sport kviz stavi tvoj naziv programa
tacno = tacno + 1
Else
MsgBox "Pogresno !!!", vbInformation, "SportKviz" ' ovde gde pise Sport kviz stavi tvoj naziv programa
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"
Option1.Value = True
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
Re: Kviz u VB6 - saveti i uputstva 15.01.2009. u 20:22 · pre 216 meseci #7
Citat:
Sloba96: za ovaj kviz ti treba frame,4 option-a i jedan CommandButton
evo nasao sam na jednoj temi ovaj kod pa pokusaj sa ovim kod mene radi
Code:

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" ' ovde gde pise Kviz stavi tvoj naziv programa
tacno = tacno + 1
Else
MsgBox "Pogresno !!!", vbInformation, "Kviz"  ' ovde gde pise Kviz stavi tvoj naziv programa
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"
Option1.Value = True
Exit Sub
drugopitanje:
If Option1.Value = True Then
MsgBox "Tacno !!", vbInformation, "SportKviz" ' ovde gde pise Sport kviz stavi tvoj naziv programa
tacno = tacno + 1
Else
MsgBox "Pogresno !!!", vbInformation, "SportKviz" ' ovde gde pise Sport kviz stavi tvoj naziv programa
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"
Option1.Value = True
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
Ne prebacuje drugo na trece pitanje. Ne znam zasto....
Re: Kviz u VB6 - saveti i uputstva 15.01.2009. u 21:54 · pre 216 meseci #8
Nije bas najsjajniji kod.

Ne prebacuje na trece pitanje jer prilikom svakog pritiska na dugme, deklarise se promenljiva Pitanje, koje se uvecava za jedan.

Tako da kad prvi put pritisnemo dugme, (izaberemo option button), dobijemo odgovor tacno/netacno, pitanje se uveca za jedan (dakle pitanje=1), kad drugi put pritisnemo dugme, promenljiva se resetuje, i opet se uvecava samo do 1.

Ukoliko vec koristis ovaj kod (mada mi se bas ne svidja) stavi sledeci kod ispred (iznad) svega.

Pa bi ti ovako izgledao kod.

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 trecepitanje

pozdrav

Drejk
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme