|
I have a an extra credit assignment. it is a calculator that you enter the amount of pennies & hit calculate & it has 5 dispaly labels, dollar,quarter,dimes,nickel,pennies. We have to use integer as the variables & integer division and/or mod operator & just 1 tyrparse statement. here is what I have, but does not work on all number combinations. Can anyone help?
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub ExitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitButton.Click 'closes the form Me.Close() End Sub
Private Sub NumberofPenniesTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumberofPenniesTextBox.TextChanged 'Clears the number of pennies textbox when selection changed Me.DollarsResultLabel.Text = "" Me.QuarterResultLabel.Text = "" Me.DimesResultLabel.Text = "" Me.NickelsResultLabel.Text = "" Me.PenniesResultLabel.Text = ""
End Sub
Private Sub CalculateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculateButton.Click Dim numberofpennies As Integer Integer.TryParse(Me.NumberofPenniesTextBox.Text, numberofpennies) Me.DollarsResultLabel.Text = numberofpennies \ 100 Me.QuarterResultLabel.Text = numberofpennies Mod 4 Me.DimesResultLabel.Text = numberofpennies Mod 3 Me.NickelsResultLabel.Text = numberofpennies Mod 2 Me.PenniesResultLabel.Text = numberofpennies Mod 5
End Sub End Class
|