'Programer: C Maruca Bagel, Salad, Soda
Option Explicit
Dim BPrice As Currency
Dim S1Price As Currency
Dim S2Price As Currency
Dim Bagel As Currency
Dim Salad As Currency
Dim Soda As Currency
Dim TotalPrice As Currency

EMPLOYEE BONUS CONVERTING VALUES INTO STRING (VALID, INVALID)

'Programer: C Maruca Option Explicit
Dim IName As String Dim Salary As Currency Dim InSalary As String Dim InExperience As String Dim Experience As Currency Dim InDepartment As String Dim InTitle As String

IName = InputBox("Enter a Name")
txtName.Text = IName

If Len(IName) > 18 Or Len(IName) = 0 Then
lblIName.Caption = "Not Valid"
Else: lblIName.Caption = "Valid"
End If

'Salary
InSalary = InputBox("Give me a Salary")
txtSalary.Text = InSalary
If Not IsNumeric(InSalary) Then
lblSalary.Caption = "Not Valid"
Else
Salary = Val(txtSalary.Text)
If Salary >= 10000 And Salary <= 150000 Then
lblSalary.Caption = "Valid"
Else: lblSalary.Caption = "Not Valid"
End If
End If

'Years of Experience
InExperience = InputBox("Number of Years Employed")
txtYears.Text = InExperience
If Not IsNumeric(InExperience) Then
lblYears.Caption = "Not Valid" Else
Experience = Val(lblYears.Caption)
If Experience >= 0 And Experience <= 75 Then
lblYears.Caption = "Valid"
Else
lblYears.Caption = "Not Valid"
End If
End If

'Department
InDepartment = InputBox("Indicate Your Department")
txtCode.Text = InDepartment
If UCase(InDepartment) = "PROD" Or UCase(InDepartment) = "ACCTG" Or UCase(InDepartment) = "MKTG" Then
lblDepartmentCode = "Valid"
Else
lblDepartmentCode = "Not Valid"
End If

'Title
InTitle = InputBox("Enter your Title")
txtTitle.Text = InTitle
If UCase(InTitle) = "MGR" Or UCase(InTitle) = "SUPERVISOR" Or UCase(InTitle) = "STAFF" Or UCase(InTitle) = "Auditor" Then
lblTitle = "Valid"
Else
lblTitle = "Not Valid"
End If

'Form 2
If lblIName.Caption = "Valid" And lblSalary.Caption = "Valid" And lblYears.Caption = "Valid" And lblDepartmentCode.Caption = "Valid" And lblTitle.Caption = "Valid" Then
frmTip.Show
End If
If lblIName.Caption = "Valid" And lblSalary.Caption = "Valid" And lblYears.Caption = "Valid" And lblDepartmentCode.Caption = "Valid" And lblTitle.Caption = "Valid" Then
frmTip.Show
End If
End Sub

'Programer: C Maruca
'BONUS CALC WITH OPT & CHK BOX
Option Explicit
Dim Years As Currency
Dim Level As Currency
Dim Service As Currency
Dim Salary As Currency
Dim Ratio As Currency
Dim Bonus As Currency
Dim Name1 As String

Private Sub chkService_Click()
If chkService.Value = vbChecked Then
Service = 100
Else
Service = 0
End If
lblOutput.Caption = FormatCurrency(Ratio + Years + Level + Service, 2)
End Sub

Private Sub Form_Load()
opt1.Value = False
opt2.Value = False
opt3.Value = False
optLevel1.Value = False
optLevel2.Value = False
optLevel3.Value = False
End Sub

Private Sub opt1_Click()
Years = 100
lblOutput.Caption = FormatCurrency(Ratio + Years + Level + Service, 2)
End Sub
Private Sub opt2_Click()
Years = 200
lblOutput.Caption = FormatCurrency(Ratio + Years + Level + Service, 2)
End Sub
Private Sub opt3_Click()
Years = 350
lblOutput.Caption = FormatCurrency(Ratio + Years + Level + Service, 2)
End Sub
Private Sub optLevel1_Click()
Level = 75
lblOutput.Caption = FormatCurrency(Ratio + Years + Level + Service, 2)
End Sub
Private Sub optLevel2_Click()
Level = 100
lblOutput.Caption = FormatCurrency(Ratio + Years + Level + Service, 2)
End Sub
Private Sub optLevel3_Click()
Level = 125
lblOutput.Caption = FormatCurrency(Ratio + Years + Level + Service, 2)
End Sub
Private Sub txtName_Change()
Name1 = txtName.Text
frmEmployee.Caption = Name1
End Sub
Private Sub txtSalary_Change()
Salary = txtSalary.Text
Ratio = Salary * 0.05
lblOutput.Caption = FormatCurrency(Ratio + Years + Level + Service, 2)
End Sub