btnCalc_Click

Private Sub btnCalc_Click(ByVal sender As Object, ByVal e As EventArgs)
    If (Me.txtType.Text = "B") Then
        Me.CalculateBusiness(Integer.Parse(Me.txtPrem.Text), Integer.Parse(Me.txtConct.Text))
    ElseIf (Me.txtType.Text = "R") Then
        Me.CalculateResidential(Integer.Parse(Me.txtPrem.Text))
    Else
        MessageBox.Show("This is not a valid parameter, please input 'R' for residential and 'B' for business", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
        Me.txtType.Clear
        Me.txtPrem.Clear
        Me.lbltotal.Text = String.Empty
    End If
End Sub

btnClr_Click

Private Sub btnClr_Click(ByVal sender As Object, ByVal e As EventArgs)
    Me.txtType.Clear
    Me.txtPrem.Clear
    Me.lbltotal.Text = String.Empty
End Sub

Button3_Click

Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs)
    Me.Close
End Sub


CalculateBusiness

Private Sub CalculateBusiness(ByVal channels As Integer, ByVal connections As Integer)
    Dim num As Integer = connections
    If ((channels > 5) Or (channels < 0)) Then
        MessageBox.Show("The number of channels is limited to a maximum of 5 and cannot be less than 0", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
        Me.txtType.Clear
        Me.txtPrem.Clear
        Me.lbltotal.Text = String.Empty
    ElseIf ((connections > 50) Or (connections < 0)) Then
        MessageBox.Show("The number of connections is limited to a maximum of 50 and cannot be less than 0", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
        Me.txtType.Clear
        Me.txtPrem.Clear
        Me.lbltotal.Text = String.Empty
    ElseIf (connections < 10) Then
        Dim num2 As Decimal = Decimal.Add(Decimal.Add(Me.BusProcFee, Decimal.Multiply(Me.BusServFee, New Decimal(connections))), Decimal.Multiply(Me.BusPremChan, New Decimal(channels)))
        Me.lbltotal.Text = ("$" & num2.ToString)
    Else
        num = (connections - 10)
        Me.lbltotal.Text = ("$" & New Decimal((Convert.ToDouble(Decimal.Add(Decimal.Add(Me.BusProcFee, Decimal.Multiply(Me.BusServFee, 10)), Decimal.Multiply(Me.BusPremChan, New Decimal(channels)))) + (num * 4))).ToString)
    End If
End Sub

 

 CalculateResidential

Private Sub CalculateResidential(ByVal channels As Integer)
    If ((channels > 5) Or (channels < 0)) Then
        MessageBox.Show("The number of channels is limited to a maximum of 5 and cannot be less than 0", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
        Me.txtType.Clear
        Me.txtPrem.Clear
        Me.lbltotal.Text = String.Empty
    Else
        Me.lbltotal.Text = ("$" & Decimal.Add(Decimal.Add(Me.ResProcFee, Me.ResServFee), Decimal.Multiply(Me.ResPremChan, New Decimal(channels))).ToString)
    End If
End Sub

 Dispose

<DebuggerNonUserCode> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    Try 
        If (disposing AndAlso (Not Me.components Is Nothing)) Then
            Me.components.Dispose
        End If
    Finally
        MyBase.Dispose(disposing)
    End Try
End Sub


InitializeComponent

<DebuggerStepThrough> _
Private Sub InitializeComponent()
    Me.Label1 = New Label
    Me.Label2 = New Label
    Me.Label3 = New Label
    Me.lbltotaldue = New Label
    Me.txtType = New TextBox
    Me.txtPrem = New TextBox
    Me.txtConct = New TextBox
    Me.btnClr = New Button
    Me.btnCalc = New Button
    Me.btnClose = New Button
    Me.lbltotal = New Label
    Me.SuspendLayout
    Me.Label1.AutoSize = True
    Dim point As New Point(&H47, &H34)
    Me.Label1.Location = point
    Me.Label1.Name = "Label1"
    Dim size As New Size(&H49, 13)
    Me.Label1.Size = size
    Me.Label1.TabIndex = 0
    Me.Label1.Text = "Type (R or B):"
    Me.Label2.AutoSize = True
    point = New Point(&H43, &H56)
    Me.Label2.Location = point
    Me.Label2.Name = "Label2"
    size = New Size(&H61, 13)
    Me.Label2.Size = size
    Me.Label2.TabIndex = 1
    Me.Label2.Text = "Premium Channels:"
    Me.Label3.AutoSize = True
    point = New Point(&H4E, &H73)
    Me.Label3.Location = point
    Me.Label3.Name = "Label3"
    size = New Size(&H45, 13)
    Me.Label3.Size = size
    Me.Label3.TabIndex = 2
    Me.Label3.Text = "Connections:"
    Me.lbltotaldue.AutoSize = True
    point = New Point(&H16D, &H37)
    Me.lbltotaldue.Location = point
    Me.lbltotaldue.Name = "lbltotaldue"
    size = New Size(&H39, 13)
    Me.lbltotaldue.Size = size
    Me.lbltotaldue.TabIndex = 3
    Me.lbltotaldue.Text = "Total Due:"
    point = New Point(&HA4, &H38)
    Me.txtType.Location = point
    Me.txtType.Name = "txtType"
    size = New Size(&H61, 20)
    Me.txtType.Size = size
    Me.txtType.TabIndex = 4
    point = New Point(&HA7, &H5C)
    Me.txtPrem.Location = point
    Me.txtPrem.Name = "txtPrem"
    size = New Size(&H5B, 20)
    Me.txtPrem.Size = size
    Me.txtPrem.TabIndex = 5
    point = New Point(&HA7, &H76)
    Me.txtConct.Location = point
    Me.txtConct.Name = "txtConct"
    size = New Size(&H52, 20)
    Me.txtConct.Size = size
    Me.txtConct.TabIndex = 6
    Me.txtConct.Text = "0"
    point = New Point(&H182, &HC5)
    Me.btnClr.Location = point
    Me.btnClr.Name = "btnClr"
    size = New Size(&H5E, &H18)
    Me.btnClr.Size = size
    Me.btnClr.TabIndex = 8
    Me.btnClr.Text = "Clear"
    Me.btnClr.UseVisualStyleBackColor = True
    point = New Point(&H1F3, &HC5)
    Me.btnCalc.Location = point
    Me.btnCalc.Name = "btnCalc"
    size = New Size(&H69, &H17)
    Me.btnCalc.Size = size
    Me.btnCalc.TabIndex = 9
    Me.btnCalc.Text = "Calculate"
    Me.btnCalc.UseVisualStyleBackColor = True
    point = New Point(&H278, &HC6)
    Me.btnClose.Location = point
    Me.btnClose.Name = "btnClose"
    size = New Size(90, &H16)
    Me.btnClose.Size = size
    Me.btnClose.TabIndex = 10
    Me.btnClose.Text = "Close"
    Me.btnClose.UseVisualStyleBackColor = True
    Me.lbltotal.BorderStyle = BorderStyle.FixedSingle
    point = New Point(&H1BB, &H3E)
    Me.lbltotal.Location = point
    Me.lbltotal.Name = "lbltotal"
    size = New Size(100, &H17)
    Me.lbltotal.Size = size
    Me.lbltotal.TabIndex = 11
    Dim ef As New SizeF(6!, 13!)
    Me.AutoScaleDimensions = ef
    Me.AutoScaleMode = AutoScaleMode.Font
    size = New Size(&H32D, &H121)
    Me.ClientSize = size
    Me.Controls.Add(Me.lbltotal)
    Me.Controls.Add(Me.btnClose)
    Me.Controls.Add(Me.btnCalc)
    Me.Controls.Add(Me.btnClr)
    Me.Controls.Add(Me.txtConct)
    Me.Controls.Add(Me.txtPrem)
    Me.Controls.Add(Me.txtType)
    Me.Controls.Add(Me.lbltotaldue)
    Me.Controls.Add(Me.Label3)
    Me.Controls.Add(Me.Label2)
    Me.Controls.Add(Me.Label1)
    Me.Name = "Form1"
    Me.Text = "BACS 287 - Brittany Davis"
    Me.ResumeLayout(False)
    Me.PerformLayout
End Sub

 txtType_TextChanged
Private Sub txtType_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
End Sub