Private Sub
btnCalc_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnCalc.Click
txtTotal.Text = Val(txtOnHand.Text) + Val(txtOnOrder.Text)
End
Sub
Private Sub
btnCalcGrossPay_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnCalcGrossPay.Click
Dim wkGrossPay As Decimal
Const intRegHrs As Integer = 40
If radNoOvertime.Checked = True Then
wkGrossPay = Val(txtPayHr.Text) * Val(txtHrs.Text)
Else
If txtHrs.Text > 40 Then
wkGrossPay = Val(txtPayHr.Text) * intRegHrs + _
(Val(txtHrs.Text) - 40) * Val(txtPayHr.Text) *
1.5
Else
wkGrossPay = Val(txtPayHr.Text) * Val(txtHrs.Text)
End If
End If
txtGrossPay.Text = String.Format("{0:C}",
wkGrossPay)
End Sub
Private Sub
btnCalcGrossPay_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnCalcGrossPay.Click
Dim wkGrossPay As Decimal
Const intRegHrs As Integer = 40
If Val(txtHrs.Text) <=
intRegHrs Then
wkGrossPay = Val(txtPayHr.Text) * Val(txtHrs.Text)
Else
wkGrossPay = Val(txtPayHr.Text) * intRegHrs + _
(Val(txtHrs.Text) - 40) * Val(txtPayHr.Text) * 1.5
End If
If chkRetire.Checked = True Then
wkGrossPay = wkGrossPay - (wkGrossPay * 0.025)
End If
If chkMed.Checked = True Then
wkGrossPay = wkGrossPay - 35
End If
If chkDonation.Checked = True Then
wkGrossPay = wkGrossPay - 5
End If
txtGrossPay.Text = String.Format("{0:C}",
wkGrossPay)
End Sub
Private Sub
btnCalcGrossPay_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnCalcGrossPay.Click
Dim wkGrossPay As Decimal
Const intRegHrs As Integer = 40
If radNoOvertime.Checked = True Then
wkGrossPay = Val(txtPayHr.Text) * Val(txtHrs.Text)
Else
wkGrossPay = Val(txtPayHr.Text) * intRegHrs + _
(Val(txtHrs.Text) - 40) * Val(txtPayHr.Text) * 1.5
End If
If chkRetire.Checked = True Then
wkGrossPay = wkGrossPay - (wkGrossPay * 0.025)
End If
If chkMed.Checked = True Then
wkGrossPay = wkGrossPay - 35
End If
If chkDonation.Checked = True Then
wkGrossPay = wkGrossPay - 5
End If
txtGrossPay.Text = String.Format("{0:C}",
wkGrossPay)
End Sub
Private Sub
btnCalcGrossPay_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnCalcGrossPay.Click
Dim wkGrossPay As Decimal
Dim wkYearGross As Decimal
Dim yrsCt As Single
Const intRegHrs As Integer = 40
Const intYrs As Integer = 52
yrsCt = 1
Do While
yrsCt <= intYrs
wkGrossPay = Val(txtPayHr.Text) * intRegHrs
If chkRetire.Checked = True Then
wkGrossPay = wkGrossPay - (wkGrossPay * 0.025)
End If
If chkMed.Checked = True Then
wkGrossPay = wkGrossPay - 35
End If
If chkDonation.Checked
= True Then
wkGrossPay = wkGrossPay - 5
End If
yrsCt = yrsCt + 1
wkYearGross = wkYearGross + wkGrossPay
Loop
txtGrossPay.Text = String.Format("{0:C}",
wkYearGross)
End Sub
Private Sub
btnCalcGrossPay_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnCalcGrossPay.Click
Dim wkGrossPay As Decimal
Dim wkYearGross As Decimal
Dim yrsCt As Single
Const intRegHrs As Integer = 40
Const intYrs As Integer = 52
yrsCt = 1
lstGross.Items.Clear()
Do While
yrsCt <= intYrs
wkGrossPay = Val(txtPayHr.Text) * intRegHrs
wkYearGross = wkYearGross + wkGrossPay
If yrsCt Mod 13 = 0 Then
lstGross.Items.Add("Quarter: " &
ControlChars.Tab _
& ControlChars.Tab & String.Format("{0:C}", wkYearGross))
End If
yrsCt = yrsCt + 1
Loop
txtGrossPay.Text = String.Format("{0:C}",
wkYearGross)
End Sub
Private Sub
cmdNum1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum1.Click
txtPassword.Text &= "1"
End Sub
Private Sub cmdNum2_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum2.Click
txtPassword.Text &= "2"
End Sub
Private Sub cmdNum3_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum3.Click
txtPassword.Text &= "3"
End Sub
Private Sub cmdNum4_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum4.Click
txtPassword.Text &= "4"
End Sub
Private Sub cmdNum5_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum5.Click
'txtPassword.Text &=
"5"
txtPassword.Text =
txtPassword.Text & "5"
End Sub
Private Sub cmdNum6_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum6.Click
txtPassword.Text &= "6"
End Sub
Private Sub cmdNum7_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum7.Click
txtPassword.Text &= "7"
End Sub
Private Sub cmdNum8_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum8.Click
txtPassword.Text &= "8"
End Sub
Private Sub cmdNum9_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum9.Click
txtPassword.Text &= "9"
End Sub
Private Sub cmdNum0_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum0.Click
txtPassword.Text &= "0"
End Sub
Private Sub cmdClear_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdClear.Click
txtPassword.Clear()
txtMessage.Text = ""
txtPassShow.Text = ""
End Sub
Private Sub cmdProc_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdProc.Click
Dim arrCode As Integer()
Dim arrIndx As Integer
arrCode = New Integer(5) {123, 234, 345, 456, 567, 678}
txtPassShow.Text = txtPassword.Text
txtMessage.Text = ""
Do While
arrIndx <= 5
If
Val(txtPassword.Text) = Val(arrCode(arrIndx)) Then
txtMessage.Text = "Valid Password"
End If
arrIndx += 1
Loop
If txtMessage.Text <>
"Valid Password" Then
txtMessage.Text = "Invalid Password"
End If
End Sub
Private Sub
cmdNum1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum1.Click
txtPassword.Text &= "1"
End Sub
Private Sub cmdNum2_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum2.Click
txtPassword.Text &= "2"
End Sub
Private Sub cmdNum3_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum3.Click
txtPassword.Text &= "3"
End Sub
Private Sub cmdNum4_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum4.Click
txtPassword.Text &= "4"
End Sub
Private Sub cmdNum5_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum5.Click
'txtPassword.Text &=
"5"
txtPassword.Text = txtPassword.Text & "5"
End Sub
Private Sub cmdNum6_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum6.Click
txtPassword.Text &= "6"
End Sub
Private Sub cmdNum7_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum7.Click
txtPassword.Text &= "7"
End Sub
Private Sub cmdNum8_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum8.Click
txtPassword.Text &= "8"
End Sub
Private Sub cmdNum9_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum9.Click
txtPassword.Text &= "9"
End Sub
Private Sub cmdNum0_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum0.Click
txtPassword.Text &= "0"
End Sub
Private Sub cmdClear_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdClear.Click
txtPassword.Clear()
txtMessage.Text = ""
txtPassShow.Text = ""
End Sub
Private Sub cmdProc_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdProc.Click
txtPassShow.Text = txtPassword.Text
txtMessage.Text = ""
arrIndx = 0
Do While
arrIndx <= 5
If
Val(txtPassword.Text) = Val(arrCode(arrIndx)) Then
txtMessage.Text = "Valid Password"
End If
arrIndx += 1
Loop
If txtMessage.Text <>
"Valid Password" Then
txtMessage.Text = "Invalid Password"
End If
End Sub
Private
Sub frmCalcinvar_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
arrCode = New Integer(5) {123, 234, 345, 456, 567, 678}
End Sub