Calculadora

[Rick_son]

Ola

fiz uma calculadora assim :

Dim numero1 As Double
        Dim numero2 As Double

        Dim resultado As Double


        numero1 = Val(TextBox1.Text)
        numero2 = Val(TextBox2.Text)

        resultado = numero1 + numero2

        ListBox1.Items.Add(numero1 & " + " & numero2 & " = " & resultado)

Assim "tenho 2 TextBox" o resultado vai aparecer em uma listBox. Deu tudo certo.

Mas se eu quiser colocar um valor no TextBox1, fazer ele sumir e somar outro valor no mesmo TextBox e clicar em igual,

qual o código correto do botão + para ele sumir com o valor e adicionar o segundo valor por exemplo. Assim 123,34 + 135,18 = 258,52 tudo deve aparecer no mesmo TextBox.

[Denis Bittencourt Muniz]

Um algoritmo bem simples, na qual você pode se basear:

Public Class Form1
    'guarda soma de valor
    Private soma As Double

    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = "+"c Then
            Try
                soma += CDbl(TextBox1.Text)
                TextBox1.Text = String.Empty
            Catch ex As InvalidCastException
                MessageBox.Show("Número inválido!")
            End Try

            e.Handled = True
        End If
    End Sub

    'exibe resultado e reinicializa a variável que guarda o valor
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show(String.Format("Resultado: {0}", soma))
        soma = 0
    End Sub
End Class