Index Number : 4618618
Name: Eranilde Osei
Public Class Form1
Dim Cost As Decimal
Dim Price As Decimal
Dim Quantity As Integer
Dim SalesTax As Decimal
Dim Weight As Decimal
Dim Total As Decimal
Dim HandlingCharge As Decimal
Dim TransCharge As Decimal
Dim Charge As Decimal
Private Function ComputeSalesTaxDue()
If StateTextBox.Text = "IL" Then
SalesTax = Decimal.Round(Cost * 0.07D, 2)
ElseIf StateTextBox.Text = "NY" OrElse StateTextBox.Text = "CA" Then
SalesTax = Decimal.Round(Cost * 0.08D, 2)
Else
SalesTax = 0
End If
If WholeSCheckBox.Checked = True Then
SalesTax = 0
End If
Return SalesTax
End Function
Private Function ComputeTransportHandling()
If USPostRadioButton.Checked = True Then
TransCharge = Weight * 0.15
ElseIf USP_AirRadioButton.Checked = True Then
TransCharge = Weight * 0.5
Else
TransCharge = 0
End If
If StateTextBox.Text = "MO" OrElse StateTextBox.Text = "IL" OrElse
StateTextBox.Text = "KY" Then
HandlingCharge = 0
Else
HandlingCharge = Quantity * 5.0
End If
Charge = HandlingCharge + TransCharge
Return Charge
End Function
Private Function ValidData() As Boolean
If NameTextBox.Text = String.Empty Then
MessageBox.Show("Please a provide a name.", "Name Error",
MessageBoxButtons.OK, MessageBoxIcon.Error)
NameTextBox.Focus()
NameTextBox.SelectAll()
ElseIf AddressTextBox.Text = String.Empty Then
MessageBox.Show("Please a provide an address.", "Address Error",
MessageBoxButtons.OK, MessageBoxIcon.Error)
AddressTextBox.Focus()
AddressTextBox.SelectAll()
ElseIf CityTextBox.Text = String.Empty Then
MessageBox.Show("Please a provide a city.", "City Error",
MessageBoxButtons.OK, MessageBoxIcon.Error)
CityTextBox.Focus()
CityTextBox.SelectAll()
ElseIf StateTextBox.Text = String.Empty Then
MessageBox.Show("Please a provide a state.", "State Error",
MessageBoxButtons.OK, MessageBoxIcon.Error)
StateTextBox.Focus()
StateTextBox.SelectAll()
ElseIf DesTextBox.Text = String.Empty Then
MessageBox.Show("Please a provide a name.", "Name Error",
MessageBoxButtons.OK, MessageBoxIcon.Error)
DesTextBox.Focus()
DesTextBox.SelectAll()
ElseIf ZCodeMaskedTextBox.MaskCompleted = False Then
MessageBox.Show("Please complete zip code.", "Zip Code Error",
MessageBoxButtons.OK, MessageBoxIcon.Error)
ZCodeMaskedTextBox.Focus()
ElseIf IsNumeric(PriceTextBox.Text) = False OrElse
Decimal.Parse(PriceTextBox.Text, Globalization.NumberStyles.Currency) <= 0 Then
MessageBox.Show("The data should be a number greater than zero.", "Data
Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
PriceTextBox.Focus()
PriceTextBox.SelectAll()
ElseIf IsNumeric(WeightTextBox.Text) = False OrElse
Decimal.Parse(WeightTextBox.Text, Globalization.NumberStyles.Number) <= 0 Then
MessageBox.Show("The data should be a number greater than zero.", "Data
Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
WeightTextBox.Focus()
WeightTextBox.SelectAll()
ElseIf IsNumeric(QuantityTextBox.Text) = False OrElse
Decimal.Parse(QuantityTextBox.Text, Globalization.NumberStyles.Number) <= 0 Then
MessageBox.Show("The data should be a number greater than zero.", "Data
Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
QuantityTextBox.Focus()
QuantityTextBox.SelectAll()
Else
Return False
End If
Return False
End Function
Private Sub ComputeButton_Click(sender As Object, e As EventArgs) Handles
ComputeButton.Click, ComputeToolStripMenuItem.Click
Try
ValidData()
Weight = Decimal.Parse(WeightTextBox.Text, Globalization.NumberStyles.Number)
Quantity = Decimal.Parse(QuantityTextBox.Text,
Globalization.NumberStyles.Number)
Price = Decimal.Parse(PriceTextBox.Text, Globalization.NumberStyles.Currency)
Cost = Decimal.Round(Price * Quantity, 2)
SalesTax = ComputeSalesTaxDue()
Charge = ComputeTransportHandling()
Total = Decimal.Round(Cost + SalesTax + Charge, 2)
CostTextBox.Text = Cost.ToString()
TaxTextBox.Text = SalesTax.ToString()
HandlingTextBox.Text = Charge.ToString()
TotalTextBox.Text = Total.ToString()
Catch ex As Exception
MessageBox.Show("Check to ensure no data values are missing." &
ControlChars.NewLine & "All data values must be valid" & ControlChars.NewLine &
ex.Message, "Compute Button Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub NewOrderButton_Click(sender As Object, e As EventArgs) Handles
NewOrderButton.Click, NewOrderToolStripMenuItem.Click
NameTextBox.Clear()
DesTextBox.Clear()
AddressTextBox.Clear()
CityTextBox.Clear()
StateTextBox.Clear()
ZCodeMaskedTextBox.Clear()
PriceTextBox.Clear()
QuantityTextBox.Clear()
WeightTextBox.Clear()
CostTextBox.Clear()
TaxTextBox.Clear()
HandlingTextBox.Clear()
TotalTextBox.Clear()
WholeSCheckBox.Checked = False
USPostRadioButton.Checked = True
NameTextBox.Focus()
End Sub
Private Sub ColorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles
ColorToolStripMenuItem.Click
ColorDialog1.Color = Me.BackColor
ColorDialog1.ShowDialog()
Me.BackColor = ColorDialog1.Color
MenuStrip1.BackColor = ColorDialog1.Color
End Sub
Private Sub FontToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles
FontToolStripMenuItem.Click
FontDialog1.Font = Me.Font
FontDialog1.ShowDialog()
Me.Font = FontDialog1.Font
MenuStrip1.Font = FontDialog1.Font
End Sub
Private Sub ExitButton_Click(sender As Object, e As EventArgs) Handles
ExitButton.Click, ExitToolStripMenuItem.Click
Dim MessageString As String = "Do you want to close the form?"
Dim ButtonDialogResult As DialogResult = MessageBox.Show(MessageString, "Quit?",
MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
If ButtonDialogResult = Windows.Forms.DialogResult.Yes Then
Me.Close()
End If
End Sub
Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles
AboutToolStripMenuItem.Click
Dim MessageString As String = "Programmed by Anthony Amissah-4627818." &
ControlChars.NewLine & "Today's Date/Time is" & Date.Now.ToString
Dim MessageTitle As String = "About the Order Process Application"
MessageBox.Show(MessageString, MessageTitle, MessageBoxButtons.OK,
MessageBoxIcon.Information)
End Sub
End Class
