Question

The following form will be used to determine the sales commission of employees. Using Visual Basic Studio, build the form with these features:

 The checkbox “Target Met” must be disabled.

 The title of the form should appear as “Sales Commissions”

Write the code to do the following: After entering the totals sales, the checkbox will automatically be checked if the average sales per month was $1,500 or more.

Note: The average sales per month can be calculated by dividing (total sales/months).

When the “Determine Sales Commission” button is clicked, the program must first check that there is no bad data entered into the textboxes. This means:

 Employee’s name must be entered.

 Both months and total sales must be numbers.

 The number of months entered must be between 0-12.

 Total sales must be a positive number.

 Any other data entered should result in showing an error message.

a. Write the code for the data validation as described above.

b. After that, input data from the textboxes into created variables. Do not forget to convert the data to its appropriate datatype as needed.

Under the same button “Determine Sales Commission”, and after the data validation from Q3, write the code that shows the following in the list box:

 The name of the employee.

 Number of months worked.

 Total sales.

 Average sales per month (Calculated as Total Sales / Months)

 A message about meeting the target, for example: “Target Met” or “Target Not met” This is based on the criteria of having average sales per month = $1,500 or more.

a. Under the same button, and after the code you completed for Q4, call a function named “GetCommission”. This function will receive the months and total sales, and returns the dollar amount of the employee’s commission to be added into the listbox.

b. Next, create the function “GetCommission” which received number of months and total sales, and returns the commission. (30) If target was not met, the commission will be 5% of all sales. Otherwise, the commission is calculated as 10% of the amount that met the target plus 15% of all additional sales. Mathematical Equations:

a. Target not met: Commission = 0.05 x TotalSales

b. Target met: Commission = (months x 1,500 x 0.10) + (0.15 x (TotalSales – (months x 1,500)))

Write the code for the clear button that:

 Clears all textboxes.

 Clears the checkbox.

 Clears the listbox

 Places the cursor in the first text box “Employee’s Name”

Sales Commissions Emplyee's Name Number of Working Months Toal Sales S$ 洞[][]0 Target Mt Detemine Sales Commission Clear Employees Name XxX Months Worked 4 Total Sales $7,000.00 Average Sales Per Month$1.750.00 Target Met Commission$750.00

Answer 1

1. Create a new windows form application in visual basic

2. Add controls like lable , text Boxes, buttons, check box and listbox in form

3. Change Text on lables

4. Change Text on buttons as "Determine Sales Commission" and "Clear" and change their Name property as "btnSales" and "btnClear"

5. Change Name property of textBoxes to txtName, txtMonths, txtSales

6. Change Name property of checkbox to CheckBoxTarget

7. Change Name property of list box to ListBoxDetails

Code-

Public Class Form4
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CheckBoxTarget.Enabled = False 'Disable checkbox on form load
End Sub

Private Sub btnSales_Click(sender As Object, e As EventArgs) Handles btnSales.Click

' Declare variables
Dim avgSales As Double = 0
Dim commission As Double = 0
Dim message As String = ""

' Call dalaValidation function
' If it returns true, then calculate average sales and commission
If (dataValidation()) Then

'Store entered months in months variable
'Store entered total sales in sales variable
Dim months As Integer = Convert.ToInt32(txtMonth.Text.ToString())
Dim sales As Integer = Convert.ToInt32(txtSales.Text.ToString())

' Calculate average sales
avgSales = sales / months

' If avgSales>=1500, set message to "target met" else "target not met"
' and calculate commission accordingly
If (avgSales >= 1500) Then
CheckBoxTarget.Checked = True
commission = (months * 1500 * 0.1) + (0.15 * (sales - (months * 1500)))
message = "Target Met"
Else
commission = 0.05 * sales
message = "Target not met"

End If

