Question

visual studio please

Programming Challenges 1. Conference Registration System Create an application that calculates the registration fees for a conference. The gen- eral conference registration fee is $895 per person. There is also an optional opening! night dinner with a keynote address for $30 per person. Additionally, the optional preconference workshops listed in Table 7-3 are available. Table 7-3 Optional preconference workshops Workshop Free Introduction to E-commerce $295 The Future of the Web $295 Advanced Visual Basic $395 Network Security $395 The application should have two forms. The main form should appear similar to the one shown in Figure 7-63.

all the infirmation is in 3 pictures that ive already submited

Answer 1

'Form1 Coding

Public Class Form1
Dim s As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Hide()

End Sub
End Class

'Form2 coding

Public Class Form2
Dim st As String
Dim st1 As String
Dim i As Integer
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CheckBox1.Checked = True
CheckBox1.Enabled = False
ListBox1.Items.Add("Introduction to e commerce $295")
ListBox1.Items.Add("The Future Of The Web $295")
ListBox1.Items.Add("Advanced visual Basic $395")
ListBox1.Items.Add("Network Security $395")

End Sub

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

st = ListBox1.SelectedItem.ToString()
st = st.Substring(st.Length - 3)
i = Convert.ToInt16(st)
If CheckBox2.Checked Then
st1 = CheckBox2.Text.Substring(CheckBox2.Text.Length - 2)
st1 = Convert.ToInt16(st1)

total = Convert.ToInt16(CheckBox1.Text.Substring(CheckBox1.Text.Length - 3)) + i + st1
Else
total = Convert.ToInt16(CheckBox1.Text.Substring(CheckBox1.Text.Length - 3)) + i

End If
MessageBox.Show(total)
Form1.Show()
Form1.TextBox1.Text = total.ToString()
Me.Hide()

End Sub
End Class

'Module coding

Module Module1
Public total As Integer

End Module

Windows Application6 (Running) - Microsoft Visual Studio File Edit View Project Build Debug Data Format Tools Test Window Help 3- D do 9. -12. Debug - Any CPU data E = To ledo 18 | 1933 Form2.vb a Form2.vb Design Modulel.vb Form1.vb Form1.vb (Design) E - 3 Hex X Solution Explor... I X Form1 é Solution Windows Applie WindowsApplication My Project - Form1.vb - Form2.vb Module1.vb Name Phone Company Name Company Address e mai Address ON Total Reset Exit Select conferenc option Select conference option Ready 3 8 9 e o . . i 2:01 AM 17-Jul-19

current red pen drive Recycle Bin database Format Factory Python M.. Form2 - DX Form1 $295 $295 SQlite ✓ Conference Registration $123 Introduction to e commerce The Future of The Web Advanced visual Basic Network Security $395 ✓ Opening Night Dinner $30 Hach_with_ string I nfyt 4545 Name dodio Company off Address of City of | Reset Close , 3434 InfyTOZ Microso Tally e earning upload MyPag Reset Ext Select conference option MyPaper del Blue) Presentation MGA LP R... Get Started - Copy DEV RE Python Presentation Computer DevCmca testing har... - 17-Jul-19

Picture Tools upload DIEU = 1 File Home Share View Manage Cut x Di New item Easy access Select all : Select none & Invert selection Copy M. Copy path Paste Paste shortcut Clipboard + 1 upload Move Copy Delete Rename to to Organize New folder Open - Edit Properties History Open - - X New Select Form1 Search up... Favorites Downloads Recent places Music 4545 Name dddd Company off Address off City dfdf Phone e mai Libraries Documents Music Pictures Videos Homegroup Total 548 Reset Exit Computer Local Disk (C:) Local Disk (E:) Local Disk (F:) Select conference option G Network 3 items 1 item selected 1.49 MB Item type: PNG File Dimensions: 1366 x 768, Size: 1.49 MB 1.49 MB Computer 2 :06 AM 17-Jul-19 -P '