PrMinor project
Public Class
frmMinor
Inherits
System.Windows.Forms.Form
Dim wkMinTot As Integer
Dim wkFinTot As Integer
Dim
wkHoldDept As String
Private Sub frmMinor_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
FileOpen(1, "Minor.txt", OpenMode.Input)
wkHoldDept = ""
End Sub
Private Sub btnProcess_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnProcess.Click
Dim wkDeptNo As String, wkAmt As String
If Not
EOF(1) Then
Input(1, wkDeptNo)
Input(1, wkAmt)
If wkHoldDept <>
wkDeptNo Then
If wkHoldDept
<> "" Then
lstMinor.Items.Add("Dept Total: " & FormatCurrency(wkMinTot))
wkHoldDept = wkDeptNo
wkMinTot = 0
Else
wkHoldDept = wkDeptNo
End If
End If
lstMinor.Items.Add(wkDeptNo & " " & FormatCurrency(wkAmt))
wkMinTot = wkMinTot + wkAmt
wkFinTot = wkFinTot + wkAmt
Else
MsgBox("End of File", vbOKOnly,
"EOF")
lstMinor.Items.Add("Dept Total: " & FormatCurrency(wkMinTot))
lstMinor.Items.Add("Final Total: " & FormatCurrency(wkFinTot))
FileClose(1)
End If
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnExit.Click
End
End Sub
End Class
PrMIM Project
Public Class
frmMIM
Inherits
System.Windows.Forms.Form
Dim wkMinTot As Integer
Dim wkInterTot As Integer
Dim wkMajorTot As Integer
Dim wkFinTot As Integer
Dim wkHoldDept As String
Dim wkHoldBr As String
Dim
wkHoldDiv As String
Private Sub frmMinor_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
FileOpen(1, "MIM.txt", OpenMode.Input)
wkHoldDept = ""
wkHoldBr = ""
wkHoldDiv = ""
End Sub
Private
Sub btnProcess_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnProcess.Click
Dim wkDivNo As String, wkBrNo As String, wkDeptNo As String, wkAmt As String
If Not
EOF(1) Then
Input(1, wkDivNo)
Input(1, wkBrNo)
Input(1, wkDeptNo)
Input(1, wkAmt)
If wkHoldDiv =
"" Then
wkHoldDiv = wkDivNo
wkHoldBr = wkBrNo
wkHoldDept = wkDeptNo
End If
If wkHoldDiv <> wkDivNo Then
lstMIM.Items.Add("Dept Total: " & FormatCurrency(wkMinTot))
lstMIM.Items.Add("Branch Total: " & FormatCurrency(wkInterTot))
lstMIM.Items.Add("Division Total: " & FormatCurrency(wkMajorTot))
wkHoldDept = wkDeptNo
wkHoldBr = wkBrNo
wkHoldDiv = wkDivNo
wkMinTot = 0
wkInterTot = 0
wkMajorTot = 0
Else
If wkHoldBr
<> wkBrNo Then
lstMIM.Items.Add("Dept Total: " & FormatCurrency(wkMinTot))
lstMIM.Items.Add("Branch Total: " & FormatCurrency(wkInterTot))
wkHoldDept = wkDeptNo
wkHoldBr
= wkBrNo
wkMinTot = 0
wkInterTot = 0
Else
If wkHoldDept
<> wkDeptNo Then
lstMIM.Items.Add("Dept Total: " & FormatCurrency(wkMinTot))
wkHoldDept = wkDeptNo
wkMinTot = 0
End If
End If
End If
lstMIM.Items.Add(wkDivNo & " " & wkBrNo & " " & wkDeptNo & " " & FormatCurrency(wkAmt))
wkMinTot = wkMinTot + wkAmt
wkInterTot = wkInterTot + wkAmt
wkMajorTot = wkMajorTot + wkAmt
wkFinTot = wkFinTot + wkAmt
Else
MsgBox("End of File", vbOKOnly,
"EOF")
lstMIM.Items.Add("Dept Total: " & FormatCurrency(wkMinTot))
lstMIM.Items.Add("Branch Total: " & FormatCurrency(wkInterTot))
lstMIM.Items.Add("Division Total: " & FormatCurrency(wkMajorTot))
lstMIM.Items.Add("Final Total: " & FormatCurrency(wkFinTot))
FileClose(1)
End If
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnExit.Click
End
End Sub
End
Class
Check Project
Public Class
frmCheck
Inherits
System.Windows.Forms.Form
Private Sub txtName_Validating(ByVal
sender As Object,
ByVal e As
System.ComponentModel.CancelEventArgs) Handles
txtName.Validating
If txtName.Text =
"" Then
MessageBox.Show("Please enter a name",
"Name Error")
txtName.Focus()
End If
End Sub
Private Sub txtDept_Validating(ByVal
sender As Object,
ByVal e As
System.ComponentModel.CancelEventArgs) Handles
txtDept.Validating
If txtDept.Text.Length <
3 Or txtDept.Text.Length > 3 Then
MessageBox.Show("Dept should be 3
characters", "Dept Error")
txtDept.Focus()
End If
End Sub
Private Sub txtSalHr_Validating(ByVal
sender As Object,
ByVal e As
System.ComponentModel.CancelEventArgs) Handles
txtSalHr.Validating
If txtSalHr.Text <>
"S" Then
If txtSalHr.Text
<> "H" Then
MessageBox.Show("Enter S or H",
"Employee Type Error")
txtSalHr.Focus()
End If
End If
End Sub
Private Sub btnProcess_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnProcess.Click
If txtSalHr.Text =
"S" Then
grpSalary.Enabled = True
grpHourly.Enabled = False
Else
grpSalary.Enabled = False
grpHourly.Enabled = True
End If
End Sub
Private Sub frmCheck_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
grpSalary.Enabled = False
grpHourly.Enabled = False
End Sub
Private Sub txtSalary_Validating(ByVal
sender As Object,
ByVal e As
System.ComponentModel.CancelEventArgs) Handles
txtSalary.Validating
If txtSalary.Text <
25000 Or txtSalary.Text > 200000 Then
MessageBox.Show("Salary between 25000 and
200000", "Error Salary")
txtSalary.SelectionStart = 0
txtSalary.SelectionLength = txtSalary.Text.Length
txtSalary.Focus()
End If
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnClear.Click
txtName.Clear()
txtDept.Clear()
txtSalHr.Clear()
txtSalary.Clear()
txtHrs.Clear()
txtPayHr.Clear()
txtSalPay.Clear()
txtHrPay.Clear()
End Sub
Private Sub txtHrs_Validating(ByVal sender
As Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles
txtHrs.Validating
If txtHrs.Text < 30 Or txtHrs.Text > 60 Then
MessageBox.Show("Hours between 30 and 60",
"Error Hours")
With txtHrs
.SelectionStart = 0
.SelectionLength = txtHrs.Text.Length
.Focus()
End With
End If
End Sub
Private Sub txtPayHr_Validating(ByVal
sender As Object,
ByVal e As
System.ComponentModel.CancelEventArgs) Handles
txtPayHr.Validating
If txtPayHr.Text < 10 Or txtPayHr.Text > 50 Then
MessageBox.Show("Pay/hour between 10 and 50",
"Error Pay/Hr")
With txtPayHr
.SelectionStart = 0
.SelectionLength = txtPayHr.Text.Length
.Focus()
End With
End If
End Sub
Private Sub btnSalCalc_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnSalCalc.Click
txtSalPay.Text = FormatCurrency(CDec(txtSalary.Text)
/ 52)
End Sub
Private Sub btnHrCalc_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnHrCalc.Click
Dim wkPay As Decimal
If txtHrs.Text > 40 Then
wkPay = CDec(txtPayHr.Text)
* 40 + CDec(txtPayHr.Text) * 1.5 * (CInt(txtHrs.Text) - 40)
Else
wkPay = CDec(txtPayHr.Text)
* CInt(txtHrs.Text)
End If
txtHrPay.Text = FormatCurrency(wkPay)
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnExit.Click
End
End Sub
End Class