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