I need solution to this Design and code a project to calculate the amount due an
ID: 440518 • Letter: I
Question
I need solution to this Design and code a project to calculate the amount due and provide a summary of rentals.All movies rent for $1.80 and all customers receive a 10 percent discount. The form should contain input for the member number and the number of movies rented.Inside a group box, display the rental amount, the 10 percent discount, and the amount due. Inside a second group box, display the number of customers served and the total rental income(after discount).Include buttons for calculate,clear,print, and exit. The clear button clear the summary information. A print button allows the user to print the form. do not allow bad input to cancel the program: instead display a message to the user.Explanation / Answer
this will be your entry 02 03 Const Discount As Decimal = 10 / 100 04 Const VidPrice As Decimal = 1.8 05 Private numberofcustomers As Array() 06 07 08 09 10 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click 11 Me.Close() 12 13 End Sub 14 15 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 16 PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview 17 PrintForm1.Print() 18 19 End Sub 20 21 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 22 23 NumberOfVidsTextBox.Clear() 24 RentalTextBox.Clear() 25 DiscountTextBox.Clear() 26 AmountTextBox.Clear() 27 With MemberTextBox 28 .Clear() 29 .Focus() 30 31 End With 32 33 End Sub 34 35 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 36 Dim custnum As Array() 37 38 Dim member As Decimal 39 Dim rental As Decimal 40 Dim discountamt As Decimal 41 Dim Amount As Decimal 42 Dim numberofVids As Decimal 43 44 45 46 NumOfCustServTextBox.Text = numberofcustomers + 1 47 48 49 50 End Sub 51 End Class