none
Soma por Botões. RRS feed

  • Pergunta

  • Boas pessoal!

    É possível ter por exemplo 3 botões e uma text box e ao clicar em cada um dos botões aparece a soma entre eles na text box?

    tipo clicar no botão 1 e 2.

    butao1 = 2,00

    butao2 = 1,00

    e na text box aparecer 3,00

     

    Espero ter sido explicito!

    Desde ja obrigado

     



    quinta-feira, 31 de março de 2011 21:40

Respostas

  • Sim e possivel fazer isto

     

     

     Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click

            Me.Button8.Text = "2,00"

     

            If Me.TextBox1.Text.Length = 0 Then

                TextBox1.Text = Me.Button8.Text

            Else

     

                TextBox1.Text = Val(TextBox1.Text) + Val(Button8.Text)

     

            End If

     

        End Sub

     

        Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click

            Me.Button9.Text = "1,00"

            If Me.TextBox1.Text.Length <> 0 Then

     

                TextBox1.Text = Val(Me.TextBox1.Text) + Val(Button9.Text.ToString())

     

            Else

     

                TextBox1.Text = Me.Button9.Text

     

            End If

        End Sub

     

     


    Just Be Humble Malange!

    quinta-feira, 31 de março de 2011 21:52
    Moderador
  • Pra o dinheiro vais de pegar a coltura brazileiro, eu estou na englaterra, nao sei muito sobre a voce mueda:

        Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click

            Dim producto As String = "Coca Cola"

            Me.Button8.Text = "2.00"

            'Dim formato As String = FormatCurrency(Button8.Text, , , TriState.True, TriState.True)

            If Me.TextBox1.Text.Length <> 0 Then

                TextBox1.Text = Val(TextBox1.Text) + Val(Button8.Text)

                ListBox1.Items.Add(producto & " " & Button8.Text)

     

     

            Else

                TextBox1.Text = Button8.Text

                ListBox1.Items.Add(producto & " " & Button8.Text)

     

            End If

     

        End Sub

     

        Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click

            Dim producto As String = "Fanta"

            Me.Button9.Text = "0.50"

            'Dim formato As String = FormatCurrency(Button9.Text, , , TriState.True, TriState.True)

            If Me.TextBox1.Text.Length <> 0 Then

                TextBox1.Text = Val(TextBox1.Text) + Val(Button9.Text)

                ListBox1.Items.Add(producto + " " + Button9.Text)

     

            Else

                TextBox1.Text = Button9.Text

                ListBox1.Items.Add((producto & " " & Button9.Text))

     

            End If

        End Sub

     

        Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click

            Dim producto As String = "Fanta"

            Me.Button10.Text = "3.00"

            'Dim formato As String = FormatCurrency(Button10.Text, , , TriState.True, TriState.True)

            If Me.TextBox1.Text.Length <> 0 Then

                TextBox1.Text = Val(TextBox1.Text) + Val(Button10.Text)

                ListBox1.Items.Add(producto & " " & Button10.Text)

     

            Else

                TextBox1.Text = Button10.Text

                ListBox1.Items.Add(producto & " " & Button10.Text)

            End If

        End Sub

     

        Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click, MyBase.Load

            Dim producto As String = "Arroz"

            Me.Button11.Text = "1.00"

            Dim formato As String = FormatCurrency(Button11.Text, , , TriState.True, TriState.True)

            If Me.TextBox1.Text.Length <> 0 Then

     

                TextBox1.Text = Val(TextBox1.Text) + Val(Button11.Text)

                ListBox1.Items.Add(producto & " " & Button11.Text)

     

     

            Else

                TextBox1.Text = Button11.Text

                ListBox1.Items.Add(producto & " " & Button11.Text)

            End If

     

        End Sub


    Just Be Humble Malange!
    • Marcado como Resposta Miguel Miranda sexta-feira, 1 de abril de 2011 22:05
    sexta-feira, 1 de abril de 2011 21:07
    Moderador

Todas as Respostas

  • Sim e possivel fazer isto

     

     

     Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click

            Me.Button8.Text = "2,00"

     

            If Me.TextBox1.Text.Length = 0 Then

                TextBox1.Text = Me.Button8.Text

            Else

     

                TextBox1.Text = Val(TextBox1.Text) + Val(Button8.Text)

     

            End If

     

        End Sub

     

        Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click

            Me.Button9.Text = "1,00"

            If Me.TextBox1.Text.Length <> 0 Then

     

                TextBox1.Text = Val(Me.TextBox1.Text) + Val(Button9.Text.ToString())

     

            Else

     

                TextBox1.Text = Me.Button9.Text

     

            End If

        End Sub

     

     


    Just Be Humble Malange!

    quinta-feira, 31 de março de 2011 21:52
    Moderador
  • Excelente Malange, era mesmo isto que queria! obrigado

    só uma duvida e se quiser fazer isso em mais dois botões?

    fica bem!

    sexta-feira, 1 de abril de 2011 09:57
  • Excelente Malange, era mesmo isto que queria! obrigado

    só uma duvida e se quiser fazer isso em mais dois botões?

    fica bem!

    Espera vou testar o codigo, como queres fazer?

     o procedimento e o mesmo?

     


    Just Be Humble Malange!
    sexta-feira, 1 de abril de 2011 16:45
    Moderador
  • vou passa a explicar o que quero na totalidade.

    Tenho um form com muitos botoes no qual cada botao destina-se a um produto e depois tenho uma texto box que apresenta a soma dos produtos selecionado.

    depois quero meter uma listbox, que servira para mostar o produto e o seu preço! por exemplo clicas no botao1, e na listbox aparece "coca-cola   0.80€".

    o codigo que me deste funcionou bem mas nao sei como fazer para todos os botoes!

     

    desde ja agradeço!

    fica bem!

     


    sexta-feira, 1 de abril de 2011 17:26
  • E So fazer assim, nao importa quantos botoes tu tens a logica e a mesma. 

     Me.Button8.Text = "2,00"

     

            If Me.TextBox1.Text.Length = 0 Then

                TextBox1.Text = Me.Button8.Text

                ListBox1.Items.Add(Button8.Text)

            Else

     

                TextBox1.Text = Val(TextBox1.Text) + Val(Button8.Text)

     

            End If

     

        End Sub

     

        Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click

            Me.Button9.Text = "1,00"

            If Me.TextBox1.Text.Length <> 0 Then

                ListBox1.Items.Add(Button9.Text)

     

                TextBox1.Text = Val(Me.TextBox1.Text) + Val(Button9.Text.ToString())

     

            Else

     

                TextBox1.Text = Me.Button9.Text

     

            End If

        End Sub

     

        Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click

            Me.Button10.Text = "1,00"

            If Me.TextBox1.Text.Length <> 0 Then

                ListBox1.Items.Add(Button10.Text)

     

                TextBox1.Text = Val(Me.TextBox1.Text) + Val(Button10.Text.ToString())

     

            Else

     

                TextBox1.Text = Me.Button10.Text

     

            End If

        End Sub

     


    Just Be Humble Malange!
    sexta-feira, 1 de abril de 2011 17:54
    Moderador
  • ola novamente Malange

    mais uma vez muito obrigado, és um espectáculo :)

    bate tudo certo excepto um pequeno pormenor. Na reposta anterior deste este exemplo,  me.button10.text = "1,00" mas se eu colocar me.button10.text="0.50" e em outros botoes com numeros a comecar em zero, na text box aparece zero a fazer a soma dos valores.

    tentei colocar um (.) em vez da (,) mas nao resolvei!

    e só mais outra duvida se não te importares, o que aparece nao listbox é o valor do botão, tipo:

    1,00

    1,00

    2,00

    o que eu pergunto e como faco para aparecer o nome do produto e o preço!

    produto1     1,00

    produto2     1,00

    pruduto3     2,00

     

     

    cumprimentos

    desculpa estar a ser chato :)

     

     

    sexta-feira, 1 de abril de 2011 18:25
  • Onde voce tem escritro o nome dos produtos? no botao ou numa lista?

    o teu botao esta assim: botao1.text="Coca-cola 1.00"?

     


    Just Be Humble Malange!
    sexta-feira, 1 de abril de 2011 18:45
    Moderador
  • É assim o meu form neste momento esta como na imagem abaixo.

    http://img862.imageshack.us/img862/3200/62488891.jpg

    cliquei em todos os botões, e na listbox aparece o valor de cada um, o que eu queria era ao clicar em cada botão fizesse a soma normal e na listbox box em vez de aparecer  só o valor gostaria que aparecesse  o nome do produto e na mesma linha o preço.

    esta imagem e como eu gostaria que ficasse: http://img707.imageshack.us/img707/6837/semttulosr.png

    e se reparares na textbox o valor que aparece e 2 e nao é o valor da soma dos produtos selecionados. mas se eu colocar o valor dos botoes tipo 1,00  em vez de 0,50 ja da o valor correcto

     

    cumprimentos

    sexta-feira, 1 de abril de 2011 19:41
  • Acho que a melhor solucao seria voce usar uma tabela. 

    Cria uma tabelaproductos cria campos como Nome do Producto, Precos.

    Coloca a referencia do producto no campo Nome do Producto e preco no campo Preco.

    na sua imagem ou botao

    faz um select From Tabela where Nome do Producto = codigo.

    depois voce usa a informacao.

    Se nao queres usar tabela usa xml

     


    Just Be Humble Malange!
    sexta-feira, 1 de abril de 2011 19:56
    Moderador
  • ok já percebi e acho uma boa soluçao.

    muito obrigado Malange.

    sexta-feira, 1 de abril de 2011 20:37
  • Pra o dinheiro vais de pegar a coltura brazileiro, eu estou na englaterra, nao sei muito sobre a voce mueda:

        Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click

            Dim producto As String = "Coca Cola"

            Me.Button8.Text = "2.00"

            'Dim formato As String = FormatCurrency(Button8.Text, , , TriState.True, TriState.True)

            If Me.TextBox1.Text.Length <> 0 Then

                TextBox1.Text = Val(TextBox1.Text) + Val(Button8.Text)

                ListBox1.Items.Add(producto & " " & Button8.Text)

     

     

            Else

                TextBox1.Text = Button8.Text

                ListBox1.Items.Add(producto & " " & Button8.Text)

     

            End If

     

        End Sub

     

        Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click

            Dim producto As String = "Fanta"

            Me.Button9.Text = "0.50"

            'Dim formato As String = FormatCurrency(Button9.Text, , , TriState.True, TriState.True)

            If Me.TextBox1.Text.Length <> 0 Then

                TextBox1.Text = Val(TextBox1.Text) + Val(Button9.Text)

                ListBox1.Items.Add(producto + " " + Button9.Text)

     

            Else

                TextBox1.Text = Button9.Text

                ListBox1.Items.Add((producto & " " & Button9.Text))

     

            End If

        End Sub

     

        Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click

            Dim producto As String = "Fanta"

            Me.Button10.Text = "3.00"

            'Dim formato As String = FormatCurrency(Button10.Text, , , TriState.True, TriState.True)

            If Me.TextBox1.Text.Length <> 0 Then

                TextBox1.Text = Val(TextBox1.Text) + Val(Button10.Text)

                ListBox1.Items.Add(producto & " " & Button10.Text)

     

            Else

                TextBox1.Text = Button10.Text

                ListBox1.Items.Add(producto & " " & Button10.Text)

            End If

        End Sub

     

        Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click, MyBase.Load

            Dim producto As String = "Arroz"

            Me.Button11.Text = "1.00"

            Dim formato As String = FormatCurrency(Button11.Text, , , TriState.True, TriState.True)

            If Me.TextBox1.Text.Length <> 0 Then

     

                TextBox1.Text = Val(TextBox1.Text) + Val(Button11.Text)

                ListBox1.Items.Add(producto & " " & Button11.Text)

     

     

            Else

                TextBox1.Text = Button11.Text

                ListBox1.Items.Add(producto & " " & Button11.Text)

            End If

     

        End Sub


    Just Be Humble Malange!
    • Marcado como Resposta Miguel Miranda sexta-feira, 1 de abril de 2011 22:05
    sexta-feira, 1 de abril de 2011 21:07
    Moderador
  • Resultou!!!!!! Obrigado Malange!

    Perfeito, e desculpa ser chato!

    Já agora sou português e pensava que eras brasileiro :)))))

     

    sexta-feira, 1 de abril de 2011 22:08