Microsoft Visual Basic Studio Programming1. Change the CalcDiscount procedure to a function. 2. Make the necessary modifications to the bntCalc_Click procedure.
Microsoft Visual Basic Studio Programming1. Change the CalcDiscount procedure to a function. 2. Make the necessary modifications to the bntCalc_Click procedure.
Computer Networking: A Top-Down Approach (7th Edition)
7th Edition
ISBN:9780133594140
Author:James Kurose, Keith Ross
Publisher:James Kurose, Keith Ross
Chapter1: Computer Networks And The Internet
Section: Chapter Questions
Problem R1RQ: What is the difference between a host and an end system? List several different types of end...
Related questions
Question
Microsoft Visual Basic Studio Programming1. Change the CalcDiscount procedure to a function.
2. Make the necessary modifications to the bntCalc_Click procedure.
Transcribed Image Text:Concert Tickets
Tickets:
Standard
ADMIT
ONE
Calculate
O VIP
Subtotal:
Exit
Discount:
Total due:
DOD
![Concert Solution - Microsoft Visual Studio
Quick Launch (Ctrl+Q)
File
Edit
View
Project
Build
Debug
Team
Tools
Test
Analyze
Window
Help
cowsandals@yahoo.com -
> Start - I
Main Form.vb + X Main Form.vb [Design]
Solution Explorer
VB Concert Project
O btnCalc
5 Click
© O A 6. -
E' Name:
* Purpose:
' Programmer:
Concert Project
Displays the subtotal, discount, and total due for concert tickets.
Search Solution Explorer (Ctrl+;)
2
<your name> on <current date>
M Solution 'Concert Solution' (1 project)
VE Concert Project
- My Project
H References
I Resources
3
4
-
Option Explicit On
Option Strict On
Option Infer Off
5
7
8
1 reference
OPublic Class frmMain
O App.config
| Main Form.vb
9
Independent Sub procedure. (You will change this procedure to a function).
1 reference
Private Sub CalcDiscount(ByVal intNum As Integer,
10
11
ByVal dblBeforeDiscount As Double,
ByRef dblDisc As Double)
12
13
Solution Explorer Team Explorer
14
Select Case intNum
15
Case Is >= 10
Properties
16
dblDisc = dblBeforeDiscount * 0.1
* 0.1
17
Case Is >= 5
18
dblDisc =
= db1BeforeDiscount * 0.05
19
Case Else
20
dblDisc = e
21
End Select
22
End Sub
23
O references
Private Sub btnCalc Click(sender As Object, e As EventArgs) Handles btnCalc.click
' Display subtotal, discount, and total due.
24/ e
25
26
27
Const dblSTANDARD As Double = 62.5
Const dblVIP As Double = 102.75
Dim intTickets As Integer
Dim dblSubtotal As Double
28
29
30
31
nim dhiniecount As nouhle
100 %
Error List Output
O Ready
Ln 24
Col 32
Ch 32
INS
1 Add to Source Control -
ENG
6:33 PM
P Type here to search
a
US
4/21/2021](/v2/_next/image?url=https%3A%2F%2Fcontent.bartleby.com%2Fqna-images%2Fquestion%2Faaaebde2-392e-4d51-8063-f51c8e9a654c%2Fd6c6fd20-95d4-495e-836a-9c23978c01c4%2Fnag6c2b_processed.png&w=3840&q=75)
Transcribed Image Text:Concert Solution - Microsoft Visual Studio
Quick Launch (Ctrl+Q)
File
Edit
View
Project
Build
Debug
Team
Tools
Test
Analyze
Window
Help
cowsandals@yahoo.com -
> Start - I
Main Form.vb + X Main Form.vb [Design]
Solution Explorer
VB Concert Project
O btnCalc
5 Click
© O A 6. -
E' Name:
* Purpose:
' Programmer:
Concert Project
Displays the subtotal, discount, and total due for concert tickets.
Search Solution Explorer (Ctrl+;)
2
<your name> on <current date>
M Solution 'Concert Solution' (1 project)
VE Concert Project
- My Project
H References
I Resources
3
4
-
Option Explicit On
Option Strict On
Option Infer Off
5
7
8
1 reference
OPublic Class frmMain
O App.config
| Main Form.vb
9
Independent Sub procedure. (You will change this procedure to a function).
1 reference
Private Sub CalcDiscount(ByVal intNum As Integer,
10
11
ByVal dblBeforeDiscount As Double,
ByRef dblDisc As Double)
12
13
Solution Explorer Team Explorer
14
Select Case intNum
15
Case Is >= 10
Properties
16
dblDisc = dblBeforeDiscount * 0.1
* 0.1
17
Case Is >= 5
18
dblDisc =
= db1BeforeDiscount * 0.05
19
Case Else
20
dblDisc = e
21
End Select
22
End Sub
23
O references
Private Sub btnCalc Click(sender As Object, e As EventArgs) Handles btnCalc.click
' Display subtotal, discount, and total due.
24/ e
25
26
27
Const dblSTANDARD As Double = 62.5
Const dblVIP As Double = 102.75
Dim intTickets As Integer
Dim dblSubtotal As Double
28
29
30
31
nim dhiniecount As nouhle
100 %
Error List Output
O Ready
Ln 24
Col 32
Ch 32
INS
1 Add to Source Control -
ENG
6:33 PM
P Type here to search
a
US
4/21/2021
Expert Solution
This question has been solved!
Explore an expertly crafted, step-by-step solution for a thorough understanding of key concepts.
This is a popular solution!
Trending now
This is a popular solution!
Step by step
Solved in 2 steps
Recommended textbooks for you
Computer Networking: A Top-Down Approach (7th Edi…
Computer Engineering
ISBN:
9780133594140
Author:
James Kurose, Keith Ross
Publisher:
PEARSON
Computer Organization and Design MIPS Edition, Fi…
Computer Engineering
ISBN:
9780124077263
Author:
David A. Patterson, John L. Hennessy
Publisher:
Elsevier Science
Network+ Guide to Networks (MindTap Course List)
Computer Engineering
ISBN:
9781337569330
Author:
Jill West, Tamara Dean, Jean Andrews
Publisher:
Cengage Learning
Computer Networking: A Top-Down Approach (7th Edi…
Computer Engineering
ISBN:
9780133594140
Author:
James Kurose, Keith Ross
Publisher:
PEARSON
Computer Organization and Design MIPS Edition, Fi…
Computer Engineering
ISBN:
9780124077263
Author:
David A. Patterson, John L. Hennessy
Publisher:
Elsevier Science
Network+ Guide to Networks (MindTap Course List)
Computer Engineering
ISBN:
9781337569330
Author:
Jill West, Tamara Dean, Jean Andrews
Publisher:
Cengage Learning
Concepts of Database Management
Computer Engineering
ISBN:
9781337093422
Author:
Joy L. Starks, Philip J. Pratt, Mary Z. Last
Publisher:
Cengage Learning
Prelude to Programming
Computer Engineering
ISBN:
9780133750423
Author:
VENIT, Stewart
Publisher:
Pearson Education
Sc Business Data Communications and Networking, T…
Computer Engineering
ISBN:
9781119368830
Author:
FITZGERALD
Publisher:
WILEY