Public Class Form1
'//////////////CREATED BY ZEKI OZYILMAZ for CST112

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Computes how much an order is according to # of bangles
        'Step0. Declarations
        Dim total As Double
        Dim bagles As Integer
        '/Step1. Input
        bagles = Val(Me.TextBox1.Text)
        '//Step2. Process
        If bagles < 6 Then
            total = bagles * 0.75
        End If
        If bagles >= 6 Then
            total = bagles * 0.6
        End If
        '///Step3. Output
        If total = 0 Then
            MsgBox("Please enter the real amount of bagles you want to order", MsgBoxStyle.OkOnly, "Warning!")
        End If
        If total > 0 And total < 1 Then
            Me.ListBox1.Items.Add("It will cost you " & total & "¢")
        End If
        If total = 1 Then
            Me.ListBox1.Items.Add("It will cost you one dollar")
        End If
        If total > 1 Then
            Me.ListBox1.Items.Add("It will cost you $" & total)
        End If


    End Sub
End Class