Dim i As Integer

Const taxrate As Single = 0.3

Dim hworked(100), ovthrs(100), ssn(100), empid(100) As Integer

Dim hrate(100), gpay(100), tax(100), net(100), ovtpay(100), regpay(100) As Single

Dim fname(100), lname(100) As String

Dim stat(100) As Char

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

For i = 0 To 2

empid(i) = InputBox("Enter Employee ID")

fname(i) = InputBox("ENTER FIRST NAME")

lname(i) = InputBox("ENTER LAST NAME")

stat(i) = InputBox("ENTER M for MALE OR F for FEMALE ")

ssn(i) = InputBox("Enter The SSN")

hworked(i) = InputBox("ENTER HOURS WORKED:")

hrate(i) = InputBox("ENTER HOURLY RATE:")

Next

For i = 0 To 2

If hworked(i) > 40 Then

ovthrs(i) = hworked(i) - 40

ovtpay(i) = ovthrs(i) * (hrate(i) * 1.5)

hworked(i) = 40

regpay(i) = (hrate(i) * 40)

Else

regpay(i) = (hrate(i) * hworked(i))

ovtpay(i) = 0

End If

Next

For i = 0 To 2

gpay(i) = (hworked(i) * hrate(i)) + ovtpay(i)

tax(i) = gpay(i) * taxrate

net(i) = gpay(i) - tax(i)

Next

Label1.Text = Label1.Text & "Dr Ebrahimi's Payroll Institute" & vbNewLine & "106 EASYWAYS LN." & vbNewLine & "PLEASANTVILLE, NY 10570"

For i = 0 To 2

Label16.Text = Label16.Text & fname(i) & vbNewLine

Label17.Text = Label17.Text & lname(i) & vbNewLine

Label18.Text = Label18.Text & stat(i) & vbNewLine

Label19.Text = Label19.Text & ssn(i) & vbNewLine

Label20.Text = Label20.Text & hworked(i) & vbNewLine

Label21.Text = Label21.Text & hrate(i) & vbNewLine

Label22.Text = Label22.Text & ovthrs(i) & vbNewLine

Label23.Text = Label23.Text & ovtpay(i) & vbNewLine

Label24.Text = Label24.Text & regpay(i) & vbNewLine

Label25.Text = Label25.Text & gpay(i) & vbNewLine

Label26.Text = Label26.Text & tax(i) & vbNewLine

Label27.Text = Label27.Text & net(i) & vbNewLine

Label29.Text = Label29.Text & empid(i) & vbNewLine

Next

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim searchid As String

Dim temp As Integer

temp = 0

Label16.Text = ""

Label17.Text = ""

Label18.Text = ""

Label19.Text = ""

Label20.Text = ""

Label21.Text = ""

Label22.Text = ""

Label23.Text = ""

Label24.Text = ""

Label25.Text = ""

Label26.Text = ""

Label27.Text = ""

Label29.Text = ""

While temp <> 1

searchid = TextBox1.Text

For i = 0 To 2

If searchid = empid(i) Then

MsgBox("Employee Found")

Label16.Text = Label16.Text & fname(i) & vbNewLine

Label17.Text = Label17.Text & lname(i) & vbNewLine

Label18.Text = Label18.Text & stat(i) & vbNewLine

Label19.Text = Label19.Text & ssn(i) & vbNewLine

Label20.Text = Label20.Text & hworked(i) & vbNewLine

Label21.Text = Label21.Text & hrate(i) & vbNewLine

Label22.Text = Label22.Text & ovthrs(i) & vbNewLine

Label23.Text = Label23.Text & ovtpay(i) & vbNewLine

Label24.Text = Label24.Text & regpay(i) & vbNewLine

Label25.Text = Label25.Text & gpay(i) & vbNewLine

Label26.Text = Label26.Text & tax(i) & vbNewLine

Label27.Text = Label27.Text & net(i) & vbNewLine

Label29.Text = Label29.Text & empid(i) & vbNewLine

temp = 1

End If

Next

If temp <> 1 Then

MsgBox("Error: Employee not found")

searchid = ""

temp = 1

End If

End While

End Sub

End Class

 

 

 

Hosted by www.Geocities.ws

1