Create an application, using the following names for the solution and project, r

Question

Create an application, using the following names for the solution and project, respectively: Mats Solution and Mats Project. Save the application in the VB2015 Chap07 folder. Mats-R-Us sells three different type of mats: Standard ($99), Deluxe ($129), and Premium ($179). All of the mats are available in blue, red ($10 extra), and pink ($15 extra). There is also an extra $25 charge if the customer wants the mat to be foldable. The application's interface is shown in Figure 7-55. Use a function to calculate the total additional charge (if any). Test the application appropriately. User interface for Exercise 9

Explanation / Answer

Public Class Form1
Public tot As Integer = 0
Public tot1 As Integer = 0
Public tot2 As Integer = 0

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
tot = 99
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
tot = 129
End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
tot = 179
End Sub

Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
tot1 = 10
End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
tot1 = 15

End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
tot2 = 25
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = tot + tot1 + tot2

End Sub

Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
tot1 = 0
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class

Related Questions

Navigate

• Browse (All)
• Browse C
• Subjects

---

---

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.