[es] - Pomoc oko programa u Visual Basic 2008

Enver Kikic
nema, neam
sarajevo bih

Član broj: 302699
Poruke: 7
31.176.139.*

Profil

Pomoc oko programa u Visual Basic 2008

^{12.05.2012. u 07:16 - pre 145 meseci}

Potrebno je da u 1. textboxu upisete recenicu(neodredjen broj rijeci), i da tu recenicu racunar ispise u 2. textboxu,
samo ovoga puta sa velikim pocetnim slovom svake rijeci.

Ja sam napravio samo za prvu rijec, posto je neodredjen broj rijecu u recenici, ne znam kako bih izveo tu izvedbu da racunar
stalno ide dalje sa rijeci na rijec i da je pretvara kao ovu prvu.

Code:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim strRecenica As String = TextBox1.Text
        Dim iPocetakDruge As Integer = strRecenica.IndexOf(" ")
        strRecenica = strRecenica.Trim

        Dim strPrva As String = strRecenica.Substring(0, 1).ToUpper & strRecenica.Substring(1, iPocetakDruge).ToLower

        TextBox1.Text = strPrva
    End Sub
End Class

Odgovor na temu

mkaras
Marko Karas
Beograd

Član broj: 66087
Poruke: 427

+19 Profil

Re: Pomoc oko programa u Visual Basic 2008

^{12.05.2012. u 09:47 - pre 145 meseci}

Praznine odvajaju reči jednu od druge. Prebroj koliko imaš reči i na
svaku primeni kod koji si već dao.

Odgovor na temu

Enver Kikic
nema, neam
sarajevo bih

Član broj: 302699
Poruke: 7
31.176.139.*

Profil

Re: Pomoc oko programa u Visual Basic 2008

^{12.05.2012. u 10:42 - pre 145 meseci}

Ok, kako napraviti da od 2. razmaka broji slova do 3. razmaka i to sprema u array kao 1 rijec

Odgovor na temu

Enver Kikic
nema, neam
sarajevo bih

Član broj: 302699
Poruke: 7
31.176.139.*

Profil

Re: Pomoc oko programa u Visual Basic 2008

^{12.05.2012. u 11:19 - pre 145 meseci}

pokusoa sma ovako napraviti

Code:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim br As Integer
        Dim strRecenica As String = TextBox1.Text
        Dim iPocetakDruge As Integer = strRecenica.IndexOf(" ")
        strRecenica = strRecenica.Trim

        Dim strPrva As String = strRecenica.Substring(0, 1).ToUpper & strRecenica.Substring(1, iPocetakDruge).ToLower

        TextBox1.Text = strPrva

        For i = 1 To Len(strRecenica)
            If strRecenica.Substring(i, i + 1) = " " Then
                br += 1
            End If
        Next i

        Dim strNastavak As String = strRecenica.Substring(iPocetakDruge)
        strNastavak = strNastavak.Trim

        strRecenica = strNastavak

        Dim iSljececa As Integer = strRecenica.IndexOf(" ")
        Dim strRijeci(br) As String
        If strNastavak.IndexOf(" ") <> 0 Then
            For j = 1 To br
                strRijeci(j) = strRecenica.Substring(0, 1).ToUpper & strRecenica.Substring(1, iSljececa).ToLower

            Next j
        End If

        Dim strKrajnja As String = strPrva

        For x = 1 To br
            strKrajnja = strKrajnja & strRijeci(x)
        Next x

        TextBox2.Text = strKrajnja

    End Sub
End Class

..., ali izbaciuje gresku na ovom retku

If strRecenica.Substring(i, i + 1) = " " Then

Odgovor na temu

mkaras
Marko Karas
Beograd

Član broj: 66087
Poruke: 427

+19 Profil

Re: Pomoc oko programa u Visual Basic 2008

^{12.05.2012. u 21:07 - pre 145 meseci}

Pokušaj ovako:
Učitaj sadržaj prvog TextBox-a i očistiš beline na početku i na kraju.
Prvi znak promeni u veliko slovo, ispitaš sledeći znak i ako mu prethodi
belina promeniš ga u veliko slovo. Kada stigneš do kraja rečenice
završio si posao.

Odgovor na temu

Enver Kikic
nema, neam
sarajevo bih

Član broj: 302699
Poruke: 7
31.176.131.*

Profil

Re: Pomoc oko programa u Visual Basic 2008

^{13.05.2012. u 06:58 - pre 145 meseci}

Rijesio

Rjesenje

Code:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim strRecenica As String = TextBox1.Text
        strRecenica = strRecenica.Trim
        Dim strSlovo(Len(strRecenica)) As String

        Dim strMid As String

        For i = 2 To Len(strRecenica)
            strMid = Mid(strRecenica, i, 1)
            strSlovo(i) = strMid
            TextBox2.Text = strSlovo(i)
        Next i

        For j = 1 To Len(strRecenica)
            If strSlovo(j - 1) = " " Then
                strSlovo(j) = strSlovo(j).ToUpper
            End If
        Next j

        Dim strKrajnja As String = strRecenica.Substring(0, 1).ToUpper

        For x = 1 To Len(strRecenica)
            strKrajnja = strKrajnja & strSlovo(x)
        Next x

        TextBox2.Text = strKrajnja

    End Sub
End Class

Moze li kako jednostavnije ??

Odgovor na temu

ventura

Član broj: 32
Poruke: 7781
*.dynamic.sbb.rs.

+6455 Profil

Re: Pomoc oko programa u Visual Basic 2008

^{13.05.2012. u 09:27 - pre 145 meseci}

Citat:

Enver Kikic: Rijesio :D

Rjesenje
...

Moze li kako jednostavnije ??

Jbt, zaklo si vola zarad kilo mesa :)

Ako te budu plaćali po liniji napisanog koda, obogatićeš se :)

Tvoj problem rešava jedna linija koda:

Code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = StrConv(TextBox1.Text, VbStrConv.ProperCase)
    End Sub

Odgovor na temu

Enver Kikic
nema, neam
sarajevo bih

Član broj: 302699
Poruke: 7
31.176.174.*

Profil

Re: Pomoc oko programa u Visual Basic 2008

^{13.05.2012. u 17:52 - pre 145 meseci}

haha, fino receno

Nisam uposte znao za ovo, jbg tek sam poceo, znam samo osnovno,
kolko sam svatio ovo sluzi za upravljane stringom, ali kako sad putem ovoga
prevrnut radnju,
tj. Da recenicu ispisuje velikim slovima osim pocetnog slova svake rijeci

Odgovor na temu

ventura

Član broj: 32
Poruke: 7781
*.dynamic.sbb.rs.

+6455 Profil

Re: Pomoc oko programa u Visual Basic 2008

^{13.05.2012. u 21:26 - pre 145 meseci}

Hoćeš sva slova stringa da budu velika?

Za to koristiš VbStrConv, pa mu onda daš tip konverzije koji želiš, npr.

Originalan string:
ovo jE neki tamo STRing koji treba prOMeniti

ProperCase (TitleCase):
Ovo Je Neki Tamo String Koji Treba Promeniti

UpperCase:
OVO JE NEKI TAMO STRING KOJI TREBA PROMENITI

LowerCase:
ovo je neki tamo string koji treba promeniti

Odgovor na temu

Enver Kikic
nema, neam
sarajevo bih

Član broj: 302699
Poruke: 7
31.176.131.*

Profil

Re: Pomoc oko programa u Visual Basic 2008

^{14.05.2012. u 07:03 - pre 145 meseci}

ne, da svako pocetno slovo ispisuje malim, a ostala velikim,
da li se to moze prego strconv ??

Odgovor na temu