Public Class CellPhoneBillz



    Const _cdecFee As Decimal = 4.85D
    Const _cdecRegCharge As Decimal = 29.95D
    Const _cdecExtraMinFee As Decimal = 0.17D


    Private Sub Label6_ParentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.ParentChanged

    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

        Me.txtXtraMin.Text = ""
        Me.txtTotalBillz.Text = ""
        Me.txtNumOfMin.Text = ""
        Me.txtNumOfMin.Focus()

    End Sub

    Private Sub txtExtraMinCost_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)



    End Sub

    Private Sub btnDisplayCost_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplayCost.Click
        'this shit is all fucked up.....!

        Dim decEXTRAmin As Decimal
        Dim decTotalCostofCharges As Decimal
        Dim decNumOfmin As Decimal



        If IsNumeric(Me.txtNumOfMin.Text) Then
            decNumOfmin = Convert.ToDecimal(Me.txtNumOfMin.Text)

        End If
        If decNumOfmin > 0 Then
            decNumOfmin = Convert.ToDecimal(Me.txtNumOfMin.Text)
            decTotalCostofCharges = _cdecRegCharge + _cdecFee
            txtXtraMin.Text = ""
            Me.txtTotalBillz.Text = decTotalCostofCharges.ToString("c")


        End If
        If txtNumOfMin.Text > 300 Then

            Me.txtXtraMin.Text = (decEXTRAmin - 300) * _cdecExtraMinFee
            Me.txtTotalBillz.Text = (decEXTRAmin - 300) * _cdecExtraMinFee + _cdecFee + _cdecRegCharge

        End If

        If txtNumOfMin.Text < 0 Then
            MsgBox("You entered " & decNumOfmin.ToString() & ". Enter A Positive Number.", 21, "Input Error")
            Me.txtNumOfMin.Text = ""
            Me.txtNumOfMin.Focus()
            Me.txtTotalBillz.Text = ""
            Me.txtXtraMin.Text = ""

        Else
            MsgBox("Enter a Numerical Value.", 21, "Input Error.")
            Me.txtNumOfMin.Text = ""
            Me.txtNumOfMin.Focus()
            Me.txtTotalBillz.Text = ""
            Me.txtXtraMin.Text = ""











        End If






    End Sub

    Private Sub txtNumOfMin_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNumOfMin.TextChanged




    End Sub

    Private Sub lblTaxFee_ParentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblTaxFee.ParentChanged

    End Sub

    Private Sub txtTotalBillz_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTotalBillz.TextChanged

    End Sub

    Private Sub CellPhoneBillz_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



    End Sub
End Class