[es] - Kalkulator problem

Mr.Joker
Aleksandar Arsic
Srbija

Član broj: 296844
Poruke: 42
77.243.20.*

+1 Profil

^{07.05.2012. u 09:29 - pre 145 meseci}

Pokušavam sam napraviti jedan kalkulator i sada ne želim dva textbox-a i jednostavno sračunavanje. Želim nešto kao što ima Windows-ov kalkulator , a to je princip dodavanja brojeva unutar TextBox-a i na kraju izvodjenje tih matematičkih operacija. E tu se javlja problem. Ja do sada imam ovakav kod:

Code:
    Private Sub nula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nula.Click
        TextBox1.Text = TextBox1.Text & 0
    End Sub

    Private Sub jedan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jedan.Click
        TextBox1.Text = TextBox1.Text & 1
    End Sub

    Private Sub dva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dva.Click
        TextBox1.Text = TextBox1.Text & 2
    End Sub

    Private Sub tri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tri.Click
        TextBox1.Text = TextBox1.Text & 3
    End Sub

    Private Sub cetri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cetri.Click
        TextBox1.Text = TextBox1.Text & 4
    End Sub

    Private Sub pet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pet.Click
        TextBox1.Text = TextBox1.Text & 5
    End Sub

    Private Sub sest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sest.Click
        TextBox1.Text = TextBox1.Text & 6
    End Sub

    Private Sub sedam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sedam.Click
        TextBox1.Text = TextBox1.Text & 7
    End Sub

    Private Sub osam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles osam.Click
        TextBox1.Text = TextBox1.Text & 8
    End Sub

    Private Sub devet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles devet.Click
        TextBox1.Text = TextBox1.Text & 9
    End Sub

    Private Sub sabiranje_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sabiranje.Click
        TextBox1.Text = TextBox1.Text & "+"
    End Sub

    Private Sub oduzimanje_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles oduzimanje.Click
        TextBox1.Text = TextBox1.Text & "-"
    End Sub

    Private Sub mnozenje_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnozenje.Click
        TextBox1.Text = TextBox1.Text & "*"
    End Sub

    Private Sub deljenje_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deljenje.Click
        TextBox1.Text = TextBox1.Text & "/"
    End Sub

Na ovaj način rešava problem dodavanja brojeva, kao i matematičkih znakova untuar TextBox-a. To nije bio problem. Problem je kako uzeti sada brojeve iz TextBox-a tako da izvučem samo brojeve odvojene od znakova. Ja sam probao ovako:

Code:
Dim brojevi() As Integer = Split(TextBox1.Text, "+")

End Sub

Medjutim, tu se javlja greška:
Error 1 Value of type '1-dimensional array of String' cannot be converted to '1-dimensional array of Integer' because 'String' is not derived from 'Integer'. C:\Users\moj racunar\documents\visual studio 2010\Projects\Matematicar\Matematicar\Form1.vb 60 36 Matematicar

S toga, mi postaje jasno da iz TextBox-a samogu izvući vrednosti kao string što meni ne treba. Ali ako je to jedini način kako onda mogu pretvoriti string u integer. I još nešto. Ovo sa plusem je jedan primer, ali neće svako samo sabirati, neko će izvršavati više matematičkih operacija odjednom, kako onda da izvršim split ?

Odgovor na temu