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


Jeli na to mislis?

_{[Ovu poruku je menjao LudoA dana 13.11.2006. u 14:24 GMT+1]}

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

Evo jedan banalan primjer:

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

Ako neces da ucis pogresno:

:D :D :D

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

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 ???!!!

_{[Ovu poruku je menjao gaga_mn dana 14.11.2006. u 12:37 GMT+1]}

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

;)

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.

hvala puno

jel možeš da mi objasniš ovo sta radi cstr i val ???

txtRezultat.Text = CStr(Val(txtRezultat.Text) + Val(txtBodovi.Text))

U pitanju su konverzije tipova, ukratko receno.

Na ovaj nacin se sprecava konkatenacija stringova, jer je u VB-u znak za povezivanje stringova i "+" i "&", a da bi bilo nedvosmisleno, najbolje je da koristis "&", a ja namerno nisam menjao da bi uocila problem. Zato su ti se brojevi spajali, umesto sabirali. Ja sam na ovaj nacin naterao VB da prvo sabere (a ne da spoji brojeve), pa onda dodeli Text svojstvu od Textbox-a.

Naravno da se ti izrazi mogu pisati na veliki broj nacina, ali to je neka druga prica.

Knjigu u sake, ako ces se ovim ozbiljnije baviti i kreni od osnovnih tipova, pa onda predji na "crtanje" i dogadjaje.

A ako sam stavila da mi jedata format Number?? Jel on to konta??

>

"On" to ne konta

DataFormat sluzi za formatiranje vrednosti kada je Textbox "povezan" za polje iz rekordset-a i sl.
Textbox ima svojstvo Text koje je osnovnog tipa String "uvek i za svagda".

ok, hvala puno na pomoći....

Popravili smo vas program
Mozete da skinete zip sa http://www.extramedia.co.yu/eurora3d/files/ReIspitEM.zip
Pozdrav
Nebojsa

postavila sam na kraju uslov
If txtRezultat.Text >15 Then
MsgBox ("UČENIK JE POLOŽIO ISPIT")
Else
MsgBox ("UČENIK NIJE POLOŽIO ISPIT")
End If

i ni u kom slučaju neće da prihvati da je učenik položio ??

Jel isto treba da primenim pretvaranja stringa u number i kojim načinom da primenim to ??

Sama si sebi odgovorila, ne znam zasto nisi probala?

pa probala al opet ne prihvata

Ko, sta, gde ne prihvata? Da li si videla i ono "=" sto sam dodao u uslov?

Zdravo
U vasem programu ima samo 3 pitanja i rezultat nikad nije veci 0d 15
Stavite If CInt(txtRezultat.Text) = 15 Then
Pozdrav

pa iako stavim >=10 opet neće da prihvati, a i ako stavim da je = 15 i u tom slučaju ne radi...

Kao sto sam rekao:

Stavi kod.

pa pobogu,
naravno da sam stavila.
Kako bi znala da ne radi ako nisam stavila kod ??!!

Pa mislio sam da ga ovde stavis ;)

Eh, sta radi panika.

:)) nisam u panici

Case 3
Unload Me
If CInt(txtRezultat.Text) >= 10 Then
MsgBox ("UČENIK JE POLOŽIO ISPIT")
Else
MsgBox ("UČENIK NIJE POLOŽIO ISPIT")
End If

A da taj "Unload Me" stavis posle?

Da li uopste ulazi u Case 3?

> e pa to je
tnx :))

Da li tvoji ucenici imaju pojma koliko se ti zbog njih mucis?

:))

Skoro svi problemi ovde imaju isti uzrok. U principu, UVEK bi trebalo odvojiti logiku aplikacije od UIja. U ovom konkretnom slucaju to znaci da bi trebalo uvesti promenljivu BrojPoena tipa Integer i svako dodavanje poena, poredjenje i sta god da se radi sa poenima raditi sa tom promenljivom. Text box treba koristiti SAMO za prikaz na ekranu. Sta ako se dobije zahtev da se ovaj text box zameni labelom recimo? Neki ce da kazu da ce find/replace da radi posao, ali to je losa praksa.

Da citiram sebe:


@mladenovicz, potpuno se slazem sa tvojim komentarom. Mislim da ova tema moze da bude vrlo edukativan primer za pocetnike u VB-u, pa je bitno i da se na kraju nesto "rezimira".

hvala na savetu, primenila sam i to

pozdrav
Dragana
>