Go Back   CodingForums.com > :: Computing & Sciences > Computer Programming

Before you post, read our: Rules & Posting Guidelines

Reply
 
Thread Tools Rate Thread
Enjoy an ad free experience by logging in. Not a member yet? Register.
Old 02-21-2012, 02:26 PM   PM User | #1
j0hnx777
New to the CF scene

 
Join Date: Feb 2012
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
j0hnx777 is an unknown quantity at this point
Easy Overtime Calculation Not Working for Me?

Hi, I am trying to get this pay rate calculator to work. The language is visual basic, but the problem I think is either the way I set it up and/or the arithmatic. It should calculate the number of hours times the pay rate of an employee. It should also calculate overtime if an employee has worked over 40 hours that they should be paid time and a half. For some reason, the calculation is wrong and I can't figure it out. If I put the pay rate was $10 and the hours were 41, I get an answer of $425. The result should be $415. I would appreciate any help. Not sure what's happening here but here is my code

Code:
Public Class Form1
    Private Sub calc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calc.Click
        Dim number1 As Integer
        Dim number2 As Integer
        Dim overtime As Integer
        Dim total As Integer
        number1 = TextBox1.Text
        number2 = TextBox2.Text
        total = number1 * number2
        overtime = ((number1 - 40) * (number2 * 1.5)) + total
        If number1 > 40 Then
            result.Text = "Your total pay is " & overtime
        End If
        If number1 <= 40 Then
            result.Text = "Your total pay is " & total
        End If
    End Sub
End Class
j0hnx777 is offline   Reply With Quote
Old 02-21-2012, 04:51 PM   PM User | #2
nojtb
New Coder

 
Join Date: Aug 2007
Posts: 59
Thanks: 3
Thanked 1 Time in 1 Post
nojtb is an unknown quantity at this point
Code:
        number1 = 41
        number2 = 10
        total = 41 * 10 //410
        overtime = ((41 - 40) * (10* 1.5)) + total // 1 * 15 + 410 = 425
nojtb is offline   Reply With Quote
Reply

Bookmarks

Tags
vb programming

Jump To Top of Thread


Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump


All times are GMT +1. The time now is 02:10 AM.


Advertisement
Log in to turn off these ads.