[es] - Kako dobiti prosek iz TextBox

Kire2005
Kire Lazarevski
Skopje

Član broj: 44682
Poruke: 14
*.on.net.mk.

Profil

^{08.08.2007. u 17:38 - pre 203 meseci}

Zdravo svima.
Imam jedan problem za koga nisam nasao resenje pa ukoliko neko ima vremena i moze pomoci Hvala!
Napraviosam jednu Tebelu(tblOpsto) i jednu formu(frmUnosOpsto). Na ovu formu (frmUnosOpsto) sam ubacio kontrole i ostalo sto kako sam zamislo i to je ok, ali sam zaglavo na:
Na formu(frmUnosOpsto) imam TextBox txtS1 u kome treba da se utipkavaju ocene iz skole (znaci od 1 do 5), da budem preciznii sve konacene ocene u txtS1 i to bi izgledalo ovako nekako : (32452343555) i od ovga bi trbao dobiti prosek u txtS1Prosek u formatu sa 2 decimale. Zaboravio sam da napomenem da na formi imam i TextBox txtMaxPoen u kome je predvideno da se deklarira Maxsumu poene (na primer 20), i u zavisnosti txtS1Prosek i txtMaxPoen bi trbal da se dobiju koneci poeni u txtS1Poen. (znaci za prosek 5,00 jer je najveci dobilo bi se 20 poena).

Odgovor na temu

Kire2005
Kire Lazarevski
Skopje

Član broj: 44682
Poruke: 14
*.on.net.mk.

Profil

Re: Kako dobiti prosek iz TextBox

^{10.08.2007. u 22:53 - pre 203 meseci}

Ok vidim da nema odgovora a razme vreme je da se ide na more. Mozda sam i lose postavio moj problem no da probam da budem jos preciznii jer kako sam ga postvio izgleda da je problem iz matematike.

Meni konkretno treba da is TextBox txtS1 , namenjen za unos ocena da dobijem zbir i koliko ocena je u njemu.

zanci unos ocena u txtS1 izgleda ovako 34455432345
sada nije mi jasno kako da dobijem rezltat =42 (3+4+4+5+5+4+3+2+3+4+5 =42)
i kako mogu da prebroim koliko karaktera(ocena) ima u txtS1 =11

A za dodeljivanje onih maxsimu poena (20) netrba mi pomoc.

Ako neko ima neki predlog kako bi ovo moga i drugacije se resiti od ovoga kako sam ga ja postavio nek predlozi
.......................................................................................................................................................

Ovo je resenje pogledano matematicki

Primer (uzecu vec navedene cifre)

(maxsimu poena 20), 20:5 = 4
34455432345 = 42 (rezultat iz ocena)
34455432345 11 karaktera (ocena)

znaci

42:11 = 3,81 (prosek)
42:11*4 = 15,27 (poen)

Nadam se da sam nekako jasnii nego prije.

Odgovor na temu

mikson
Miroljub Simić
Beograd

Član broj: 19162
Poruke: 51
*.dynamic.sbb.co.yu.

Profil

Re: Kako dobiti prosek iz TextBox

^{11.08.2007. u 01:08 - pre 203 meseci}

Evo nešto na brzaka. Fja koja računa prosek.

Code:
Private Function prosek(niz As String) As Double
    Dim ln As Integer
    Dim i As Integer
    Dim sum As Double

    sum = 0
    ln = Len(niz)

    For i = 1 To ln
        sum = sum + CDbl(Mid(niz, i, 1))
    Next i
    prosek = Round(sum / ln, 2)
End Function

Da li treba objašnjenje za kod?

Drugi deo vezano za poene nisam baš najbolje shvatio :)

Poz

"So many people seem to see the word "error" and then stop... few seem to actually read the words on the OTHER side of the colon."
- Chris Phillips from the mplayer-users mailing list

Odgovor na temu

Kire2005
Kire Lazarevski
Skopje

Član broj: 44682
Poruke: 14
*.on.net.mk.

Profil

Re: Kako dobiti prosek iz TextBox

^{12.08.2007. u 22:24 - pre 203 meseci}

Pozdrav Svima
Problem je resen a za to se pobrinuo Mikson. Hvalaaaa!

Odgovor na temu