Question

This

I need the source code and design for the form.

Please complete this in Visual Basic .NET

Answer 1

Below is the solution:

create textbook for member no. and no of movies for input and display the calculated value in rental groupbox and summary groupbox

code:

Public Class frmVideoBonanza
    Const VidPrice As Decimal = 1.8
    Public numberofcustomers As Integer
    Public totalamt As Decimal
    Private Sub frmVideoBonanza_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MemberTextBox.Select() 'focus on textbox on form load
        'disable all the result textbox
        RentalTextBox.Enabled = False
        DiscountTextBox.Enabled = False
        AmountTextBox.Enabled = False
        TotalRentIncomeTextBox.Enabled = False
        NumOfCustServTextBox.Enabled = False
    End Sub

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        Me.Close() 'close application
    End Sub

    Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click
        'print Form
        PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
        PrintForm1.Print()
    End Sub

    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
        'clear the all TextBox
        NumberOfVidsTextBox.Clear()
        RentalTextBox.Clear()
        DiscountTextBox.Clear()
        AmountTextBox.Clear()
        TotalRentIncomeTextBox.Clear()
        NumOfCustServTextBox.Clear()
        With MemberTextBox
            .Clear()
            .Focus()
        End With
    End Sub

    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
        'calculate and display the rental amount

        'declaring variable
        Dim rental As Decimal
        Dim Amount As Decimal
        Dim numberofVids As Decimal
        Dim Discount As Decimal = 0.1 '10% discount

        'start the if statement to make sure a member number is entered.
        '(usernumber must be at least 4 digits.)
        If MemberTextBox.TextLength > 1 Then

            'start the try statement to catch no videos rented error.
            Try
                'calculate the rental amount, the discount and the amount due
                numberofVids = Decimal.Parse(NumberOfVidsTextBox.Text)
                rental = numberofVids * VidPrice
                Discount = rental * Discount
                Amount = rental - Discount

                'calculate totals for all customers
                numberofcustomers = numberofcustomers + 1
                totalamt = Amount + totalamt

                'display the results in textbox
                NumOfCustServTextBox.Text = numberofcustomers
                RentalTextBox.Text = rental.ToString("C")
                DiscountTextBox.Text = Discount.ToString("C")
                AmountTextBox.Text = Amount.ToString("C")
                TotalRentIncomeTextBox.Text = totalamt.ToString("C")

                'end of try, if was error show the message
            Catch ex As FormatException
                MessageBox.Show("Error; No videos rented", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try

            'end of try, if was error show the message
        Else
            MessageBox.Show("Error; no member number entered, make sure you entered 4 digits", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub
End Class

output: