Find Coins

1 New Member

Could you help me design an interface that will find the number of quarters, dimes, nickels, and pennies from an amount entered by the user.

I really need the code for the amount textbox and the code for the find coin button.

Oct 17 '06 #1

Subscribe Reply

1899

peterggmss

New Member

Could you help me design an interface that will find the number of quarters, dimes, nickels, and pennies from an amount entered by the user.

I really need the code for the amount textbox and the code for the find coin button.

Hello,
I also need to make a similar program. I have a text box "txtChange" in which the user inputs the amount of change, in cents.

The code I have, so far, is:

Expand|Select|Wrap|Line Numbers

 Private Sub Form_Load()

    Dim txtChange As Integer

    Dim Quarters As Integer

    Dim Dimes As Integer

    Dim Nickles As Integer

    Dim Pennies As Integer

    Dim NumberQuarters As Integer

    Dim NumberDimes As Integer

    Dim NumberNickles As Integer

    Dim NumberPennies As Integer

End Sub

Private Sub cmdCalculate_Click()

    cmdCalculate.Caption = "Re-calculate"

    NumberQuarters = (txtChange / 4) Mod ___

    lblNumberQuarters = NumberQuarters

End Sub

Private Sub cmdDone_click()

    Unload frmChange

End Sub

However I get stuck at the NumberQuarters = (txtChange / 4) Mod _, where I don't know what _ should be.

Oct 17 '06 #2

willakawill

1,646

Top Contributor

Could you help me design an interface that will find the number of quarters, dimes, nickels, and pennies from an amount entered by the user.

I really need the code for the amount textbox and the code for the find coin button.

This will work:

Expand|Select|Wrap|Line Numbers

 
'we will call the button cmdCalculate

Private Sub cmdCalculate_Click()

   Dim intQuarters As Integer

   Dim intNickels As Integer

   Dim intDimes As Integer

   Dim intPennies As Integer

   Dim intRemainder As Integer

   Dim intAmount As Integer

   Dim strFinalCount As String
 
    If Not IsNumeric(Me.txtAmount.Text) Then

        Me.txtAmount.Text = ""

        MsgBox "Please enter a number"

        Me.txtAmount.SetFocus

        Exit Sub

    End If

   'let's call the textbox txtAmount

   intAmount = CInt(Me.txtAmount.Text)
 
   If intAmount > 99 Then

      intAmount = intAmount Mod 100

      If intAmount = 0 Then

        MsgBox "No change!"

        Exit Sub

      Else

        If intAmount > 24 Then

            intQuarters = Fix(intAmount / 25)

            intAmount = intAmount Mod 25

            If intAmount > 9 Then

                intDimes = Fix(intAmount / 10)

                intAmount = intAmount Mod 10

                If intAmount > 4 Then

                    intNickels = Fix(intAmount / 5)

                    intPennies = intAmount Mod 5

                Else

                    intPennies = intAmount

                End If

            Else

                If intAmount > 4 Then

                    intNickels = Fix(intAmount / 5)

                    intPennies = intAmount Mod 5

                Else

                    intPennies = intAmount

                End If

            End If

        Else

            If intAmount > 9 Then

                intDimes = Fix(intAmount / 10)

                intAmount = intAmount Mod 10

                If intAmount > 4 Then

                    intNickels = Fix(intAmount / 5)

                    intPennies = intAmount Mod 5

                Else

                    intPennies = intAmount

                End If

            Else

                If intAmount > 4 Then

                    intNickels = Fix(intAmount / 5)

                    intPennies = intAmount Mod 5

                Else

                    intPennies = intAmount

                End If

            End If

        End If

      End If

    Else

        If intAmount = 0 Then

            MsgBox "No change!"

            Exit Sub

        Else

        If intAmount > 24 Then

            intQuarters = Fix(intAmount / 25)

            intAmount = intAmount Mod 25

            If intAmount > 9 Then

                intDimes = Fix(intAmount / 10)

                intAmount = intAmount Mod 10

                If intAmount > 4 Then

                    intNickels = Fix(intAmount / 5)

                    intPennies = intAmount Mod 5

                Else

                    intPennies = intAmount

                End If

            Else

                If intAmount > 4 Then

                    intNickels = Fix(intAmount / 5)

                    intPennies = intAmount Mod 5

                Else

                    intPennies = intAmount

                End If

            End If

        Else

            If intAmout > 9 Then

                intDimes = Fix(intAmount / 10)

                intAmount = intAmount Mod 10

                If intAmount > 4 Then

                    intNickels = Fix(intAmount / 5)

                    intPennies = intAmount Mod 5

                Else

                    intPennies = intAmount

                End If

            Else

                If intAmount > 4 Then

                    intNickels = Fix(intAmount / 5)

                    intPennies = intAmount Mod 5

                Else

                    intPennies = intAmount

                End If

            End If

        End If

      End If

   End If
 
   strFinalCount = "Change: " & vbCrLf

   If intQuarters > 0 Then

        If intQuarters > 1 Then

            strFinalCount = strFinalCount & intQuarters & " Quarters" & vbCrLf

        Else

            strFinalCount = strFinalCount & "1 Quarter" & vbCrLf

        End If

   End If

        If intDimes > 0 Then

         If intDimes > 1 Then

             strFinalCount = strFinalCount & intDimes & " Dimes" & vbCrLf

         Else

             strFinalCount = strFinalCount & "1 Dime" & vbCrLf

         End If

   End If

   If intNickels > 0 Then

        If intNickels > 1 Then

            strFinalCount = strFinalCount & intNickels & " Nickels" & vbCrLf

        Else

            strFinalCount = strFinalCount & "1 Nickel" & vbCrLf

        End If

   End If

   If intPennies > 0 Then

        If intPennies > 1 Then

            strFinalCount = strFinalCount & intPennies & " Pennies" & vbCrLf

        Else

            strFinalCount = strFinalCount & "1 Penny" & vbCrLf

        End If

   End If
 
   MsgBox strFinalCount

