In Visual Basic, write a program to make change for an amount of money from 0 through 99 cents input by the user. The output of the program should show the number of coins from each denomination used to make change as shown in the image below.
Design the Interface:
First we need to design the interface. The following image shows an example of what the form might look like when the program runs.
Initially, when the program is loaded, the form “Change” should appear. Once the program is run, the form should be ready for entry. While the program is running, if the user clicks on the “Determine Composition of Change” button, the display will show the change in various US coins composition.
Suggested Control Names and Attributes:
|Name Property||Text Property||Control Type||Notes|
|txtAmount||Text Box||Captures amount of change|
|btnDetermine||Determine Composition of Change||Button||Triggers event for displaying change composition|
|txtQuarters||Text Box *||Displays # of quarters|
|txtDimes||Text Box *||Displays # of dimes|
|txtNickels||Text Box *||Displays # of nickels|
|txtPennies||Text Box *||Displays # of pennies|
* The ReadOnly property for this control should be set to true because only the program code should be editing this field. The user should not be permitted to enter anything in this field.
Write the Code:
' Project: Change ' Programmer: Your Name Here ' Date: February 2, 2014 ' Description: Simulates making change. User inputs the amount of change. ' Progam calculates and displays the number of quarters, dimes, nickels and pennies. Public Class frmChange Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click ' Declare and initialize the variables Dim amount As Integer = CInt(txtAmount.Text) Dim quarters As Integer = 0 Dim dimes As Integer = 0 Dim nickels As Integer = 0 Dim cents As Integer = 0 ' Calculate the change quarters = amount \ 25 amount -= quarters * 25 dimes = amount \ 10 amount -= dimes * 10 nickels = amount \ 5 amount -= nickels * 5 cents = amount ' Display the calculated change txtQuarters.Text = CStr(quarters) txtDimes.Text = CStr(dimes) txtNickels.Text = CStr(nickels) txtCents.Text = CStr(cents) End Sub End Class