[ITEM]
05.11.2018

Payroll System In Visual Basic 6.0

2
System

Hey all, I have a problem with this particular piece of coding I have for my payroll system in Visual Basic 6. I am basically trying to calculate the wages of employee's by entering in the number of hours they have worked. The criteria of how much pay they receive works like this: If they work the standard 40 hours or less, they get paid number of hours x $5.5 e.g. 40 hours x $5.50 = $220 If they work between 41-50 hours (which is considered as overtime), they get 40 hours of pay PLUS an extra $1.50 per hour e.g. 45 hours (40 hours x $5.50) + (5 additional hours x $5.50 x $1.50) = $261.25 If they work between 51-60 hours (again considered as overtime), they get an extra $2.50 an hour, while adding the other $1.50 per hour they have worked for the other overtime hours e.g. 52 hours (40 x $5.50) + (10 additional hours x $5.50 x $1.50) + (2 additional hours x $5.50 x $2.50) = $330 I have written this code up to calculate this: Private Sub cmdCalculate_Click() Hours = txthoursworked If Hours > 0 41 51 $220).

Slide -3IGNOU ( 3 ) INTRODUCTION The Payroll (Employee Salary System). What?s New in Visual Basic 6.0 ADO (ActiveX Data object): This new data access.

But if I enter anything more, such as 47 hours, it does not calculate the additional overtime pay that should be added onto it (e.g. 47 hours should be $277.75) but it keeps coming up as $258.50 (not multiplying the extra 1.5). I think the code I have written quite wrong, but I do not understand how I can fix it up. I think an extra overtime box may be required, but I am not sure how I can do that either. Any help would be appreciated, thanks. This is what I have: Private Sub txtnumberofhours_Change() Hours = txtnumberofhours OverHours = (Hours - 40) Hours = 40 lblendgross = (Hours * 5.5) + (OverHours * 5.5 * 1.5) WellOverHours = (Hours - 50) OverHours = (Hours - (40 + WellOverHours)) Hours = 40 lblendgross = (Hours * 5.5) + (OverHours * 5.5 * 1.5) + (WellOverHours * 5.5 * 2.5) I am trying to get the end result in the lblendgross label. When I enter this, the end result is always 248, no matter if I enter 1 or 60.

However, if I enter this: Private Sub txtnumberofhours_Change() Hours = txtnumberofhours OverHours = (Hours - 40) Hours = 40 lblendgross = (Hours * 5.5) + (OverHours * 5.5 * 1.5) WellOverHours = (Hours - 50) OverHours = (Hours - (40 + WellOverHours)) Hours = 40 GrossPay = (Hours * 5.5) + (OverHours * 5.5 * 1.5) + (WellOverHours * 5.5 * 2.5) The normal 40 hours of pay and the overtime upto 50 hours works properly, which is because I am not using the formula to calculate it in the end gross label. How can I fix this?

I had deleted it, but if I insert it would look like this: Private Sub txtnumberofhours_Change() Hours = txtnumberofhours If Hours > 0 41 51. Okay, you have to put the forumulas I showed you, in the right places within that if statement. Also Lines 6 and 8. I want you to look closely at and look at the logic of what you have going on with those if checks. Yes, I am hinting that something is wrong with your logic.

Also Line2 should be Hours = Int(txtnumberofhours.text) You need to slow down and think of the logic going on here because you have had all the information for a couple of days now and it just seems like you are wanting someone to do your work for you. You have the pieces, now just assemble them in the correct order, and you will have your solution.

Playlist File Remover can also remove a file if played to the end, or if the seekbar is moved to the end, which case holding down the ‘alt’ key temporarily disables file removal; there is an option to remove the file when pressing ‘next’. File deletion did not work before the 2.2.2 version of the plugin; if you use an old version but you need file deletion, try instead. Playlist file remover winamp player. Except for simple removal, Playlist File Remover can move a track to the recycle bin or permanently delete it.

