[ 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

[ mish_ns @ 10.09.2012. 07:19 ] @
Pozdrav.
Mozda ti ovo da ideju.

Code:

   Dim operand1 As Integer
    Dim operand2 As Integer
    Dim duzOperanda1 As Integer
    Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
        tbDisplej.Text += "1"
    End Sub

    Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
        tbDisplej.Text += "2"
    End Sub

    Private Sub btnPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlus.Click
        operand1 = tbDisplej.Text
        duzOperanda1 = tbDisplej.TextLength
        tbDisplej.Text += "+"
    End Sub

    Private Sub btnJednako_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnJednako.Click
        operand2 = tbDisplej.Text.Substring(duzOperanda1)
        tbDisplej.Text = operand1 + operand2
        'tbDisplej.Text = ""
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        tbDisplej.Text = ""
    End Sub
[ CORSA @ 10.09.2012. 20:42 ] @
Najljepša hvala,da, to je to !
Sad idem proučiti kako si to izveo.