Calculation Help

[Franklin67]

I Have 7 Labels which i call them


EnterName
Enter number of pieces
Average
Money per person
Total Pieces
Total Amount of money
Amount Earned



and the rest are textBoxes all to calculate the above 7 labels to get the answers


Eg 1. I have to enter name
2. Number of pieces
3. Then it will be validate the name and pieces i have give them

[Pasvorto]

So... what's the question, exactly?

[Hack]

This has been split from this thread which was just getting way too long.

Franklin: Please state your specific question.

What code for this do you have so far?

[Franklin67]

I have done the first part which is the amount earned But the rest it does

nothing

[Hack]

I have done the first part which is the amount earned But the rest it does

nothing

Show us what you have done and what isn't working. Please explain what should be done to get it working that you can't figure out.

[Franklin67]

]Private Sub cmdcalculate_Click()
'Determined The Amount Due
 Dim intpieces         As Integer
 Dim Curprice          As Currency
 Dim Curamountearned   As Currency
 
intpieces = Val(txtpieces)
 
'Validate for missing data and enable summary button after
    'the first order has been entered
    
    
  If txtname.Text = "" Then
  MsgBox "Please Enter Name", vbOKOnly, "Data Entry Error"
  
  
  txtname.SetFocus
  ElseIf Not IsNumeric(txtpieces.Text) Then
  MsgBox "Please Enter a Positive Number for the Piece Count", _
   vbOKOnly, "Data Entry Error"
   With txtpieces
   .Text = " "
   .SetFocus
   End With
   Else
   
   
   cmdsummary.Enabled = True
   ' Find person with greatest number of pieces
    If intpieces > MintHighestpieces Then   'compare to current winner
    MintHighestpieces = intpieces
    Mstrhighname = txtname.Text
    End If
      
   'find pay rate   
  
   If intpieces < 200 Then
    Curprice = 0.5
ElseIf intpieces < 400 Then
    Curprice = 0.55
ElseIf intpieces < 600 Then
    Curprice = 0.6
Else
    Curprice = 0.65
End If
  
  'calculate the pay
    Curamountearned = intpieces * Curprice
    lblamountearned.Caption = FormatCurrency(Curamountearned)
    
  'add to totals
    mintpiecesTotal = mintpiecesTotal + intpieces
    Dim mintemployeecount  As Integer
    Mcurpaytotal = Mcurpaytotal + Curamountearned
End If
End Sub
 
Private Sub cmdclear_Click()
 
    txtname.Text = ""
    txtpieces.Text = ""
    lblaverage.Caption = ""
    lblmoney.Caption = ""
    lblpieces = ""
    lbltotalmoney = ""
     lblamountearned = ""
End Sub
 
Private Sub cmdexit_Click()
End
End Sub
 
Private Sub cmdsummary_Click()
    'Calculate the average and dispaly the totals
Dim curaveragepay       As Currency
Dim strmessage          As String
 
curaveragepay = Mcurpaytotal / mintemployeecount
strmessage = "Total number of pieces " + mintpiecesTotal + vbCrLf + _
                "Average Pay:           " + FormatCurrency(curaveragepay) + cbCrLf + _
                "Person producing most: " + Mstrhighname & vbCrLf + _
                "   (produced " + MintHighestpieces + " pieces)"
MsgBox strmessage, vbOKOnly, "Piecework Summary"
 
End Sub
 
Private Sub Form_Load()
    'Initialise the variables
    
MintHighestpieces = -1
End Sub
 
Private Sub Label1_Click()
'calculate the pay
    Curamountearned = intpieces * Curprice
    lblamountearned.Caption = FormatCurrency(Curamountearned)
    
End Sub
 
Private Sub Lblearned_Click()
 
End Sub

[Franklin67]

And now here come the Biggest problem


The 7 labels & Textboxes NOTHING WORKS
Except for
Amount Earned Text Box

Average Textbox


Money (Per Person) Textbox


TotalPieces Textbox


Total Of Money TextBox


Now i Can't calculate Or Clear The Box (This Is The part Where It gets)

(This Is The part Where It gets Messy And Confusion)

[Hack]

One problem is with this variable: Curamountearned

It is created in the click event of your calculate button. Because it is created in that event, that event is the ONLY place you can use it.

You are also attempting to use it in click event of your label, and that isn't going to work.

If you need a variable to be used in more than one place on your form, you must declare it in the Form's declaration section. Then, and only then, will it be available form wide.

Remove Dim Curamountearned As Currency from the calculate click event.

In your Forms declaration section put:

Private Curamountearned As Currency

Now, try your code.

[Franklin67]

They are 2 Curamountearned

It is This one you were Talking About (If This is the One i shall be moving Closer To next step


Private Sub cmdcalculate_Click()
'Determined The Amount Due
Dim intpieces As Integer
Dim Curprice As Currency
Private Curamountearned As Currency


Or



'calculate the pay
Curamountearned = intpieces * Curprice

[Hack]

They are 2 Curamountearned

It is This one you were Talking About (If This is the One i shall be moving Closer To next step


Private Sub cmdcalculate_Click()
'Determined The Amount Due
Dim intpieces As Integer
Dim Curprice As Currency
Private Curamountearned As Currency 'you cant do that here!!!!!!


Or



'calculate the pay
Curamountearned = intpieces * Curprice

When you use Private, you have to declare the variable in the declarations section of your form, not a control's click event. You need to move that.

There should only be one variable called Curamountearned. Declare it just once.

[Franklin67]

Then Where Do I transfer it to ?

Private Curamountearned As Currency

[Hack]

Then Where Do I transfer it to ?

Private Curamountearned As Currency

You move it to the Form's declaration section.

Open up a code window.

In the upper left hand corner will be a drop down.

Click on it.

It will drop down. Scroll up to the top of the drop down and click where it says (General)

This will take you to the Form's General Declarations section.

Put it there.

[Franklin67]

Okay i've already done that

[Franklin67]

Now i need to calculate

The average Lblaverage
Money per person Lblmoney
Total pieces LblPieces
Total amount of money Lbltotalmoney


What do i have to put in this lines ?

[Franklin67]

Hello anybody there ?

[Franklin67]

Thanks For The Help Guys


This Project Is over


But you can still Help me if you want


Now this project is Clasiified as (Experimental Subject)

[Hack]

Now this project is Clasiified as (Experimental Subject)

If you have questions on it, please start a new thread.

Thanks.