Question

Open the Gross Pay Solution.sln file contained in the VB2017\Chap08\Gross Pay Solution folder. The interface provides a text box for entering the number of hours an employee worked. It also provides a list box for selecting the employee’s pay code. The btnCalc_Click procedure should display the gross pay, using the number of hours worked and the pay rate corresponding to the selected code. The pay codes and rates are listed in Figure 8-47. Employees working more than 40 hours receive time and a half for the hours worked over 40. Code the application. Use a class-level array to store the pay rates. Save the solution and then start and test the applicatio

Pay code P23 P56 F45 F68 F96 Pay rate 10.50 12.50 14.25 15.75 17.65 Figure 8-47 Pay codes and rates for Exercise 3

Answer 1

Code

Public Class Form1
Dim rate() As Decimal ''class level array

Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
Dim hourlyRate = rate(lstCode.SelectedIndex)
Dim grossPay As Decimal
Dim hourWorked As Integer
hourWorked = Convert.ToInt32(txtHours.Text)
If hourWorked > 40 Then
grossPay = 40 * hourlyRate
grossPay += (hourWorked - 40) * 1.5 * hourWorked
Else
grossPay = hourWorked * hourlyRate
End If
txtGrossPay.Text = grossPay.ToString("C")
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
rate = {10.5, 12.5, 14.25, 15.75, 17.68}
End Sub

Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
Me.Close()
End Sub
End Class

Design

Quick Launch (Ctrl+Q) - x Gross Pay Calculator - Microsoft Visual Studio FILE EDIT VIEW PROJECT BUILD DEBUG TEAM SQL 2. Start - Debug - Form1.vb Form1.vb (Design) + x FORMAT TOOLS TEST ARCHITECTURE E3 ELT L 1* I listBox named IstCode ANALYZE WINDOW H J E HELP , Solution Explorer - fx Data Sources . Gross Pay Calculator textBox named txtHours Code Bours: Server Explorer Search Solution Explorer (Ctrl+;) . Solution 'Gross Pay Calculator' (1 proje VE Gross Pay Calculator My Project App.config 3 Form1.vb P23 P56 pe button name btnCalculate button named btnExit F45 • Exit F68 F96 Gross Pay: Toolbox TextBox named txtGrossPay Solution Explorer Class View Properties w w w btnExit System.Windows.Forms.Button x Friend 0,0,0,0 No 75,23 Modifiers # Padding RightToLeft Æ Size Tablndex TabStop Tag Text True E&uxit Text The text associated with the control. Error List Output Ready O Type here to search BI 76% op ^ ) ENG 00:59 24-09-2019

output

Quick Launch (Ctrl+Q) - x Properties www IX Gross Pay Calculator (Running) - Microsoft Visual Studio FILE EDIT VIEW PROJECT BUILD DEBUG TEAM SQL TOOLS TEST ARCHITECTURE ANALYZE WINDOW HELP 8 - Sº. . . Continue - Debug - 16 = Go Ş I Process: [15556] Gross Pay Calculator.vsho: - Suspend - Thread: [14332] Main Thread - Stack Frame: Gross_Pay Calculator.Form1.btnCalculate - Form1.vb - X Gross Pay Calculator - 0 x btnCalculate - 5 Click Public cla Code Hours: Dim ra 40 Calculate P56 Privat F45 Exit JentArgs) Handles btnCalculate.click F68 F96 Gross Pay: * 420.00 P23 grossPay = 40 * hourlyRate grossPay += (hourworked - 40) * 1.5 * hourWorked Else grossPay = hourWorked * hourlyRate End If txtGrossPay.Text = grossPay.ToString("C") End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase. Load rate = {10.5, 12.5, 14.25, 15.75, 17.68} End Sub End Class 100% - Ready Ln8 Col51 Intelli... Solut... Team... Prop... Ch 51 INS 00:58 MENG 24-09-2019 1 Type here to search 76% A O

Quick Launch (Ctrl+Q) - x Properties www IX Gross Pay Calculator (Running) - Microsoft Visual Studio FILE EDIT VIEW PROJECT BUILD DEBUG TEAM SQL TOOLS TEST ARCHITECTURE ANALYZE WINDOW HELP 8 - Sº. . . Continue - Debug - 16 = Go Ş I Process: [15556] Gross Pay Calculator.vsho: - Suspend - Thread: [14332] Main Thread - Stack Frame: Gross_Pay Calculator.Form1.btnCalculate - Form1.vb - X Gross Pay Calculator - 0 x btnCalculate - 5 Click Public cla Code Hours: Dim ra P23 50 Calculate Privat F45 Exit JentArgs) Handles btnCalculate.click F68 Gross Pay: 1.380.00 P56 O F96 GB grossPay = 40 * hourlyRate grossPay += (hourworked - 40) * 1.5 * hourWorked Else grossPay = hourWorked * hourlyRate End If txtGrossPay.Text = grossPay.ToString("C") End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase. Load rate = {10.5, 12.5, 14.25, 15.75, 17.68} End Sub End Class 100% - Ready Ln8 Col51 Intelli... Solut... Team... Prop... Ch 51 INS 00:58 MENG 24-09-2019 1 Type here to search 76% A O

If you have any query regarding the code please ask me in the comment i am here for help you. Please do not direct thumbs down just ask if you have any query. And if you like my work then please appreciates with up vote. Thank You.