Question

An Introduction to Programming Using Visual Basic Tenth Edition

Chapter 3 Programming Project 3

What is the solution to this project?

Change X Amount of change: 93 Determine Composition of Change Quarters: 3 Dimes: 1 Nickels: 1 Cents: 3 FIGURE 3.63 Possible outcome of Programming Project 3.

Answer 1

Below is the code for this problem. Comments are included so that you understand whats going on. Let me know if you have any doubts or if you need anything to change. Please do give a thumbs up. thanks a lot.

Public Class frmMain
    Private Sub Change_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'disable the textbox on form load
        txtQuarters.Enabled = False
        txtNickels.Enabled = False
        txtDimes.Enabled = False
        txtCents.Enabled = False
    End Sub

    Private Sub btnChange_Click(sender As Object, e As EventArgs) Handles btnChange.Click
        Dim amount As Double 'declaret the variabel
        'check for the correct input
        If Not Double.TryParse(txtAmount.Text, amount) Then
            MessageBox.Show("Enter correct amount")
        Else
            Dim Quarters As Single, Dimes As Single, Nickels As Single, Cents As Single
            'convert the amount to Quarter, dimes, nickles, cents
            Quarters = amount \ 25
            amount = amount Mod 25

            Dimes = amount \ 10
            amount = amount Mod 10

            Nickels = amount \ 5
            amount = amount Mod 5

            Cents = amount

            'display to textbox
            txtQuarters.Text = Quarters
            txtNickels.Text = Nickels
            txtDimes.Text = Dimes
            txtCents.Text = Cents
        End If
    End Sub
End Class

sample output:

IDF Change Amount of change: 93 Determine Composition of Change Quarters: 3 Dimes: 1 Nickels: 1 Centes: 3