[ CORSA @ 09.09.2012. 20:30 ] @
Poštovani ! Bi li mi izko htio pomoći oko jednog problema. ?? Treba mi kod za VB koji će ubacivati unešene vrijednosti iz Textbox-a u varijablu (var1), a zatim sljedeču unesenu vrijednost postaviti u drugu varijablu(var2) Kako bi ih kasnije mogao zbrojiti. Ovo nije ništa važno već želim saznati kako bi to trebalo izvesti a da moj kalkulator zaživi u svjetlu kakvom ga želim. Želio bi da mi kalkulator piše brojeve u texbox-u npr. 23+ 22 ,a kad pritisnem jednako da se očisti textbox i ispiše samo rezultat. Dakle, prvi broj u (var1=23) i drugi u (var2=22),ali da mi u texbox-u bude ispisano 23+22 Dobijem kako ubaciti vrijednosti u varijable ,ali ne znam kako postići da mi tex ostane u texboxu 23+22 evo mog primjera koda: Code: Dim var1 As Integer Dim var2 As Integer Dim znak As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If znak = ("+") Then TextBox1.Text = var1 + var2 End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = TextBox1.Text & Button2.Text If znak = ("+") Then var2 = TextBox1.Text MsgBox("varijabla 2") Else var1 = TextBox1.Text MsgBox("varijabla 1") End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox1.Text = TextBox1.Text & Button3.Text If znak = ("+") Then var2 = TextBox1.Text MsgBox("varijabla 2") Else var1 = TextBox1.Text MsgBox("varijabla 1") End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click znak = ("+") TextBox1.Text = TextBox1.Text & Button4.Text End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Label1.Text = var1 label2.text = var2 End Sub End Class |