' Project name: Shipping Project
' Project purpose: Displays a shipping charge
' Created/revised by: <your name> on <current date>
Option Explicit On
Option Strict On
Option Infer Off
Public Class MainForm
Private Sub exitButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles exitButton.Click
Me.Close()
End Sub
Private Sub displayButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles displayButton.Click
' Determines the shipping charge for zip entered
'Declare Constants and Variables
Const Shipcharge1 As Decimal = 32D
Const Shipcharge2 As Decimal = 37.75D
Dim Zip1 As Integer = 60618
Dim Zip2 As Integer = 60620
Dim zip3 As Integer = 60632
Dim varZiptextbox As Integer
Integer.TryParse(Ziptextbox.Text, varZiptextbox)
Dim varShippinglabel As Decimal
If varZiptextbox = Zip1 OrElse varZiptextbox = Zip2 OrElse varZiptextbox = zip3 Then
varShippinglabel = CDec(Shipcharge1)
Else
varShippinglabel = CDec(Shipcharge2)
End If
'Display shipping charge
Shippinglabel.Text = varShippinglabel.ToString("c2")
End Sub
End Class