criar contador

ola boa noite

Estou a tentar desenvolver em visual basic.Net um programa que simule uma vending machine de cholocates. Está a funcionar tudo ok mas agora queria instalar um contador de moedas para controlar o número de moedas existentes na máquina para verificar se tem ou não possibilidade de efectuar o troco, e nao estou a conseguir, já experimentei mil e uma maneira e não deu. Quem me poderia ajudar?

o codigo que tenho é este, como instalo aqui o contador, aliás deverá ser um contador para cada moeda certo?

Public

Class Vending

Dim MoedasInt AsDouble

Dim Moeda2 AsDouble

Dim Moeda1 AsDouble

Dim Moeda05 AsDouble

Dim Moeda02 AsDouble

Dim Moeda01 AsDouble

Dim Moeda005 AsDouble

PrivateSub BtnLion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLion.Click

LblPreco.Text =

"Introduza € "

Dim lion AsDouble

lion = 0.75

TextBoxPreco.Text = lion

EndSub

PrivateSub BtnTwix_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTwix.Click

LblPreco.Text =

"Introduza € "

Dim twix AsDouble

twix = 0.8

TextBoxPreco.Text = twix

EndSub

PrivateSub BtnMars_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMars.Click

LblPreco.Text =

"Introduza € "

Dim mars AsDouble

mars = 0.8

TextBoxPreco.Text = mars

EndSub

PrivateSub BtnSkittles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSkittles.Click

LblPreco.Text =

"Introduza € "

Dim stikkles AsDouble

stikkles = 0.75

TextBoxPreco.Text = stikkles

EndSub

PrivateSub BtnMMS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMMS.Click

LblPreco.Text =

"Introduza € "

Dim mms AsDouble

mms = 0.7

TextBoxPreco.Text = mms

EndSub

PrivateSub BtnSnikers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSnikers.Click

LblPreco.Text =

"Introduza € "

Dim snikers AsDouble

snikers = 0.75

TextBoxPreco.Text = snikers

EndSub

PrivateSub BtnKitkat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKitkat.Click

LblPreco.Text =

"Introduza € "

Dim kitkat AsDouble

kitkat = 0.75

TextBoxPreco.Text = kitkat

EndSub

PrivateSub BtnKinder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKinder.Click

LblPreco.Text =

"Introduza € "

Dim kinder AsDouble

kinder = 0.8

TextBoxPreco.Text = kinder

EndSub

PrivateSub BtnComprar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnComprar.Click

Dim custo, troco AsSingle

MoedasInt = TextBoxValor.Text

custo = TextBoxPreco.Text

TextBoxTroco.Text = MoedasInt - custo

Lbltroco.Text =

"Toco €"

If MoedasInt < custo Then

MessageBox.Show(

"Introduza mais moedas", "Quantia Inv lida", MessageBoxButtons.OK, MessageBoxIcon.Information)

Else

If MoedasInt > custo Then

troco = MoedasInt - custo

Moeda2 = Int(troco / 2)

troco = troco

Mod 2

Moeda1 = Int(troco / 1)

troco = troco

Mod 1

Moeda05 = Int(troco / 0.5)

troco = troco - (Moeda05 * 0.5)

Moeda02 = Int(troco / 0.2)

troco = troco - (Moeda02 * 0.2)

Moeda01 = Int(troco / 0.1)

troco = troco

Mod 0.1

Moeda005 = Int(troco / 0.05)

troco = troco

Mod 0.05

txb2.Text = Moeda2

txb1.Text = Moeda1

txb05.Text = Moeda05

txb02.Text = Moeda02

txb01.Text = Moeda01

txb005.Text = Moeda005

EndIf

EndSub

PrivateSub Btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn2.Click

LblValor.Text =

"Introduziu € "

Moeda2 = 2

MoedasInt = MoedasInt + 2

TextBoxValor.Text = MoedasInt

EndSub

PrivateSub Btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn1.Click

LblValor.Text =

"Introduziu € "

Moeda1 = 1

MoedasInt = MoedasInt + 1

TextBoxValor.Text = MoedasInt

EndSub

PrivateSub Btn50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn50.Click

LblValor.Text =

"Introduziu € "

Moeda05 = 0.5

MoedasInt = MoedasInt + 0.5

TextBoxValor.Text = MoedasInt

EndSub

PrivateSub Btn20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn20.Click

LblValor.Text =

"Introduziu € "

Moeda02 = 0.2

MoedasInt = MoedasInt + 0.2

TextBoxValor.Text = MoedasInt

EndSub

PrivateSub Btn10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn10.Click

LblValor.Text =

"Introduziu € "

Moeda01 = 0.1

MoedasInt = MoedasInt + 0.1

TextBoxValor.Text = MoedasInt

EndSub

PrivateSub Btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn5.Click

LblValor.Text =

"Introduziu € "

Moeda005 = 0.05

MoedasInt = MoedasInt + 0.05

TextBoxValor.Text = MoedasInt

EndSub

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBoxPreco.Text =

TextBoxValor.Text =

TextBoxTroco.Text =

txb2.Text =

txb1.Text =

txb05.Text =

txb02.Text =

txb01.Text =

txb005.Text =

MoedasInt = 0

EndSub

PrivateSub BtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClose.Click

If MessageBox.Show("Tem a certeza que deseja fechar a aplica‡Æo?", "Sa¡da", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Yes Then

Me.Close()

EndIf

EndSub

End

Class

Latest Images

Trending Articles

Latest Images