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
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
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 ?