Question

PLEASE USE VISUAL BASIC* BY VISUAL STUDIO.

Visual Basic INTERMEDIATE Create a Windows Forms application. Use the following names for the project and solution, respectively: Chopkins Project and Chopkins Solution. Save the application in the VB2017\Chap03 folder. Change the form file's name to Main Form.vb. Change the form's name to frmMain. Create the interface shown in Figure 3-37. The interface contains six labels, three text boxes, and two buttons. The application calculates and displays the total number of packs ordered and the total price of the order. The prices of a 12 pack, a 5 pack, and a 2 pack are $14.99, $6.99, and $2.50, respectively. Use variables and named constants in your code. Enter the three Option statements in the Code Editor window. The total sales amount should be displayed with a comma (if necessary), a dollar sign and two decimal places. Code each text box's TextChanged and Enter event procedures. Save the solution and then start and test the application. - Chopkins Toys - O x 12 pack 5 pack 2 pack Totals: set this label's BackColor property Calculate Exit

Answer 1

Program:

Public Class Form1

Private Sub btn_Calculate_Click(sender As Object, e As EventArgs) Handles btn_Calculate.Click

Const price12Pack As Double = 14.99
Const price5Pack As Double = 6.99
Const price2Pack As Double = 2.5
Dim totalPack As Integer
Dim totalPrice As Double
Dim pack12, pack5, pack2 As Integer

pack12 = Convert.ToInt32(txt12Packs.Text)
pack5 = Convert.ToInt32(txt5Packs.Text)
pack2 = Convert.ToInt32(txt2Packs.Text)
totalPack = pack12 + pack5 + pack2

lblTotalPacks.Text = totalPack & ", "

totalPrice = pack12 * price12Pack + pack5 * price5Pack + pack2 * price2Pack

lbl_TotalPrice.Text = "$" & Math.Round(totalPrice, 2)

End Sub

Private Sub btn_EXIT_Click(sender As Object, e As EventArgs) Handles btn_EXIT.Click
Application.Exit()
'end - can be used to exit
End Sub
End Class

Output:

Quick Launch (Ctrl+0) 2 x - 0 Sign in 9 O 0 No Application Insights Events :3 8 . 1 39 . 1 Stack Frame Chopkins Toys Demo Form1 Form1_Load- - Chopkins ToysDemo (Running) - Microsoft Visual Studio File Edit View Project Build Debug Team Tools Test Analyze Window Help 3. 2. - Debug . Any CPU - Continue. Process (3952) Chopkins ToysDemo.vshost. - Lifecycle Events - Thread (4020MainThread Form.vbo x Form.vb (Design) WE Chopkins ToysDemo 2 references Public Class Form1 frmMain O references Private Sub btn_Calculate_Click(sender As Object . .btn_Calculate - Click Const price12Pack As Double = 14.99 Const price5Pack As Double - 6.99 Const price2Pack As Double 2.5 Dim totalPack As Integer Dim totalPrice As Double Dim pack12, pack, pack2 As Integer 12 pack: 5 pack: pack12 - Convert.ToInt32(txt12Packs.Text) pack5 = Convert.ToInt32(txt5Packs.Text) pack2 = Convert.ToInt32(txt2Packs.Text) totalPack = pack12 + pack5 + pack2 2 pack: lblTotalPacks.Text = totalPack &"," Totals 30, $182.35 totalPrice = pack12 * price12Pack + pack5 % 1b1_TotalPrice.Text = "$" & Math.round(total Calculate Exit Exit End Sub Oreferences Private Sub btn_EXIT_Click(sender As Object, e A Application.Exit() 'end - can be used to exit End Sub End Class Activate Windows Go to Settings to activate Windows DIE Ready In 24 col 12 Ch 12 811 AM Type here to search OR LO 3 E - 5 e 1 92 AP 2 /6/2020