[ Kire2005 @ 08.08.2007. 17:38 ] @
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).
[ Kire2005 @ 10.08.2007. 22:53 ] @
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.
[ mikson @ 11.08.2007. 01:08 ] @
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
[ Kire2005 @ 12.08.2007. 22:24 ] @
Pozdrav Svima
Problem je resen a za to se pobrinuo Mikson. Hvalaaaa!