[ Mr.Joker @ 07.05.2012. 09:29 ] @
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 ? |