New Page 2

11/28/2005

Today we will continue with array and complete overtime, grosspay, taxamount, taxrate and netpay

Dim lastname(100) As String

Dim hw(100), hr(100) As Double

Dim counter As Integer = 0

Dim regularpay(100) As Integer

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

lastname(counter) = TextBox1.Text

hw(counter) = TextBox2.Text

hr(counter) = TextBox3.Text

counter = counter + 1

TextBox4.Text = counter

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim i As Integer = 0

While (i < counter)

Label5.Text = Label5.Text & lastname(i) & " " & hw(i) & " " & hr(i) & " " & regularpay(i) & vbNewLine

i = i + 1

End While

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim i As Integer

For i = 0 To counter

If hw(i) > 40 Then

regularpay(i) = 40 * hr(i)

Else

regularpay(i) = hw(i) * hr(i)

End If

End Sub

For extra credit to the program above you can add one more button to search by ID

Review:

Dim lastname(100) As String

Dim hw(100), hr(100), overtimepay(100), overtimehours(100) As Double

Dim counter As Integer = 0

Dim regularpay(100) As Integer

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

lastname(counter) = TextBox1.Text

hw(counter) = TextBox2.Text

hr(counter) = TextBox3.Text

counter = counter + 1

TextBox4.Text = counter

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim i As Integer = 0

While (i < counter)

Label1.Text = Label1.Text & lastname(i) & " " & hw(i) & " " & hr(i) & " " & regularpay(i) & overtimepay(i) & vbNewLine

i = i + 1

End While

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim i As Integer

For i = 0 To counter

If hw(i) > 40 Then

overtimepay(i) = 40 * hr(i) * 1.5

Else

overtimepay(i) = hw(i) * hr(i)

End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim i As Integer

For i = 0 To counter

If hw(i) > 40 Then

regularpay(i) = 40 * hr(i)

Else

regularpay(i) = hw(i) * hr(i)

End If

End Sub

End

Program is not complete there is an error

Dim lastname(100) As String

Dim hw(100), hr(100), overtimepay(100), overtimehours(100) As Double

Dim counter As Integer = 0

Dim regularpay(100) As Double

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

lastname(counter) = TextBox1.Text

hw(counter) = TextBox2.Text

hr(counter) = TextBox3.Text

counter = counter + 1

TextBox4.Text = counter

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim i As Integer = 0

While (i < counter)

Label1.Text = Label1.Text & lastname(i) & " " & hw(i) & " " & hr(i) & " " & regularpay(i) & " " & overtimepay(i) & vbNewLine

i = i + 1

End While

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim i As Integer

For i = 0 To counter

If hw(i) > 40 Then

overtimehours(i) = hw(i) - 40

overtimepay(i) = overtimehours(i) * hr(i) * 1.5

Else

overtimehours(i) = 0

overtimepay(i) = 0

End If

MsgBox(overtimepay(i))

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim i As Integer

For i = 0 To counter

If hw(i) > 40 Then

regularpay(i) = 40 * hr(i)

Else

regularpay(i) = hw(i) * hr(i)

End If

End Sub

End Class