Can someone please do this programming challenge for me? I am using microsoft vi
ID: 3683788 • Letter: C
Question
Can someone please do this programming challenge for me? I am using microsoft visual studio 2015 and working out of the Starting Out with Visual Basic 2012 sixth edition book. Need the coding and what each button and form does.This is using "Windows Application Form"!!! Please explain steps thoroughly thank you!!! Here are my forms I created.
Dorm and Meal Plan Calculator A university has the following dormitories Allen Hall Pike Hall Farthing Hal 1,200 per semester University Suites $1,800 per semester The university also offers the following meal plans 7 meals per week 14 meals per week 1,095 per semester Unlimited meals 1,500 per semester $1,600 per semester S 560 per semester 1,500 per semester of the dormitories and the Create an application with two forms. The startup form holds the names of the dormitories and the other holds the meal plans. When the user selects a dormitory and meal plan, the application should show the total charges for the semester on the startup form.Explanation / Answer
Form1 code
Public Class Form1
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = True Then
TextBox1.Text = 1500
End If
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked = True Then
TextBox1.Text = 1600
End If
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
If RadioButton3.Checked = True Then
TextBox1.Text = 1200
End If
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
If RadioButton4.Checked = True Then
TextBox1.Text = 1800
End If
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
Form2.Show()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
form2 code
Public Class Form2
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = True Then
Form1.TextBox2.Text = 560
End If
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked = True Then
Form1.TextBox2.Text = 1095
End If
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
If RadioButton3.Checked = True Then
Form1.TextBox2.Text = 1500
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
Form1.Show()
End Sub
End Class