Zdravo
Predpostavljam da je program u VB 6.0 posto je u ovom forumu.
Vas problem je ocigledno kako da znate kad je neko odgovorio na sva pitanja
Trebalo bi da u On_Cliclk eventu ListBox-a pratite evente izabiranja pitanja.
Kada je odgovoreno na sva pitanja rezultat ispisite u drugoj formi.
Drugi pristup je da pratite pritiskanje dugmadi sa odgovorima
Primer
Kod u glavnoj formi
'*****************************************************************
Public Odgovoreno as Integer
Public Poeni as Integer
Private Sub Form_Load
Odgovoreno = 0
Poeni =0
End Sub
Botton1_Click 'odgovor 1
If List1.Text="" Then Exit Sub ' ako nije selektovano pitanje
If List1.Text ="Pitanje za ovaj odgovor ?" then Poeni = Poeni + 5 ' ako je odgovor tacan
Button1.Enabled = False ' Ovo dugme vise nije aktivno ili Button1.Visibile = False
If Not List1.ListIndex = -1 Then List1.RemoveItem (List1.ListIndex) ' brisemo i pitanje
Odgovoreno = Odgovoreno +1 '
If Odgovoreno = BrojOdgovora Then Gotovo ' ako je ovo posledni odgovor ' Broj Odgovora zamenite sa pravim brojem
End Sub
'Ponovite gornju subrutinu za svako pitanje
Private Sub Gotovo()
Load Form2 ' druga forma za rezultate
Form2.Label1.Text = Poeni ' sa labelom za poene
Form2.Show
Unload Me
End Sub
'****************************************************************
Test programi se uglavnom prave tako da za svako pitanje postoji jedan ceo prozor (a ne ovako)
Pozdrav
Nebojsa
program za testiranje