[/ITEM]
[/MAIN]
05.11.2018

Payroll System In Visual Basic 6.0

98
System

Hey all, I have a problem with this particular piece of coding I have for my payroll system in Visual Basic 6. I am basically trying to calculate the wages of employee's by entering in the number of hours they have worked. The criteria of how much pay they receive works like this: If they work the standard 40 hours or less, they get paid number of hours x $5.5 e.g. 40 hours x $5.50 = $220 If they work between 41-50 hours (which is considered as overtime), they get 40 hours of pay PLUS an extra $1.50 per hour e.g. 45 hours (40 hours x $5.50) + (5 additional hours x $5.50 x $1.50) = $261.25 If they work between 51-60 hours (again considered as overtime), they get an extra $2.50 an hour, while adding the other $1.50 per hour they have worked for the other overtime hours e.g. 52 hours (40 x $5.50) + (10 additional hours x $5.50 x $1.50) + (2 additional hours x $5.50 x $2.50) = $330 I have written this code up to calculate this: Private Sub cmdCalculate_Click() Hours = txthoursworked If Hours > 0 41 51 $220).

Slide -3IGNOU ( 3 ) INTRODUCTION The Payroll (Employee Salary System). What?s New in Visual Basic 6.0 ADO (ActiveX Data object): This new data access.

But if I enter anything more, such as 47 hours, it does not calculate the additional overtime pay that should be added onto it (e.g. 47 hours should be $277.75) but it keeps coming up as $258.50 (not multiplying the extra 1.5). I think the code I have written quite wrong, but I do not understand how I can fix it up. I think an extra overtime box may be required, but I am not sure how I can do that either. Any help would be appreciated, thanks. This is what I have: Private Sub txtnumberofhours_Change() Hours = txtnumberofhours OverHours = (Hours - 40) Hours = 40 lblendgross = (Hours * 5.5) + (OverHours * 5.5 * 1.5) WellOverHours = (Hours - 50) OverHours = (Hours - (40 + WellOverHours)) Hours = 40 lblendgross = (Hours * 5.5) + (OverHours * 5.5 * 1.5) + (WellOverHours * 5.5 * 2.5) I am trying to get the end result in the lblendgross label. When I enter this, the end result is always 248, no matter if I enter 1 or 60.

However, if I enter this: Private Sub txtnumberofhours_Change() Hours = txtnumberofhours OverHours = (Hours - 40) Hours = 40 lblendgross = (Hours * 5.5) + (OverHours * 5.5 * 1.5) WellOverHours = (Hours - 50) OverHours = (Hours - (40 + WellOverHours)) Hours = 40 GrossPay = (Hours * 5.5) + (OverHours * 5.5 * 1.5) + (WellOverHours * 5.5 * 2.5) The normal 40 hours of pay and the overtime upto 50 hours works properly, which is because I am not using the formula to calculate it in the end gross label. How can I fix this?

I had deleted it, but if I insert it would look like this: Private Sub txtnumberofhours_Change() Hours = txtnumberofhours If Hours > 0 41 51. Okay, you have to put the forumulas I showed you, in the right places within that if statement. Also Lines 6 and 8. I want you to look closely at and look at the logic of what you have going on with those if checks. Yes, I am hinting that something is wrong with your logic.

Also Line2 should be Hours = Int(txtnumberofhours.text) You need to slow down and think of the logic going on here because you have had all the information for a couple of days now and it just seems like you are wanting someone to do your work for you. You have the pieces, now just assemble them in the correct order, and you will have your solution.

Playlist File Remover can also remove a file if played to the end, or if the seekbar is moved to the end, which case holding down the ‘alt’ key temporarily disables file removal; there is an option to remove the file when pressing ‘next’. File deletion did not work before the 2.2.2 version of the plugin; if you use an old version but you need file deletion, try instead. Playlist file remover winamp player. Except for simple removal, Playlist File Remover can move a track to the recycle bin or permanently delete it.