visual basic pomoc, jednostavan program

[1ucid]

evo 2 dana glavoboljam i trazim po youtubu ali nisam moga' nac' kako da napravim preko Visual Basica program koji ce funkcionisat tako da kad ukucam u textbox npr. rijech drvo kako da podesim da svako slovo ima svoju vrijednost npr. d=5, r=22, v=17, o=20 i da se te vrijednosti sve medjusobno saberu i da finalni broj (64) prestavlja ukupnu vrijednost rijechi drvo... Ako neko zna molim da napishe ili poshalje na inbox.

[1ucid]

je li moguce da niko nezna...

[WinterMage]

Ja ne znam pouzdano da ti kažem.. Evo ti generalna ideja, moraćeš da prepraviš kod, kucan je u Notepadu, nemam VB ovdje Napominjem, ne mora da znači da je ovo dobar pristup.. Dosta sam zaboravio VB

Dim sText As String
Dim i As Integer
Dim lTextLength As Long
Dim TrenutnoSlovo As String
Dim Vrijednost As Integer
Dim Zbir As Integer


Zbir = 0
sText = TextBox1.Text
lTextLength = Len(sText)

For i = 1 to lTextLenght
TrenutnoSlovo = Mid$(sText, i, 1)
Select Case TrenutnoSlovo
Case "a":
Vrijednost = 2
Case "b":
Vrijednost = 3
Case "c":
Vrijednost = 4
'itd
End Select
Zbir = Zbir + Vrijednost
Next i

MsgBox "Vrijednost je: " & Zbir

[1ucid]

ih, od kad je ovo , fala ti!