program za testiranje

Napravila sam program koji služi za testiranje učenika.
Postavila sam list box sa pitanjima i opciona dugmad sa odgovorima. Ukoliko je pitanje tačno u labeli ispod piše «tačno je» u suprotnom «nije tačno».
Napraviću textualno polje gde će za tačan odgovor da piše 5 a za netačan 0.
Kako da napravim da mi sumira rezultat kako bi dobila score tj. da li je učenik položio test ???
Dragana

Pretpostavimo je 15 i vise bodova potrebno za prolaz ucenika, onda bi to trebalo ovako izgledati:


Jeli na to mislis?

Potpis

_ Quod Me Nutrit Me Destruit /_

to mi je jasno, nego kako da sumiram sve tačne udgovore??

Evo jedan banalan primjer:

Potpis

_ Quod Me Nutrit Me Destruit /_

Na ovo gore se uvek najezim, ali sta cemo kada VB to dozvoljava.

Ako neces da ucis pogresno:

:D :D :D

Potpis

_ Quod Me Nutrit Me Destruit /_

OK, ako je banalan, sorry.

pa može da mi poslužiali .


Ne znam u kom trenutku i na koji događaj da napravim ovo zbrajanje.
Prvo ispitujem da li je tačan 1. odgovor, pa ako je tačan onda znači da to pitanje vredi 5 bodova. Ne znam gde čuvam taj podatak dok idem na drugo pitanje.
Napravila sam selec case kod pitanja.

case 1. pitanje , ponude mi se odgovarajući odgovori u tri opciona dugmeta. Ukoliko kliknem na ono za koje sam u kodu odredila da je tačno u labelu ispod se ispiše tačno i u tom trenutku treba negde da se sačuva tih 5 poena
case 2. pitanje...


i kad sve ispitam da mi se prikaže koliko bodova učenik ima i tek onda da mi ispiše da je položio ili ne...

Ne znam da li sam objasnila kako treba... ???

Nisi.

Uploaduj ovde screenshot od ekrana za pitanja, uz ovo sto si vec pitala bi trebalo da objasni kako si to zamislila.

Ako ti nije problem, stavi i ceo projekt, siguran sam da ti niko nece ukrasti.

kuci mi je na racunaru a ja sam na poslu, videcu sutra ako do tad ne rešim pa ću da zakačim.

pošto ovde nemam vb evo skicirala sam u formi accessa kako hocu da izgleda. Sve sam odradila samo mi fali zbrajanje svih poena po svim pitanjima.....

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

Potpis

HomePage http://www.eurora3d.com

OK, sto se tice koncepta, o tome bi mogli pricati.

Resenje ti je dao @LudoA jos u prethodnom odgovoru; samo povecavas ukupnu vrednost za 5 u slucaju tacnog odgovora (ako je tekstboks za ukupno Text1). Za kompletno uradjen kod treba ili da postavis ukupan kod sa forme, ili da uploadujes projekt.

hvala svima na predlozima kod kuće ću da pokušavam pa do sutra ....
cao

postavila sam textualno polje txtbodovi i txtUkupan rezultat

pa je txtUkupanRezultat=txtUkupanRezultat+txtBodovi

problem je sto se bodovi ne sabiraju nego nižu jedan za drugim ???!!!

Tekst box sadrzaj je u obliku teksta (stringa) i ako napisete
txtUkupanRezultat+txtBodovi efekat je isti kao Ja + sam =Ja sam
Trebate da sadrzaj pretvorite u broj
Primer
txtUkupanRezultat.Text = CInt (txtUkupanRezultat.Text) + CInt (txtBodovi.Text)
Pozdrav

Potpis

HomePage http://www.eurora3d.com

Potpis

Pozdrav
GoGy

;)

Eto, a lepo sam ti rekao u jednom od gornjih topika da ne ucis pogresno i pokazao kako treba, nisi nista naucila, a predajes deci ccccc.

Naravno, salim se.

evo prilažem vbp

Sto se tice koda i koncepta, imalo bi se tu svasta ispravljati i menjati, ali sam se fokusirao na tvoj problem. Evo ti ispravljen projekat, ako nisam i ja negde u zurbi pogresio.

Nadam se da je bio dovoljno brz odgovor.