[RESOLVED] Piecework Visual Basic 6.0

[Wokawidget]

explain...eactly what you want, in clear english, word for word.
You are just posting random bits of code, which are of no use to anyone

Woka

[Hack]

What are:

Mcurpaytotal and MinemployeeCount?

Where do they get their values?

[Franklin67]

What i mean was to check the file for me and tell me what are my mistakes But don't change enything


so Just tell me what to do and i correct it myself

[Wokawidget]

errr...well:

Dim MinemployeeCount  As Integer

u have missed of the letter t.

You have the start of a button click event with no End Sub

You are using END!

Instead of END use:

Unload me

Woka

[Hack]

I figured out you have to hit Calculate and then Mcurpaytotal gets a value.

However, MinemployeeCount is never set to anything so curaveragepay = Mcurpaytotal / MinemployeeCount will always give you a divide by zero error.

You are asking for the persons name when the form is loaded, yet in your summary button you are trying to figure out who did the most. You only have one name to begin with so that is a piece of information that is not available. You would have to have everyone fill out this form, save there entries to a database, then read back all of their records and calculate an average.

[Franklin67]

Thats correct now what should i do then ?

[Franklin67]

Today is my due date for my Homework

[Franklin67]

Dim MinemployeeCount As Integer

I Have mised the t ? so where should i put it ?

[Franklin67]

Hello I am stuck in here Today is my due date for my project


Help me

[Bruce Fox]

Outstanding assistance Hack .

[Franklin67]

Ahemmmm Need Help over here

[Franklin67]

Time to Panic Panic In a few hours

[Bruce Fox]

I must say I havn't read all the posts in this tread, however, how is it you can be at a stage in the course (far away down the track from "Hello World") and have gotten this far?

You need to crawl before you can walk!

[Franklin67]

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


Error

[Franklin67]

Hello word it the simplest but now i am stuck at this one

[Franklin67]

Private Sub cmdsummary_Click()
'Calculate the average and dispaly the totals
Dim curaveragepay As Currency
Dim strmessage As String


Error

[Bruce Fox]

What wa the Error?

This worked for me (Note: don't copy it into your code block tho)

Option Explicit
 
Dim intPieces As Integer
Dim Curprice As Currency
 
Private Sub Form_Load()
 
    intPieces = 300
 
    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
 
 
    MsgBox Curprice
 
End Sub

[Franklin67]

uraveragepay = 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"


Error



Guys now i can clear and calculate The Amount Earned Only {Only this worked)

[Franklin67]

View Post 136 & 138 Those are the error

[Franklin67]

intPieces = 300
 
    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
 
 
    MsgBox Curprice

Check wheather i got this lines

Pieces Completed
1-199
200-399
400-599
600 Or more

Price Paid per Piece
$0.50
$0.55
$0.60
$0.65

[Bruce Fox]

[Highlight=VB]
Check wheather i got this lines

Sorry, is that a question?

[Franklin67]

intPieces = 300
 
    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
 
 
    MsgBox Curprice
 
 
 
[Highlight=VB]Check wheather i got this lines
 
Pieces Completed
1-199
200-399
400-599
600 Or more
 
Price Paid per Piece
$0.50
$0.55
$0.60
$0.65

Error[/Highlight]

[Bruce Fox]

Ok...... I'll bite (for now)

If you don't provide specific detail, no one will help you. As previously mentioned to you posting snippets with unsupported comments won't help.

What on earth was the Error you got from the above example?

[Franklin67]

what i meant was check each line to see wheather i got the statements correct

[Franklin67]

Is that simple

[Bruce Fox]

Ok here is an example - DO NOT USE IT AS IS - use it as a guide.

In a new project:

Option Explicit
 
Private Sub Form_Load()
 
    MsgBox Check_Price(1)
    MsgBox Check_Price(456)
    MsgBox Check_Price(800)
 
End Sub
 
Private Function Check_Price(ByVal intNumPieces As Integer) As Single
Dim Curprice As Single
 
    If intNumPieces < 200 Then
        Curprice = 0.5
    ElseIf intNumPieces < 400 Then
        Curprice = 0.55
    ElseIf intNumPieces < 600 Then
        Curprice = 0.6
    Else
        Curprice = 0.65
    End If
 
    'Return the amount
    Check_Price = Curprice
 
End Function

Use this to demonstrate that you need to pass all PiecesCompleted to the Function.
You may choose to do a For..Next and cycle all you values of PiecesCompleted in a Sub.

[Franklin67]

[COLOR=Yellow]Private Sub cmdsummary_Click()[/COLOR]
    'Calculate the average and dispaly the totals
Dim curaveragepay       As Currency
Dim strmessage          As String
 
 
curaveragepay = [COLOR=DarkGreen]curpaytotal [/COLOR]/ 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

Is error

[Bruce Fox]

You need to impliment (add) that code to calc those prices!

[Franklin67]

How do i do that

[Franklin67]

Show Me

[Bruce Fox]

I can't in good faith continue to assist and have you pass a subject that you haven't the slightest grasp of - sorry


Bye, bye.

[Franklin67]

People i am in the class help me as possible

[Franklin67]

Before I hand this over

[penagate]

@ everyone else: That's what happens when you DON'T make an effort

Let it be a lesson to all

[Franklin67]

No No You Guys Don't really understand what i was saying

[Franklin67]

[IMG]file:///D:/Games%20screenshots/ScreenHunter_150.bmp[/IMG]

[Wokawidget]

Right. What's this picture got to do with anything?
I've mentioned before that you must post explanations too!

Posting "No, No, you guys don't understand"

Then posting a bitmap means abosolutely nothing...to anybody.

Can we please keep the thread "on topic" if that's at all possible, or i will be forced to close the thread

Woka

[Hack]

*Sigh* this thread was on its way to dieing a natural death all on its own until everyone starting popping in with their comments. In fact, it was already on page 2 of this section.

Enough, from everyone.

[Wokawidget]

Use "manage attachemnts" when you are editting a post in the ADVANCED mode. Click "Go Advanced" under the last post.

BUT explian EVERYTHING about your pic.

Woka