QUOTE(woamatthew @ 27 Mar, 2008 - 08:01 PM)
I was confused with the control that you used. I thought lblowed, lblmoney, etc.. is a Label but when i read the code this is a text box. when you use the prefix lbl, this pertain to the label control. maybe this is your error, if you used label used the property caption instead of text, when displaying a set of string or character.
example.
this is the code when you used label
lblMessage.caption = "Hello world!"
when textboxes is used...
txtMessage.text = "Hello world!"
CODE
Const quarter As Double = 0.25
Const dime As Double = 0.1
Const nickel As Double = 0.05
Const penny As Double = 0.001
Dim bill As Double
Dim cash As Double
Const toonies As Double = 2
Const loonies As Double = 1
bill = txtbill.Text
cash = txtcash.Text
lblOwed.Text = cash - bill
lblmoney.Text = (lblOwed.Text \ 5) * 5
lbltooniesa2.Text = ((lblOwed.Text - lblmoney.Text) \ toonies) * toonies
lbltooniesa1.Text = (lblOwed.Text - lblmoney.Text) \ toonies
lbllooniesa2.Text = ((lblOwed.Text - lblmoney.Text - lbltooniesa2.Text) \ loonies) * loonies
lbllooniesa1.Text = (lblOwed.Text - lblmoney.Text - lbltooniesa2.Text) \ loonies
lblquartersa2.Text = ((lblOwed.Text - lblmoney.Text - lbltooniesa2.Text - lbllooniesa2.Text) / quarter) * quarter
lblquartersa1.Text = (lblOwed.Text - lblmoney.Text - lbltooniesa2.Text - lbllooniesa2.Text) / quarter
lbldimesa2.Text = ((lblOwed.Text - lblmoney.Text - lbltooniesa2.Text - lbllooniesa2.Text - lblquartersa2.Text) / dime) * dime
lbldimesa1.Text = (lblOwed.Text - lblmoney.Text - lbltooniesa2.Text - lbllooniesa2.Text - lblquartersa2.Text) / dime
QUOTE
I made a correction in your code.. The main error of this program is overflow, because the value you supplied in the const variable which is the quarter it has a decimal places, so instead of declaring integer declare it as double data type.
27 Mar, 2008 - 07:01 PM
| 