none
Como posso programar uma textbox para somar valores de várias textbox? RRS feed

  • Pergunta

  • eu já tentei: textboxtotal.text = Cdbl(textbox1.text)+Cdbl(textbox2.text)+Cdbl(textbox3.text)+... mas n funcionou, e sim os resultados das textbox são em formato double por isso coloquei o Cdbl

    já tentei tb criar variáveis, ex:  val1, val 2, val3 e botei val1 = Cdbl(textbox1.text)  e assim por diante, e tentei somar essas variáveis nessa textboxtotal mas n funcionou também! alguém tem alguma ideia?

    quarta-feira, 20 de junho de 2018 18:22

Respostas

  • Boa noite, bom se eu entendi bem vc quer somar ++++ e as "TextBoxs" são Double, faça desta forma.

    Codigo

    Public Class Form1
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
          
        End Sub
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim Total1 As Double = Convert.ToDouble(Me.TextBox1.Text)
            Dim Total2 As Double = Convert.ToDouble(Me.TextBox2.Text)
            Dim Total3 As Double = Convert.ToDouble(Me.TextBox3.Text)
            Dim TotalFinal As Double = (Total1) + (Total2) + (Total3)
            MsgBox(TotalFinal)
        End Sub
    End Class
    

    Foto

    Lembrando que double usa ",,," virgula, não ponto "...." 10,50 não 10.50

    quarta-feira, 20 de junho de 2018 23:49

Todas as Respostas

  • Tente assim:

    textboxtotal.text = Cstr(Cdbl(textbox1.text)+Cdbl(textbox2.text)+Cdbl(textbox3.text))


    MARIANO1776

    quarta-feira, 20 de junho de 2018 20:47
  • Eu tentei, mas nada :(, porque ele diz que é redundante usar o cdbl porque o texto da textbox já e um tipo de dado double... ai não sei porque não somaria diretamente

    quarta-feira, 20 de junho de 2018 22:04
  • Poste seu código completo para vermos.

    MARIANO1776

    quarta-feira, 20 de junho de 2018 23:15
  • Boa noite, bom se eu entendi bem vc quer somar ++++ e as "TextBoxs" são Double, faça desta forma.

    Codigo

    Public Class Form1
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
          
        End Sub
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim Total1 As Double = Convert.ToDouble(Me.TextBox1.Text)
            Dim Total2 As Double = Convert.ToDouble(Me.TextBox2.Text)
            Dim Total3 As Double = Convert.ToDouble(Me.TextBox3.Text)
            Dim TotalFinal As Double = (Total1) + (Total2) + (Total3)
            MsgBox(TotalFinal)
        End Sub
    End Class
    

    Foto

    Lembrando que double usa ",,," virgula, não ponto "...." 10,50 não 10.50

    quarta-feira, 20 de junho de 2018 23:49
  • Boa noite.

    Resolveu seu problema?


    MARIANO1776

    domingo, 1 de julho de 2018 20:42
  • Boa tarde,

    Por falta de retorno essa thread está encerrada.

    Se necessário, favor abrir uma nova thread.

    Atenciosamente.

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    quarta-feira, 1 de agosto de 2018 19:27
    Moderador