I need this done in visual basic, also please provide the GUI design, it would b

Question

I need this done in visual basic, also please provide the GUI design, it would be greatly appreciated. This was answered for me yesterday however it was incomplete.

Design and code a project to calculate amount due for rentals. Movies may be in VHS format or dvd format. Videotapes rent for $1.80 a each and DVDS rent for 2.50. New releases are $3 for DVD and 2.00 VHS.

On the form include a text box to input the movie title and radio buttons to indicate wheather the movie is DVD or VHS Format. Use one check box to indicate wheather a person ia a memeber : members recieve a 10% discount.Another check box indicates a new release.

Use buttons for calculate, clear for next item, order complete, summary,print and exit. The calculate button should display the item amount and display the subtotal. The Clear for next button clears the check box for new releases, the movie title and the radio buttons; the member check box cannot be changed until the current order is complete. Include Validation to check for missing data. If the user clicks on the calculate button without first entering the movie title and selecting the movie format, display a message box.

For the order complete button, first confirm the operation with the user and clear the controls on the form for a new customer.

The summary button displays the number of customers and the sum of the rental accounts in a mesage box. make sure to add to the customer count and rental sum for each customer order.

Explanation / Answer

Public Class Form1
Public tot As Double
Public c As Integer = 0

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
RadioButton1.Checked = False
RadioButton2.Checked = False
CheckBox2.Checked = False
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim flag As Integer
If TextBox1.Text = "" Then
MsgBox("Pl. enter Title")
TextBox1.Focus()
Else
If RadioButton1.Checked = True Then
flag = 1
End If
If RadioButton2.Checked = True Then
flag = 2
End If

If CheckBox2.Checked = True Then
If flag = 1 Then
tot = 2
Else
tot = 3
End If

End If
If CheckBox1.Checked = True Then
tot = tot - (tot * 10 / 100)

End If
MsgBox("sub total " & tot)
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = ""
RadioButton1.Checked = False
RadioButton2.Checked = False
CheckBox2.Checked = False
CheckBox1.Checked = False
c = c + 1
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
PrintForm1.Print()

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
End
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
MsgBox("Total Customer " & c)
End Sub
End Class

Related Questions

Navigate

• Browse (All)
• Browse I
• Subjects

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