' Display details in list box by adding details one by one to items
ListBoxDetails.Items.Add("Employee Name " + txtName.Text.ToString())
ListBoxDetails.Items.Add("Months Worked " + months.ToString())
ListBoxDetails.Items.Add("Total Sales $" + sales.ToString("N2"))
ListBoxDetails.Items.Add("Average sales per month $" + avgSales.ToString("N2"))
ListBoxDetails.Items.Add(message)
ListBoxDetails.Items.Add("Commission $" + commission.ToString("N2"))
End If
End Sub

Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
'Clear all fields
txtName.Clear()
txtSales.Clear()
txtMonth.Clear()
ListBoxDetails.Items .Clear ()
CheckBoxTarget.Checked = False
txtName.Focus()
End Sub

Private Function dataValidation() As Boolean

' valid variable to represent if data is valid or not
Dim valid As Boolean = False
Dim name As String = txtName.Text.ToString()

' If name is empty, show error message
' Else check other data validation
' Check if month is numeric
' Check if sales is numeric
' If all are valid check if month is between 0-12
' Check if sales > 0
' If these 2 are valid as well, set valid = true
' Return valid
If (txtName.Text.ToString().Equals("")) Then
MessageBox.Show("Name cannot be empty!!")
ElseIf (IsNumeric(txtSales.Text) <> True) Then
MessageBox.Show("Sales must be numeric!!")
ElseIf (IsNumeric(txtMonth.Text) <> True) Then
MessageBox.Show("Month must be numeric!!")
Else
Dim months As Integer = Convert.ToInt32(txtMonth.Text.ToString())
Dim sales As Integer = Convert.ToInt32(txtSales.Text.ToString())
If (months <= 0 Or months > 12) Then
MessageBox.Show("Month must be between 0-12 !!")
ElseIf (sales < 0) Then
MessageBox.Show("Sales must be positive !!")
Else
valid = True
End If
End If

Return valid
End Function
End Class

SCREENSHOT

2 references Public Class Form4 0 references Private Sub Form4_Load (sender As Object, e As EventArgs) Handles MyBase.Load CheckBoxTarget. EnabledFalse 'Disable checkbox on form load 4 End Sub 0 references 6 Private Sub btnSales_Click(sender As Object, e As EventArgs) Handles btnSales.click 7 Declare variables Dim avgSales As Double0 Dim commission As Double 0 Dim message As String "" 10 12 13 14 15 16 17 18 19 20 21 Call dalaValidation function If it returns true, then calculate average sales and commission If (dataValidation()) Then Store entered months in months variable Store entered total sales in sales variable Dim months As Integer = Convert . Toint 32(txtMonth . Text . ToString()) Dim sales As Integer = Convert . ToInt32(txtSales . Text . ToString()) Calculate average sales avgSales sales / months 23 24 25 26 If avgSales> 1500, set message to "target met" else "target not met" and calculate commission accordingly

If (avgSales >= 1500) Then 27 28 29 30 31 32 CheckBoxTarget.checked = True commission = (months * 1500 * 0.1) + (0.15 * (sales- (months * 1500))) message "Target Met" Else commission 0.05 * sales message "Target not met" 34 35 36 37 End If 39 40 41 42 43 " Display details in list box by adding details one by one to items ListBoxDetails.Items. Add("Employee Name "txtName. Text.ToString)) ListBoxDetails.Items.Add("Months Worked"months.ToString)) ListBoxDetails.Items. Add("Total Sales $"sales. ToString ("N2")) ListBoxDetails.Items.Add("Average sales per month $" avgSales.ToString("N2")) ListBoxDetails.Items. Add (message) ListBoxDetails.Items.Add("Commission $commission. ToString("N2")) End If 45 46 End Sub O references Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click 47 48 49 50 51 52 53 54 'Clear all fields txtName.Clear() txtSales.Clear() txtMonth.Clear ListBoxDetails.Items .Clear() CheckBoxTarget.checked = False txtName. Focus()

MessageBox. Show("Sales must be positive !!") 83 84 85 86 87 Else valid True End If End If Return valid 89 90 91 End Class End Function

OUTPUT-

Employee's Name Number Of Working Months Total Sales S$ 7000 Target Met Determine Sales Commission Clear Name cannot be empty!! OK