none
Sumar Dos Textbox RRS feed

  • Pregunta

  • Buenos Dìas

    Tengo un problema consulto un cliente del cual tengo dos valores que al llenarlos en los textbox en el tercero me genere la suma de los dos que están llenos he probado varios códigos y ninguno me funciona.

    Agradezco su atención.


    william rueda

    viernes, 18 de diciembre de 2015 16:51

Respuestas

  • Hola;

    Puedes hacer lo siguiente:

    Dim val1 As Integer =0
    Dim val2 As Integer =0
    Dim Val3 as Integer =0
    
    Int32.TryParse(txtValor1.Text, val1)
    Int32.TryParse(txtValor2.Text, val2)
    
    Val3= val1 + val2
    
    Y aplicarías el Val3 o sea la suma, al textbox que recoge el total.

    Un saludo

    Gemma

    domingo, 20 de diciembre de 2015 8:15

Todas las respuestas

  • Hola;

    Puedes hacer lo siguiente:

    Dim val1 As Integer =0
    Dim val2 As Integer =0
    Dim Val3 as Integer =0
    
    Int32.TryParse(txtValor1.Text, val1)
    Int32.TryParse(txtValor2.Text, val2)
    
    Val3= val1 + val2
    
    Y aplicarías el Val3 o sea la suma, al textbox que recoge el total.

    Un saludo

    Gemma

    domingo, 20 de diciembre de 2015 8:15
  • Hola Javier 

    Muchas Gracias Por tu Interés en responder pero no me funciona el resultado me da CERO, mira te expongo mejor.

    Text_Val1 = 9,940,000.00

    Text_Val2 = 6,000,000.00

    y el resultado en el text_Val3 deberia ser 3,940,000.00 pero me genera un valor cero porque sera hice lo que me indicaste pero no me resulto.

    antemano 

    Muchas Gracias


    william rueda

    lunes, 21 de diciembre de 2015 20:20
  • hola, mira puedes probar algo muy sencillo, asigna los textbox a una variable 

    txtextraportarjeta.Text = Val(txtimporte.Text * 0.05)

    a = txtimporte.Text
    b = txtextraportarjeta.Text
    d = a + b

    yo hice esa operacion en un radiobutton que si seleccionaba que era con tarjeta le sumara al importe el extra 

    ojala te pueda ayudar..

    martes, 22 de diciembre de 2015 1:00
  • Hola William:

    El evento que precisas utilizar es el TextChanged tal como te muestro en el ejemplo. Ahí te restará los dos textbox y te pondrá automáticamente el resultado en el tercer textbox.

      Private Sub txtValor1_TextChanged(sender As Object, e As EventArgs) Handles txtValor1.TextChanged
            Me.txtValor3.Text = CStr(Val(txtValor1.Text) - Val(txtValor2.Text))
        End Sub
    
        Private Sub txtValor2_TextChanged(sender As Object, e As EventArgs) Handles txtValor2.TextChanged
            Me.txtValor3.Text = CStr(Val(txtValor1.Text) - Val(txtValor2.Text))
        End Sub

    Un saludo.

    Gemma

    martes, 22 de diciembre de 2015 4:44
  • Hola! Por cierto, soy Pablo.

    Acá te dejo un código.

    Funcionamiento: Al clickear en el botón que dice "Sumar", se suman los valores de los textbox 1 y 2, y se muestra el resultado en un textbox3.

    Public Class Form1
        'Modificar en diseñador:
        'Button1.text = "Sumar"
    
        'Botón 1.Click = Sumar
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            'Try es el control de errores
            Try
                'TextBox3 es donde se muestra el resultado
                'TextBox 1 y 2 son las cajas que contienen los números a sumar
    
                'El texto es de solo lectura
                TextBox3.ReadOnly = True
                'El color de fondo es blanco
                TextBox3.BackColor = Color.White
                'Sumar
                'Resultado    =  Numero             +   Número
                TextBox3.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text)
    
            Catch ex As Exception
                'Al ocurrir un error:
                MsgBox("Ha surgido un error.")  'Mostrar un mensaje
                TextBox3.Text = "Error"         'Escribir 'Error' en resultado
            End Try
        End Sub
    End Class
    

    Espero haberte ayudado, sino me dices. Byte!

    martes, 22 de diciembre de 2015 5:37