You are asked to create a VB application \"Conference Room Registration\", which

Question

You are asked to create a VB application "Conference Room Registration", which will use "multiple forms" concepts in chapter 7. Design View: startup form (MainForm) 1. Create two forms: MainForm (Startup Form)& OptionsForm 2. Main Form Conference Registration System 8 textboxes 1 label Total) 3 buttons 3. When click on "Select Conference Options" button Total prompt the sccond form "Options Form" Select Conference 4. Reset button clear all textboxes inputs and label. 5. Second form -Conference 2nd form (OptionsForm) 6. "Save selections and close window" button save a user's selections and calculate the opening Night Dinners "Total fee and display it to "Total Label in the Mainform 7. "Save selections and close window" button Also refer to the FormClosing Event' on p. 445 8. Create a "module" (named Total) to store "total's calculation (p. 451 Results: these are samples

Explanation / Answer

Main Form:

Public Class Main
Private Sub btnOptions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btnOptions.Click
OptionsForm.ShowDialog()
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.
Click
Me.Close()
End Sub
Public Sub lblTotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblTotal.
Click
End Sub
Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btnResetForm.Click
lblTotal.Text = String.Empty
txtCity.Text = String.Empty
txtCompany.Text = String.Empty
txtEmail.Text = String.Empty
txtPhone.Text = String.Empty
txtState.Text = String.Empty
txtZip.Text = String.Empty
txtAddress.Text = String.Empty
txtName.Text = String.Empty
End Sub
Private Sub btnResetTotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btnResetTotal.Click
lblTotal.Text = String.Empty
End Sub
Private Sub txtZip_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
txtZip.TextChanged
End Sub
End Class

Option form:

Public Class OptionsForm
Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset
.Click
lstOptions.SelectedItem() = Nothing
chkConfReg.Checked = False
chkDinnerKeynote.Checked = False
Main.lblTotal.Text = String.Empty
g_Total = 0
End Sub
Private Sub chkConfReg_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles chkConfReg.CheckedChanged
If chkConfReg.Checked = True Then
lstOptions.Enabled = True
chkDinnerKeynote.Enabled = True
g_Total = dblCONFERENCE
Main.lblTotal.Text = CStr(g_Total.ToString("c"))
End If
If chkConfReg.Checked = False Then
lstOptions.Enabled = False
chkDinnerKeynote.Enabled = False
Main.lblTotal.Text = String.Empty
End If
End Sub
Public Sub lstOptions_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles lstOptions.SelectedIndexChanged
Dim strSelected As String
strSelected = CStr(lstOptions.SelectedItem())
If chkDinnerKeynote.Checked = True Then
If strSelected = strIntroEcommerce Then
g_OptionSelected = dblINTRO_ECOM
g_Total = dblCONFERENCE + g_OptionSelected + dblDINNER_KEYNOTE
Main.lblTotal.Text = CStr(g_Total.ToString("c"))
ElseIf strSelected = strFutureWeb Then
g_OptionSelected = dblFUTURE_WEB
g_Total = dblCONFERENCE + g_OptionSelected + dblDINNER_KEYNOTE
Main.lblTotal.Text = CStr(g_Total.ToString("c"))
ElseIf strSelected = strAdvancedVB Then
g_OptionSelected = dblADVANCED_VB
g_Total = dblCONFERENCE + g_OptionSelected + dblDINNER_KEYNOTE
Main.lblTotal.Text = CStr(g_Total.ToString("c"))
ElseIf strSelected = strNetworkSecurity Then
g_OptionSelected = dblNETWORK_SECURITY
g_Total = dblCONFERENCE + g_OptionSelected + dblDINNER_KEYNOTE
Main.lblTotal.Text = CStr(g_Total.ToString("c"))
End If
End If
If chkDinnerKeynote.Checked = False Then
If strSelected = strIntroEcommerce Then
g_OptionSelected = dblINTRO_ECOM
g_Total = dblCONFERENCE + g_OptionSelected
Main.lblTotal.Text = CStr(g_Total.ToString("c"))
ElseIf strSelected = strFutureWeb Then
g_OptionSelected = dblFUTURE_WEB
g_Total = dblCONFERENCE + g_OptionSelected
Main.lblTotal.Text = CStr(g_Total.ToString("c"))
ElseIf strSelected = strAdvancedVB Then
g_OptionSelected = dblADVANCED_VB
g_Total = dblCONFERENCE + g_OptionSelected
Main.lblTotal.Text = CStr(g_Total.ToString("c"))
ElseIf strSelected = strNetworkSecurity Then
g_OptionSelected = dblNETWORK_SECURITY
g_Total = dblCONFERENCE + g_OptionSelected
Main.lblTotal.Text = CStr(g_Total.ToString("c"))
End If
End If
End Sub
Private Sub chkDinnerKeynote_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles chkDinnerKeynote.CheckedChanged
If chkDinnerKeynote.Checked = True Then
If g_OptionSelected > 0 Then
g_Total = (g_Total + dblDINNER_KEYNOTE)
Main.lblTotal.Text = CStr(g_Total.ToString("c"))
Else : chkDinnerKeynote.Checked = True
g_Total = dblCONFERENCE + dblDINNER_KEYNOTE
Main.lblTotal.Text = CStr(g_Total.ToString("c"))
End If
End If
If chkDinnerKeynote.Checked = False Then
If g_OptionSelected > 0 Then
g_Total = dblCONFERENCE + g_OptionSelected
Main.lblTotal.Text = CStr(g_Total.ToString("c"))
Else : chkDinnerKeynote.Checked = False
g_Total = dblCONFERENCE
Main.lblTotal.Text = CStr(g_Total.ToString("c"))
End If
End If
End Sub
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose
.Click
Me.Close()
End Sub
Private Sub frmOptions_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.
Load
g_Total = 0
End Sub
End Class

Related Questions

Navigate

• Browse (All)
• Browse Y
• Subjects

---

---

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