End Sub

Call the textbox 'txtAmount' and call the button 'cmdCalculate' then paste the above code into your form's code module.

The Fix() function is used to avoid rounding errors

Oct 17 '06 #3

by: Shark1 | last post by:

Hello. I'm suppose to write a program that will match the price given by the user using the least number of coins. There are 5 different type of coins. I get this output, the count is...

C / C++

Find and Replace utility thru DTE.find

by: amit | last post by:

I want to find out that if there is a mechanism to find a text inside a C# file and replace it with another string. I am using DTE to do it, the find proerty does it, the results are getting...

C# / C Sharp

DTE.find

by: AMIT PUROHIT | last post by:

hi, this is a qry which I m stuck up with I want to find out that if there is a mechanism to find a text inside a C# file and replace it with another string. I am using DTE(EnvDTE) to do it,...

C# / C Sharp

Find.execute , unable to find a handle to a window

by: amit | last post by:

hi I have created a tool which does a find and replace thru DTE, now after it is done, it opens up a window, "FIND REACHED THE STARTING POINT OF SEARCH" I want to disbale this window...

C# / C Sharp

"Cannot find module" Error Messages in PHP

by: David T. Ashley | last post by:

Hi, Red Hat Enterprise Linux 4.X. I'm writing command-line PHP scripts for the first time. I get the messages below. What do they mean? Are these operating system library modules, or...

PHP

Could not find schema information

by: Derek | last post by:

I am creating an intranet using Visual Web Developer Express Edition. Everything has been working OK until yesterday when I started getting 62 messages all beginning "Could not find schema...

ASP.NET

Coins

by: mia023 | last post by:

Hi i have an assignment that i don't understand and need help in. Write a program that reads in a command line integer N(number of pennies) and prints out the best way(fewest number of coins) to...

Java

Calculating Coins

by: MsBarnes | last post by:

I'm a newbie to the programming field and I really need help to understand what i'm doing wrong. This is the exercise i'm working on I need to create an application that allows the users to enter...

Visual Basic 4 / 5 / 6

How to build RAID in BIOS?

by: Hystou | last post by:

There are some requirements for setting up RAID: 1. The motherboard and BIOS support RAID configuration. 2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...

Computer Hardware

What is ONU?

by: marktang | last post by:

ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...

General

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...

C / C++

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

Online Marketing

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

Discussion: How does Zigbee compare with other wireless protocols in smart home applications?

by: tracyyun | last post by:

Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...

General

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...

Career Advice

Access Europe - Using VBA to create a class based on a table - Wed 1 May

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new...

Microsoft Access / VBA

Windows Forms - .Net 8.0

by: adsilva | last post by:

A Windows Forms form does not have the event Unload, like VB6. What one acts like?

Visual Basic .NET

Similar topics