Dim i As Integer

Const maxSize As Integer = 3

Const taxrate As Single = 0.3

Dim hworked(maxSize), ovthrs(maxSize), ssn(maxSize) As Integer

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

Dim fname(10), lname(15) As String

Dim stat(maxSize) As Char

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

For i = 0 To maxSize - 1

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 maxSize - 1

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 maxSize - 1

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 maxSize - 1

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

Next

End Sub

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

Dim search 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 = ""

While temp <> 1

search = TextBox1.Text

For i = 0 To maxSize - 1

If search = lname(i) Then

MsgBox("Name 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

temp = 1

End If

Next

If temp <> 1 Then

MsgBox("Error: Name not found")

search = ""

temp = 1

End If

End While

End Sub

End Class

 

 
Hosted by www.Geocities.ws

1