Usuário com melhor resposta
Ajuda com cálculos de venda

Pergunta
-
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 Classfiz 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
- Marcado como Resposta Ricardo Maravilha terça-feira, 8 de janeiro de 2013 03:30
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 Classfiz 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
- Marcado como Resposta Ricardo Maravilha terça-feira, 8 de janeiro de 2013 03:30
-