Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic.NET » suma de textbox visual basic (tiempo real)

Visual Basic.NET - suma de textbox visual basic (tiempo real)

Volver
Nuevo Tema
<<>>
 
Vista:

suma de textbox visual basic (tiempo real)

Publicado por German mejia vieco (1 intervención) el 04/04/2011 04:33:09
hola a ver si me pueden ayudar....en visual basic 2008 tengo 5 textbox...

textbox1
textbox2
textbox3
textbox4
textbox5

ahora quiero realizar una suma..... pero de los numeros en si..... y darle el formato 000.000 con este codigo en cada textbox...

TextBox1.Text = FormatNumber(CDbl(TextBox1.Text), 0)
TextBox2.Text = FormatNumber(CDbl(TextBox2.Text), 0)
TextBox3.Text = FormatNumber(CDbl(TextBox3.Text), 0)
TextBox4.Text = FormatNumber(CDbl(TextBox4.Text), 0)
TextBox5.Text = FormatNumber(CDbl(TextBox5.Text), 0)

ahora quiero realizar la suma de los primeros 4 textbox y que el resultado salga en el 5 textbox... para ellos el codigo que tengo es el siguiente...

TextBox5.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text) + CDbl(TextBox3.Text) + CDbl(TextBox4.Text) + CDbl(TextBox5.Text)

ahora yo quiero que por ejemplo copio un numero en el textbox 1 y ahi mismo salga el resutado en el textbox 5... y asi sucesivamente si copio otro numero en el 2 salga de una la suma que lleva.... y asi sucesivamente.... y si edito tambien pase lo mismo

lo que pasa en este momento es que yo tengo que poner los valores en los primeros cuatro textbox primero... y para que me de el resultado tengo que pasar o undir tabulado en el 5 para que me de el resultado....

agradeceria mucho cualquier ayuda... gracias...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

suma de textbox visual basic (tiempo real)

Publicado por A.F.G.S. (47 intervenciones) el 04/04/2011 11:14:12
Hola, lo que tienes que hacer es crear una funcion que haga la suma y en la propiedad TextChanged de cada TextBox llamar esa funcion.

Un Saludo, Antonio F. Gutierrez.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

suma de textbox visual basic (tiempo real)

Publicado por Ermitanio Valderrama Ruiz (1 intervención) el 19/11/2017 23:51:21
Este código lo encontré en la red y su autor es Don_Hard

http://www.foro.vb-mundo.com/forum/programacion/visual-basic-net/19682-suma-de-texbox-en-tiempo-real?p=123843#post123843

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Re: Suma de texbox en tiempo real

Mira la forma correcta de hacer eso seria mas o menos asi, pero te dejo los siguientes problemas para que resuelvas solito:

Evitar caracteres incorrectos como letras y simbolos.
Evitar el exeso de caculo por numeros monstruosamente grandes.
Darle formato.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Public Sub Cuadros_De_Suma() Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged, TextBox4.TextChanged
 
Dim cu1 As Decimal = 0
Dim cu2 As Decimal = 0
Dim cu3 As Decimal = 0
Dim cu4 As Decimal = 0
 
If TextBox1.Text <> Nothing Then
cu1 = CDec(TextBox1.Text)
End If
 
If TextBox2.Text <> Nothing Then
cu2 = CDec(TextBox2.Text)
End If
 
If TextBox3.Text <> Nothing Then
cu3 = CDec(TextBox3.Text)
End If
 
If TextBox4.Text <> Nothing Then
cu4 = CDec(TextBox4.Text)
End If
 
TextBox5.Text = (cu1 + cu2 + cu3 + cu4).ToString
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

suma de textbox visual basic (tiempo real)

Publicado por Linbar (1 intervención) el 11/05/2020 03:09:04
Me sirvió de mucho tu código. Deseo seguirte y si me brindas donde sería genial.

Solo quiero saber como puedo reducir todo esto. En la programación si me funciona.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
Public Sub Cuadros_De_Suma() Handles TextBoxPro1.TextChanged, TextBoxPro2.TextChanged, TextBoxPro3.TextChanged, TextBoxPro4.TextChanged, TextBoxPro5.TextChanged
    Dim cod1 As Integer = Val(ComboBoxPro1.SelectedValue.ToString)
    Dim cod2 As Integer = Val(ComboBoxPro2.SelectedValue.ToString)
    Dim cod3 As Integer = Val(ComboBoxPro3.SelectedValue.ToString)
    Dim cod4 As Integer = Val(ComboBoxPro4.SelectedValue.ToString)
    Dim cod5 As Integer = Val(ComboBoxPro5.SelectedValue.ToString)
 
 
 
    Dim adaptador As New OleDb.OleDbDataAdapter
    Dim lector As OleDb.OleDbDataReader
    Dim comandos As OleDb.OleDbCommand
    Dim consulta As String
 
    Dim total1 As Integer
    Dim total2 As Integer
    Dim total3 As Integer
    Dim total4 As Integer
    Dim total5 As Integer
 
    Dim num As Integer
 
 
    If TextBoxPro1.Text <> Nothing Then
        conn.Open()
        consulta = "SELECT * FROM tb_stock WHERE Id_stock=" & cod1
        comandos = New OleDb.OleDbCommand(consulta, conn)
        adaptador.SelectCommand = comandos
        lector = comandos.ExecuteReader
 
        lector.Read()
        Dim precio1 = lector(4)
        num = CDec(TextBoxPro1.Text)
        total1 = precio1 * num
        conn.Close()
    End If
 
    If TextBoxPro2.Text <> Nothing Then
        conn.Open()
        consulta = "SELECT * FROM tb_stock WHERE Id_stock=" & cod2
        comandos = New OleDb.OleDbCommand(consulta, conn)
        adaptador.SelectCommand = comandos
        lector = comandos.ExecuteReader
 
        lector.Read()
        Dim precio2 = lector(4)
        num = CDec(TextBoxPro2.Text)
        total2 = precio2 * num
        conn.Close()
    End If
 
    If TextBoxPro3.Text <> Nothing Then
        conn.Open()
        consulta = "SELECT * FROM tb_stock WHERE Id_stock=" & cod3
        comandos = New OleDb.OleDbCommand(consulta, conn)
        adaptador.SelectCommand = comandos
        lector = comandos.ExecuteReader
 
        lector.Read()
        Dim precio3 As Decimal = lector(4)
        num = CDec(TextBoxPro3.Text)
        total3 = precio3 * num
        conn.Close()
    End If
 
    If TextBoxPro4.Text <> Nothing Then
        conn.Open()
        consulta = "SELECT * FROM tb_stock WHERE Id_stock=" & cod4
        comandos = New OleDb.OleDbCommand(consulta, conn)
        adaptador.SelectCommand = comandos
        lector = comandos.ExecuteReader
 
        lector.Read()
        Dim precio4 As Decimal = lector(4)
        num = CDec(TextBoxPro4.Text)
        total4 = precio4 * num
        conn.Close()
    End If
 
    If TextBoxPro5.Text <> Nothing Then
        conn.Open()
        consulta = "SELECT * FROM tb_stock WHERE Id_stock=" & cod5
        comandos = New OleDb.OleDbCommand(consulta, conn)
        adaptador.SelectCommand = comandos
        lector = comandos.ExecuteReader
 
        lector.Read()
        Dim precio5 As Decimal = lector(4)
        num = CDec(TextBoxPro5.Text)
        total5 = precio5 * num
        conn.Close()
    End If
 
 
    TextBoxTotal.Text = (total1 + total2 + total3 + total4 + total5).ToString
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar