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