Any Visual Basic programmers/gurus here?

[Hawkeye-X]

I might need your help tonight. Just check in if you are one and available to help....

Thanks!

Hawkeye-X

[niceypoo]

1. What with?

>>?????

[rabid_nerd]

2. As long as it's not about Windows Messenger :)

..

[Hawkeye-X]

4. Naw. it's homework.

I need to write up a code for calculation button.

What it asks for is specifically:

Hell, let me phrase it out...

"The company has insituted a bonus program to give its employees an incentive to sell more. For every dollar the store makes in a four-week period, the employees receive 2% of the sales. The amount of bonus each employee received is based on the percentage of hours he or she worked during the bonus period (a total of 160 hours)."

The Calculate button will determine the bonus earned by this employee. Do not allow missing or bad input data to cancel the program; instead display a message to the user.

So far, I've designed the interface, and I have as follows, a text box for an employee's name, the total number of hours worked, and the amount of the store total sales, plus two buttons, the calculate and clear button. And of course, the label 'output' to display the bonus.

I can do the clear code pretty easily since it asks that I clear everything EXCEPT the amount of store's total sales...

All I need to figure out how to code in the Calculation buttons correctly.

Thanks in advance!

Hawkeye-X

[Pert_UK]

3. I have some VERY basic VBA skills in an emergency.......

But don't rely on them!

P.

[Hawkeye-X]

5. kick

here's what I've got so far, and I don't think I got it quite right..

Const mdecBONUS_RATE As Decimal = 0.02D

Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
'Calculate the bonus

Dim intHours As Integer
Dim decSalesAmt As Decimal
Dim decBonusAmt As Decimal

Try
'Convert input values to numeric variables
intHours = CInt(txtHours.Text)
decSalesAmt = CDec(txtSales.Text)

'Calculate the bonus
decBonusAmt = intHours * decSales
End Try


End Sub

[GoodSpud]

6. A couple of points...

Given that it is home work I won't help too much, unless you twist my arm....

Anyway here is what I see looking at what you have so far:

1. you are assuming that the employees only work whole hours. I don't know if that is a valid assumption.

2. You will need to add a 'Catch' to the 'Try' statement

3. The employee bonus should be calculated something like this: (Employee Percentage Worked) * (Available Bonus Pool). It seems like right now you aren't calculating either of these two terms.

I'll keep an eye on the thread if you need some more help.


TDPR

[Hawkeye-X]

8. Of course

I mispasted everything...

 Private Sub btnCalc_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btnCalc.Click
        'Calculate the bonus

        Dim intHours As Integer
        Dim decSalesAmt As Decimal
        Dim decBonusAmt As Decimal


        Try
            'Convert input values to numeric variables
            intHours = CInt(txtHours.Text)
            decSalesAmt = CDec(txtSales.Text)

            'Calculate the bonus
            decBonusAmt = decSalesAmt * mdecBONUS_RATE *
(intHours / 160) * 100

            'Format the bonus
            lblBonus.Text = FormatCurrency(decBonusAmt)

        Catch MyErr As InvalidCastException
            MessageBox.Show("Enter numeric data.",
"Data Entry Error", MessageBoxButtons.OK,
MessageBoxIcon.Exclamation)
        Catch MyErr As Exception
            MessageBox.Show("Error: " &
MyErr.Message)
        End Try


    End Sub

[hel]

7. It should be something like

BonusAmt = TotalSales * BONUS_RATE * (Hours/160) * 100


I guess, try it out.


Good luck. :)

[Hawkeye-X]

9. Hmm didn't work

why the * 100? I think that's the real reason of inflation. Perhaps if I knocked it off, it would make some sense, no?

I mean, I put a total sales of like 1500, and it came out as a bonus of TWICE that much. I'd be willing to work for a company with this calculation error.

Hawkeye-X

[GoodSpud]

10. We should all be so luck!

Yeah, you need to loose the *100. You don't actually want the percentage just the raw decimal number.

I am not looking at your assignment so I don't know but I am still uncomfortable with the intHours = CInt(txtHours.Text) portion of your code.

Unless the instruction state that hours are rounded or some such thing I would assume that partial hours could occur. Just do a 'CDec' instead and you should be in good shape.

TDPR

[Hawkeye-X]

11. OK. you have a point

so I'll change that in a heartbeat. Thanks all!

Now I have to tackle a on-hand lab test tomorrow.

Hawkeye-X

[GoodSpud]

12. Good luck on the lab!

Now if I could just find someone willing to fix a dreadful database design error I made about 18 months ago and have been trying to code around for about a week... <sigh>

TDPR

[Booberdawg]

13. Is this VB.NET??

There is no "Try and Catch" capability up to Version 6 of Visual Basic.