program za testiranje

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

Potpis

HomePage http://www.eurora3d.com

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

Potpis

HomePage http://www.eurora3d.com

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?

:))