gg

    Private Sub OrderBTN_Click(sender As Object, e As EventArgs) Handles OrderBTN.Click
        Dim BookName As String = "Software Development For Beginners"
        Dim price As Double = 15.99
        Dim NoOfBooksOrdered As Integer = 0
        Dim VoucherCode As String = "25Off"
        Dim usercode As String = " "
        Dim approvedcode As Boolean = False
        Dim discountbeforePrice As Double
        Dim discountafterprice As Double
        Dim discount As Integer = 0

        NoOfBooksOrdered = 0


        Do While (NoOfBooksOrdered <= 0) Or (NoOfBooksOrdered > 80)
            NoOfBooksOrdered = InputBox("How many copies of the book would you like to buy?")
        Loop

        discountbeforePrice = NoOfBooksOrdered * price

        If NoOfBooksOrdered >= 51 And NoOfBooksOrdered <= 80 Then
            discount = discountbeforePrice * 0.1
        ElseIf NoOfBooksOrdered >= 11 And NoOfBooksOrdered <= 50 Then
            discount = discountbeforePrice * 0.075
        ElseIf NoOfBooksOrdered >= 5 And NoOfBooksOrdered <= 10 Then
            discount = discountbeforePrice * 0.05
        Else : discount = 0
        End If

        discountafterprice = discountbeforePrice - discount

        usercode = InputBox("What Is your discount code?")
        If usercode = VoucherCode Then
            approvedcode = True
        Else
            approvedcode = False
        End If

        Lbltext.Text = ("")

        If discount = True Then
            discountafterprice = price - 25.0
        Else
            discountafterprice = discountafterprice
        End If

        Lbltext.Text = ("You have decided to purchase ") & BookName & vbCrLf & " You have decided to order " & NoOfBooksOrdered & " Books, which costs £" & Math.Round(discountafterprice, 2)