none
Ajuda com cálculos de venda RRS feed

Respostas

  • bom um exemplo simples para isto é o seguinte 

    add : 5 textbox com os seguintes nomes :

    > txtPreco - preço do sorvete 

    > txtNS - numero de sorvetes que o cliente comprou

    > txtTotal - valor total

    > txtRecebi - valor que recebeu do cliente 

    > txtTroco - troco para dar ao cliente

    add : 2 Buttons

    > btnCValor

    > btnCTroco

    add : 5 Labels 

    segue a baixo uma ideia para sua interface "Simples"

    e aqui segue o código :

    Public Class Form1
        ' Ao carregar o programa o preço do sorvete ja é inserido
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            txtPreco.Text = "0,6"
            txtNS.Text = "1"
        End Sub
        ' Calcula o valor total dos sorvetes que o cliente comprou
        Private Sub btnCValor_Click(sender As Object, e As EventArgs) Handles btnCValor.Click
            txtTotal.Text = txtPreco.Text * txtNS.Text
        End Sub
        ' Calcula o troco para dar ao cliente
        Private Sub btnCTroco_Click(sender As Object, e As EventArgs) Handles btnCTroco.Click
            txtTroco.Text = txtRecebi.Text - txtTotal.Text
        End Sub
    End Class

    fiz o mais detalhado possivel , espero q tenha ajudado 

    OBS: Se o seu windows é PORTUGUES, tu usa virgula pros numeros decimais

    Se for ingles tu usa o ponto 

    ;)


    AleSaggiorato

    terça-feira, 8 de janeiro de 2013 00:54

Todas as Respostas

  • bom um exemplo simples para isto é o seguinte 

    add : 5 textbox com os seguintes nomes :

    > txtPreco - preço do sorvete 

    > txtNS - numero de sorvetes que o cliente comprou

    > txtTotal - valor total

    > txtRecebi - valor que recebeu do cliente 

    > txtTroco - troco para dar ao cliente

    add : 2 Buttons

    > btnCValor

    > btnCTroco

    add : 5 Labels 

    segue a baixo uma ideia para sua interface "Simples"

    e aqui segue o código :

    Public Class Form1
        ' Ao carregar o programa o preço do sorvete ja é inserido
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            txtPreco.Text = "0,6"
            txtNS.Text = "1"
        End Sub
        ' Calcula o valor total dos sorvetes que o cliente comprou
        Private Sub btnCValor_Click(sender As Object, e As EventArgs) Handles btnCValor.Click
            txtTotal.Text = txtPreco.Text * txtNS.Text
        End Sub
        ' Calcula o troco para dar ao cliente
        Private Sub btnCTroco_Click(sender As Object, e As EventArgs) Handles btnCTroco.Click
            txtTroco.Text = txtRecebi.Text - txtTotal.Text
        End Sub
    End Class

    fiz o mais detalhado possivel , espero q tenha ajudado 

    OBS: Se o seu windows é PORTUGUES, tu usa virgula pros numeros decimais

    Se for ingles tu usa o ponto 

    ;)


    AleSaggiorato

    terça-feira, 8 de janeiro de 2013 00:54
  • Obrigado, solucionou meus problemas!

    marcado como melhor resposta.

    terça-feira, 8 de janeiro de 2013 03:30