Here's my code so far:
Expand|Select|Wrap|Line Numbers
- Public Class MainForm
- Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
- lblDeck.Text = String.Empty
- lblTrucks.Text = String.Empty
- lblWheels.Text = String.Empty
- lblSubtotal.Text = String.Empty
- lblTax.Text = String.Empty
- lblTotal.Text = String.Empty
- End Sub
- Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
- Me.Close()
- End Sub
- Private Sub btnClearMisc_Click(sender As Object, e As EventArgs) Handles btnClearMisc.Click
- lstMisc.Items.Clear()
- End Sub
- Private Sub btnViewDecks_Click(sender As Object, e As EventArgs) Handles btnViewDecks.Click
- frmDecks.ShowDialog()
- End Sub
- Private Sub btnViewTrucks_Click(sender As Object, e As EventArgs) Handles btnViewTrucks.Click
- frmTrucks.ShowDialog()
- End Sub
- Private Sub btnViewWheels_Click(sender As Object, e As EventArgs) Handles btnViewWheels.Click
- frmWheels.ShowDialog()
- End Sub
- Private Sub btnViewMisc_Click(sender As Object, e As EventArgs) Handles btnViewMisc.Click
- frmMisc.ShowDialog()
- End Sub
- Private Sub MainForm_Activated(sender As Object, e As EventArgs) Handles Me.Activated
- lstMisc.Items.Add(intMisc1)
- lstMisc.Items.Add(intMisc2)
- lstMisc.Items.Add(intMisc3)
- lstMisc.Items.Add(intMisc4)
- lstMisc.Items.Add(intMisc5)
- End Sub
- End Class
Expand|Select|Wrap|Line Numbers
- Module ChargesModule
- ' Global constants
- Public frmDecks As New DecksForm
- Public frmMain As New MainForm
- Public frmMisc As New MiscForm
- Public frmTrucks As New TrucksForm
- Public frmWheels As New WheelsForm
- Public dblDeck As Double
- Public dblTrucks As Double
- Public dblWheels As Double
- Public dblMisc As Double
- Public dblSubtotal As Double
- Public dblTax As Double
- Public dblTotal As Double
- Public int51mm As Integer = 0
- Public int55mm As Integer = 1
- Public int58mm As Integer = 2
- Public int61mm As Integer = 3
- Public dbl51mm As Double = 20
- Public dbl55mm As Double = 22
- Public dbl58mm As Double = 24
- Public dbl61mm As Double = 28
- Public intAxle1 As Integer = 0
- Public intAxle2 As Integer = 1
- Public intAxle3 As Integer = 2
- Public dblAxle1 As Double = 35
- Public dblAxle2 As Double = 40
- Public dblAxle3 As Double = 45
- Public intDeck1 As Integer = 0
- Public intDeck2 As Integer = 1
- Public intDeck3 As Integer = 2
- Public dblMasterThrasher As Double = 60
- Public dblDictatorOfGrind As Double = 45
- Public dblStreetKing As Double = 50
- Public dblGripTape As Double = 10
- Public dblBearings As Double = 30
- Public dblRiserPads As Double = 2
- Public dblNutsAndBoltsKit As Double = 3
- Public dblAssembly As Double = 10
- Public intMisc1 As Integer
- Public intMisc2 As Integer
- Public intMisc3 As Integer
- Public intMisc4 As Integer
- Public intMisc5 As Integer
- Public intGripTape As Integer
- Public intBearings As Integer
- Public intRiserPads As Integer
- Public intNutsAndBoltsKit As Integer
- Public intAssembly As Integer
- End Module
Expand|Select|Wrap|Line Numbers
- Public Class MiscForm
- Private Sub btnAdd_Click(sender As Object, e As EventArgs)
- If chkGripTape.Checked = True Then
- dblMisc += dblGripTape
- intMisc1 = CInt(chkGripTape.Text)
- End If
- If chkBearings.Checked = True Then
- dblMisc += dblBearings
- intMisc1 = CInt(chkBearings.Text)
- ElseIf intMisc1 = intGripTape Then
- dblMisc += dblBearings
- intMisc2 = CInt(chkBearings.Text)
- End If
- If chkRiserPads.Checked = True Then
- dblMisc += dblRiserPads
- intMisc1 = CInt(chkRiserPads.Text)
- ElseIf intMisc1 = intBearings Then
- dblMisc += dblRiserPads
- intMisc2 = CInt(chkRiserPads.Text)
- ElseIf intMisc1 = intGripTape Then
- dblMisc += dblRiserPads
- intMisc2 = CInt(chkRiserPads.Text)
- ElseIf intMisc1 = intGripTape And intMisc2 = intBearings Then
- dblMisc += dblRiserPads
- intMisc3 = CInt(chkRiserPads.Text)
- End If
- If chkNutsAndBoltsKit.Checked = True Then
- dblMisc += dblNutsAndBoltsKit
- intMisc1 = CInt(chkNutsAndBoltsKit.Text)
- ElseIf intMisc1 = intBearings Then
- dblMisc += dblNutsAndBoltsKit
- intMisc2 = CInt(chkNutsAndBoltsKit.Text)
- ElseIf intMisc1 = intGripTape Then
- dblMisc += dblNutsAndBoltsKit
- intMisc2 = CInt(chkNutsAndBoltsKit.Text)
- ElseIf intMisc1 = intRiserPads Then
- dblMisc += dblNutsAndBoltsKit
- intMisc2 = CInt(chkNutsAndBoltsKit.Text)
- ElseIf intMisc1 = intGripTape And intMisc2 = intBearings Then
- dblMisc += dblNutsAndBoltsKit
- intMisc3 = CInt(chkNutsAndBoltsKit.Text)
- ElseIf intMisc1 = intGripTape And intMisc2 = intRiserPads Then
- dblMisc += dblNutsAndBoltsKit
- intMisc3 = CInt(chkNutsAndBoltsKit.Text)
- ElseIf intMisc1 = intBearings And intMisc2 = intRiserPads Then
- dblMisc += dblNutsAndBoltsKit
- intMisc3 = CInt(chkNutsAndBoltsKit.Text)
- ElseIf intMisc1 = intGripTape And intMisc2 = intBearings And intMisc3 = intRiserPads Then
- dblMisc += dblNutsAndBoltsKit
- intMisc4 = CInt(chkNutsAndBoltsKit.Text)
- End If
- If chkAssembly.Checked = True Then
- dblMisc += dblAssembly
- intMisc1 = CInt(chkAssembly.Text)
- ElseIf intMisc1 = intBearings Then
- dblMisc += dblAssembly
- intMisc2 = CInt(chkAssembly.Text)
- ElseIf intMisc1 = intGripTape Then
- dblMisc += dblAssembly
- intMisc2 = CInt(chkAssembly.Text)
- ElseIf intMisc1 = intRiserPads Then
- dblMisc += dblAssembly
- intMisc2 = CInt(chkAssembly.Text)
- ElseIf intMisc1 = intNutsAndBoltsKit Then
- dblMisc += dblAssembly
- intMisc2 = CInt(chkAssembly.Text)
- ElseIf intMisc1 = intGripTape And intMisc2 = intBearings Then
- dblMisc += dblAssembly
- intMisc3 = CInt(chkAssembly.Text)
- ElseIf intMisc1 = intGripTape And intMisc2 = intRiserPads Then
- dblMisc += dblAssembly
- intMisc3 = CInt(chkAssembly.Text)
- ElseIf intMisc1 = intBearings And intMisc2 = intRiserPads Then
- dblMisc += dblAssembly
- intMisc3 = CInt(chkAssembly.Text)
- ElseIf intMisc1 = intGripTape And intMisc2 = intNutsAndBoltsKit Then
- dblMisc += dblAssembly
- intMisc3 = CInt(chkAssembly.Text)
- ElseIf intMisc1 = intBearings And intMisc2 = intNutsAndBoltsKit Then
- dblMisc += dblAssembly
- intMisc3 = CInt(chkAssembly.Text)
- ElseIf intMisc1 = intRiserPads And intMisc2 = intNutsAndBoltsKit Then
- dblMisc += dblAssembly
- intMisc3 = CInt(chkAssembly.Text)
- ElseIf intMisc1 = intGripTape And intMisc2 = intBearings And intMisc3 = intRiserPads Then
- dblMisc += dblAssembly
- intMisc4 = CInt(chkAssembly.Text)
- ElseIf intMisc1 = intGripTape And intMisc2 = intBearings And intMisc3 = intNutsAndBoltsKit Then
- dblMisc += dblAssembly
- intMisc4 = CInt(chkAssembly.Text)
- ElseIf intMisc1 = intGripTape And intMisc2 = intRiserPads And intMisc3 = intNutsAndBoltsKit Then
- dblMisc += dblAssembly
- intMisc4 = CInt(chkAssembly.Text)
- ElseIf intMisc1 = intBearings And intMisc2 = intRiserPads And intMisc3 = intNutsAndBoltsKit Then
- dblMisc += dblAssembly
- intMisc4 = CInt(chkAssembly.Text)
- ElseIf intMisc1 = intGripTape And intMisc2 = intBearings And intMisc3 = intRiserPads And intMisc4 = intNutsAndBoltsKit Then
- dblMisc += dblAssembly
- intMisc5 = CInt(chkAssembly.Text)
- End If
- End Sub
- End Class