I figured it out but it seems like there would be an easier way than the code I used below:
CODE
'declare variables
Dim intDollars As Integer
Dim intQuarters As Integer
Dim intDimes As Integer
Dim intNickels As Integer
Dim intPennies As Integer
' Calculate and display the total number of dollars, quarters, dimes, nickels and pennies
Integer.TryParse(txtNumberPennies.Text, intDollars)
intDollars = txtNumberPennies.Text \ 100
lblDollarsCalc.Text = Convert.ToString(intDollars)
Integer.TryParse(txtNumberPennies.Text, intQuarters)
intQuarters = (txtNumberPennies.Text - lblDollarsCalc.Text * 100) \ 25
lblQuartersCalc.Text = Convert.ToString(intQuarters)
Integer.TryParse(txtNumberPennies.Text, intDimes)
intDimes = (txtNumberPennies.Text Mod 25) \ 10
lblDimesCalc.Text = Convert.ToString(intDimes)
Integer.TryParse(txtNumberPennies.Text, intNickels)
intNickels = (txtNumberPennies.Text - (lblDollarsCalc.Text * 100) - (lblQuartersCalc.Text * 25) - (lblDimesCalc.Text * 10)) \ 5
lblNickelsCalc.Text = Convert.ToString(intNickels)
Integer.TryParse(txtNumberPennies.Text, intPennies)
intPennies = (txtNumberPennies.Text - (lblDollarsCalc.Text * 100) - (lblQuartersCalc.Text * 25) - (lblDimesCalc.Text * 10) - (lblNickelsCalc.Text * 5)) \ 1
lblPenniesCalc.Text = Convert.ToString(intPennies)
End Sub
QUOTE(kardana @ 24 Sep, 2009 - 05:12 AM)
I am a beginner (only 3 weeks) in Visual Basic and am having trouble with the pennies calculator. I need to create an application which should calculate the number of dollars, quarters, dimes, nickels and pennies a person will receive when they cash in the pennies at a bank.
Eveything seems to be working fine except the nickles.... Does anyone have any hints for me?
CODE
Option Explicit On
Option Strict Off
Option Infer Off
Public Class frmMain
Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblPennies.Click
End Sub
Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblQuarters.Click
End Sub
Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblDimes.Click
End Sub
Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblNickels.Click
End Sub
Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblDollars.Click
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
'closes application'
Me.Close()
End Sub
Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
'calculates number of dollars, quarters, dimes, nickels and pennies
'declare variables
Dim intDollars As Integer
Dim intQuarters As Integer
Dim intDimes As Integer
Dim intNickels As Integer
Dim intPennies As Integer
' Calculate and display the total number of dollars, quarters, dimes, nickels and pennies
Integer.TryParse(txtNumberPennies.Text, intDollars)
intDollars = txtNumberPennies.Text \ 100
lblDollarsCalc.Text = Convert.ToString(intDollars)
Integer.TryParse(txtNumberPennies.Text, intQuarters)
intQuarters = (txtNumberPennies.Text - lblDollarsCalc.Text * 100) \ 25
lblQuartersCalc.Text = Convert.ToString(intQuarters)
Integer.TryParse(txtNumberPennies.Text, intDimes)
intDimes = (txtNumberPennies.Text Mod 25) \ 10
lblDimesCalc.Text = Convert.ToString(intDimes)
Integer.TryParse(txtNumberPennies.Text, intNickels)
intNickels = (txtNumberPennies.Text Mod 10) \ 5
lblNickelsCalc.Text = Convert.ToString(intNickels)
Integer.TryParse(txtNumberPennies.Text, intPennies)
intPennies = (txtNumberPennies.Text Mod 5) \ 1
lblPenniesCalc.Text = Convert.ToString(intPennies)
End Sub
Forum Index:
Programming Help |
C and C++ |
VB6 |
Java |
VB.NET |
C# |
ASP.NET |
PHP |
ColdFusion |
Perl and Python |
Ruby |
Databases |
Other Languages |
Game Programming |
Mobile Development |
Software Development |
Computer Science |
Industry News |
Programming Tutorials |
C++ Tutorials |
Visual Basic Tutorials |
Java Tutorials |
VB.NET Tutorials |
C# Tutorials |
Linux Tutorials |
PHP Tutorials |
ColdFusion Tutorials |
Windows Tutorials |
HTML/JavaScript Tutorials |
CSS Tutorials |
Flash Tutorials |
Web Promotion Tutorials |
Graphic Design & Photoshop Tutorials |
Software Development Tutorials |
Database Tutorials |
Other Language Tutorials |
ASP.NET Tutorials |
Game Programming Tutorials |
WPF & Silverlight Tutorials |
24 Sep, 2009 - 05:12 AM
| 
