Previous Thread
Next Thread
Print Thread
Rate Thread
Joined: Oct 2002
Posts: 364
C
Chem Offline OP
UGN News Staff
OP Offline
UGN News Staff
C
Joined: Oct 2002
Posts: 364
Basically, coded a program for class, I think I made a few mistakes, and possibly some sloppy coding,

Please point out any mistakes I might have made,
and also I suck at pseudocode, so feel free to help out.

Code
 Option Strict On

Public Class frmAuto
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents grpAccessories As System.Windows.Forms.GroupBox
    Friend WithEvents grpFinish As System.Windows.Forms.GroupBox
    Friend WithEvents btnCalculate As System.Windows.Forms.Button
    Friend WithEvents btnClear As System.Windows.Forms.Button
    Friend WithEvents chkStereo As System.Windows.Forms.CheckBox
    Friend WithEvents chkLeather As System.Windows.Forms.CheckBox
    Friend WithEvents radStandard As System.Windows.Forms.RadioButton
    Friend WithEvents radPearlized As System.Windows.Forms.RadioButton
    Friend WithEvents radCustom As System.Windows.Forms.RadioButton
    Friend WithEvents lblAccessoriesAndFinish As System.Windows.Forms.Label
    Friend WithEvents lblSalesTax As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents lblSubtotal As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents lblAmountDue As System.Windows.Forms.Label
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents txtSalesPrice As System.Windows.Forms.TextBox
    Friend WithEvents txtTradeIn As System.Windows.Forms.TextBox
    Friend WithEvents btnExit As System.Windows.Forms.Button
    Friend WithEvents chkNavigation As System.Windows.Forms.CheckBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.grpAccessories = New System.Windows.Forms.GroupBox()
        Me.chkNavigation = New System.Windows.Forms.CheckBox()
        Me.chkLeather = New System.Windows.Forms.CheckBox()
        Me.chkStereo = New System.Windows.Forms.CheckBox()
        Me.grpFinish = New System.Windows.Forms.GroupBox()
        Me.radCustom = New System.Windows.Forms.RadioButton()
        Me.radPearlized = New System.Windows.Forms.RadioButton()
        Me.radStandard = New System.Windows.Forms.RadioButton()
        Me.btnCalculate = New System.Windows.Forms.Button()
        Me.btnClear = New System.Windows.Forms.Button()
        Me.btnExit = New System.Windows.Forms.Button()
        Me.lblAccessoriesAndFinish = New System.Windows.Forms.Label()
        Me.lblSalesTax = New System.Windows.Forms.Label()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.lblSubtotal = New System.Windows.Forms.Label()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.Label6 = New System.Windows.Forms.Label()
        Me.lblAmountDue = New System.Windows.Forms.Label()
        Me.Label8 = New System.Windows.Forms.Label()
        Me.Label9 = New System.Windows.Forms.Label()
        Me.Label10 = New System.Windows.Forms.Label()
        Me.txtSalesPrice = New System.Windows.Forms.TextBox()
        Me.txtTradeIn = New System.Windows.Forms.TextBox()
        Me.grpAccessories.SuspendLayout()
        Me.grpFinish.SuspendLayout()
        Me.SuspendLayout()
        '
        'grpAccessories
        '
        Me.grpAccessories.Controls.AddRange(New System.Windows.Forms.Control() {Me.chkNavigation, Me.chkLeather, Me.chkStereo})
        Me.grpAccessories.Location = New System.Drawing.Point(8, 16)
        Me.grpAccessories.Name = "grpAccessories"
        Me.grpAccessories.Size = New System.Drawing.Size(168, 112)
        Me.grpAccessories.TabIndex = 0
        Me.grpAccessories.TabStop = False
        Me.grpAccessories.Text = "Accessories"
        '
        'chkNavigation
        '
        Me.chkNavigation.Location = New System.Drawing.Point(16, 80)
        Me.chkNavigation.Name = "chkNavigation"
        Me.chkNavigation.Size = New System.Drawing.Size(144, 24)
        Me.chkNavigation.TabIndex = 2
        Me.chkNavigation.Text = "&Computer Navigation"
        '
        'chkLeather
        '
        Me.chkLeather.Location = New System.Drawing.Point(16, 48)
        Me.chkLeather.Name = "chkLeather"
        Me.chkLeather.Size = New System.Drawing.Size(112, 24)
        Me.chkLeather.TabIndex = 1
        Me.chkLeather.Text = "Leather &Interior"
        '
        'chkStereo
        '
        Me.chkStereo.Location = New System.Drawing.Point(16, 16)
        Me.chkStereo.Name = "chkStereo"
        Me.chkStereo.Size = New System.Drawing.Size(112, 24)
        Me.chkStereo.TabIndex = 0
        Me.chkStereo.Text = "&Stereo System"
        '
        'grpFinish
        '
        Me.grpFinish.Controls.AddRange(New System.Windows.Forms.Control() {Me.radCustom, Me.radPearlized, Me.radStandard})
        Me.grpFinish.Location = New System.Drawing.Point(8, 152)
        Me.grpFinish.Name = "grpFinish"
        Me.grpFinish.Size = New System.Drawing.Size(168, 120)
        Me.grpFinish.TabIndex = 1
        Me.grpFinish.TabStop = False
        Me.grpFinish.Text = "Exterior Finish"
        '
        'radCustom
        '
        Me.radCustom.Location = New System.Drawing.Point(16, 88)
        Me.radCustom.Name = "radCustom"
        Me.radCustom.Size = New System.Drawing.Size(144, 24)
        Me.radCustom.TabIndex = 2
        Me.radCustom.Text = "Customized &Detailing"
        '
        'radPearlized
        '
        Me.radPearlized.Location = New System.Drawing.Point(16, 56)
        Me.radPearlized.Name = "radPearlized"
        Me.radPearlized.TabIndex = 1
        Me.radPearlized.Text = "&Pearlized"
        '
        'radStandard
        '
        Me.radStandard.Checked = True
        Me.radStandard.Location = New System.Drawing.Point(16, 24)
        Me.radStandard.Name = "radStandard"
        Me.radStandard.TabIndex = 0
        Me.radStandard.TabStop = True
        Me.radStandard.Text = "S&tandard"
        '
        'btnCalculate
        '
        Me.btnCalculate.Location = New System.Drawing.Point(96, 304)
        Me.btnCalculate.Name = "btnCalculate"
        Me.btnCalculate.Size = New System.Drawing.Size(75, 32)
        Me.btnCalculate.TabIndex = 6
        Me.btnCalculate.Text = "&Calculate"
        '
        'btnClear
        '
        Me.btnClear.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.btnClear.Location = New System.Drawing.Point(216, 304)
        Me.btnClear.Name = "btnClear"
        Me.btnClear.Size = New System.Drawing.Size(75, 32)
        Me.btnClear.TabIndex = 7
        Me.btnClear.Text = "C&lear"
        '
        'btnExit
        '
        Me.btnExit.Location = New System.Drawing.Point(328, 304)
        Me.btnExit.Name = "btnExit"
        Me.btnExit.Size = New System.Drawing.Size(75, 32)
        Me.btnExit.TabIndex = 8
        Me.btnExit.Text = "E&xit"
        '
        'lblAccessoriesAndFinish
        '
        Me.lblAccessoriesAndFinish.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.lblAccessoriesAndFinish.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.lblAccessoriesAndFinish.Location = New System.Drawing.Point(344, 80)
        Me.lblAccessoriesAndFinish.Name = "lblAccessoriesAndFinish"
        Me.lblAccessoriesAndFinish.TabIndex = 10
        Me.lblAccessoriesAndFinish.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'lblSalesTax
        '
        Me.lblSalesTax.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.lblSalesTax.Location = New System.Drawing.Point(344, 120)
        Me.lblSalesTax.Name = "lblSalesTax"
        Me.lblSalesTax.TabIndex = 12
        Me.lblSalesTax.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(224, 16)
        Me.Label3.Name = "Label3"
        Me.Label3.TabIndex = 2
        Me.Label3.Text = "C&ar Sales Price"
        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'lblSubtotal
        '
        Me.lblSubtotal.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.lblSubtotal.Location = New System.Drawing.Point(344, 160)
        Me.lblSubtotal.Name = "lblSubtotal"
        Me.lblSubtotal.TabIndex = 14
        Me.lblSubtotal.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(212, 80)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(112, 23)
        Me.Label5.TabIndex = 9
        Me.Label5.Text = "Accessories && Finish:"
        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(224, 160)
        Me.Label6.Name = "Label6"
        Me.Label6.TabIndex = 13
        Me.Label6.Text = "Subtotal:"
        Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'lblAmountDue
        '
        Me.lblAmountDue.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.lblAmountDue.Location = New System.Drawing.Point(344, 240)
        Me.lblAmountDue.Name = "lblAmountDue"
        Me.lblAmountDue.TabIndex = 16
        Me.lblAmountDue.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(224, 240)
        Me.Label8.Name = "Label8"
        Me.Label8.TabIndex = 15
        Me.Label8.Text = "Amount Due:"
        Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(220, 200)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(104, 23)
        Me.Label9.TabIndex = 4
        Me.Label9.Text = "T&rade-in Allowance:"
        Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(224, 120)
        Me.Label10.Name = "Label10"
        Me.Label10.TabIndex = 11
        Me.Label10.Text = "Sales Tax (8%):"
        Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'txtSalesPrice
        '
        Me.txtSalesPrice.Location = New System.Drawing.Point(344, 16)
        Me.txtSalesPrice.Name = "txtSalesPrice"
        Me.txtSalesPrice.TabIndex = 3
        Me.txtSalesPrice.Text = ""
        Me.txtSalesPrice.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'txtTradeIn
        '
        Me.txtTradeIn.Location = New System.Drawing.Point(344, 200)
        Me.txtTradeIn.Name = "txtTradeIn"
        Me.txtTradeIn.TabIndex = 5
        Me.txtTradeIn.Text = ""
        Me.txtTradeIn.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'frmAuto
        '
        Me.AcceptButton = Me.btnCalculate
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.CancelButton = Me.btnClear
        Me.ClientSize = New System.Drawing.Size(504, 349)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtTradeIn, Me.txtSalesPrice, Me.Label10, Me.Label9, Me.Label8, Me.lblAmountDue, Me.Label6, Me.Label5, Me.lblSubtotal, Me.Label3, Me.lblSalesTax, Me.lblAccessoriesAndFinish, Me.btnExit, Me.btnClear, Me.btnCalculate, Me.grpAccessories, Me.grpFinish})
        Me.Name = "frmAuto"
        Me.Text = "VB Auto Center"
        Me.grpAccessories.ResumeLayout(False)
        Me.grpFinish.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Const mdecSTEREO_CHARGE As Decimal = 425.76D
    Const mdecLEATHER_CHARGE As Decimal = 987.41D
    Const mdecCOMPUTER_CHARGE As Decimal = 1741.23D
    Const mdecPEARLIZED_CHARGE As Decimal = 345.72D
    Const mdecDETAILING_CHARGE As Decimal = 599.99D
    Const mdecTAX_RATE As Decimal = 0.08D

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
        'Exits the aplication
    End Sub

    Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
        'Calculate price
        Dim decAmountDue As Decimal
        Dim decSubTotal As Decimal
        Dim decTax As Decimal
        Dim decSalesPrice As Decimal
        Dim decAllowance As Decimal
        Dim decAccTotal As Decimal
        Dim strMessage As String


        'If no data was entered into the trade-in text box, default the amount to zero
        If txtTradeIn.Text = "" Then
            txtTradeIn.Text = "0"
        End If

        If txtSalesPrice.Text = "" Then
            MessageBox.Show("Please enter the sale amount.", "Missing Data", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            txtSalesPrice.Focus()
        Else
            Try 'Calculate the totals

                decSalesPrice = CDec(txtSalesPrice.Text)
                decAllowance = CDec(txtTradeIn.Text)

                'Test the option buttons for added charges
                If radPearlized.Checked = True Then
                    decAccTotal = mdecPEARLIZED_CHARGE
                ElseIf radCustom.Checked = True Then
                    decAccTotal += mdecDETAILING_CHARGE
                End If

                'Test the check boxes
                If chkStereo.Checked = False Then
                    decAccTotal += mdecSTEREO_CHARGE
                End If
                If chkLeather.Checked = True Then
                    decAccTotal += mdecLEATHER_CHARGE
                End If
                If chkNavigation.Checked = True Then
                    decAccTotal += mdecCOMPUTER_CHARGE
                End If

                'Calculate sales tax
                decTax = (decSalesPrice + decAccTotal) * mdecTAX_RATE
                'Calculate subtotal
                decSubTotal = decSalesPrice + decAccTotal - decTax
                'Calculate amount due
                decAmountDue = decSubTotal - decAllowance

                'Display amounts in labels
                txtSalesPrice.Text = FormatCurrency(decSalesPrice)
                lblAccessoriesAndFinish.Text = FormatCurrency(decAccTotal)
                lblSalesTax.Text = FormatCurrency(decTax)
                lblSubtotal.Text = FormatCurrency(decSubTotal)
                txtTradeIn.Text = FormatCurrency(txtTradeIn.Text)
                lblAmountDue.Text = FormatCurrency(decAmountDue)
            Catch
                strMessage = "Calculation error"
                MessageBox.Show(strMessage, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End If
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        'Clear the screen and restores focus to the first field

        txtSalesPrice.Text = ""
        txtTradeIn.Text = ""
        lblAccessoriesAndFinish.Text() = ""
        lblSalesTax.Text() = ""
        lblSubtotal.Text() = ""
        lblAmountDue.Text() = ""
        txtSalesPrice.Focus()
    End Sub
End Class


C++ Should Have Been Called "D"
Joined: Oct 2002
Posts: 364
C
Chem Offline OP
UGN News Staff
OP Offline
UGN News Staff
C
Joined: Oct 2002
Posts: 364
Here it is, minus the form generated code:

Option Strict On

Public Class frmAuto

Inherits System.Windows.Forms.Form

[windows form designer generated code]

Const mdecSTEREO_CHARGE As Decimal = 425.76D
Const mdecLEATHER_CHARGE As Decimal = 987.41D
Const mdecCOMPUTER_CHARGE As Decimal = 1741.23D
Const mdecPEARLIZED_CHARGE As Decimal = 345.72D
Const mdecDETAILING_CHARGE As Decimal = 599.99D
Const mdecTAX_RATE As Decimal = 0.08D

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
'Exits the aplication
End Sub

Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
'Calculate price
Dim decAmountDue As Decimal
Dim decSubTotal As Decimal
Dim decTax As Decimal
Dim decSalesPrice As Decimal
Dim decAllowance As Decimal
Dim decAccTotal As Decimal
Dim strMessage As String


'If no data was entered into the trade-in text box, default the amount to zero
If txtTradeIn.Text = "" Then
txtTradeIn.Text = "0"
End If

If txtSalesPrice.Text = "" Then
MessageBox.Show("Please enter the sale amount.", "Missing Data", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
txtSalesPrice.Focus()
Else
Try 'Calculate the totals

decSalesPrice = CDec(txtSalesPrice.Text)
decAllowance = CDec(txtTradeIn.Text)

'Test the option buttons for added charges
If radPearlized.Checked = True Then
decAccTotal = mdecPEARLIZED_CHARGE
ElseIf radCustom.Checked = True Then
decAccTotal += mdecDETAILING_CHARGE
End If

'Test the check boxes
If chkStereo.Checked = False Then
decAccTotal += mdecSTEREO_CHARGE
End If
If chkLeather.Checked = True Then
decAccTotal += mdecLEATHER_CHARGE
End If
If chkNavigation.Checked = True Then
decAccTotal += mdecCOMPUTER_CHARGE
End If

'Calculate sales tax
decTax = (decSalesPrice + decAccTotal) * mdecTAX_RATE
'Calculate subtotal
decSubTotal = decSalesPrice + decAccTotal - decTax
'Calculate amount due
decAmountDue = decSubTotal - decAllowance

'Display amounts in labels
txtSalesPrice.Text = FormatCurrency(decSalesPrice)
lblAccessoriesAndFinish.Text = FormatCurrency(decAccTotal)
lblSalesTax.Text = FormatCurrency(decTax)
lblSubtotal.Text = FormatCurrency(decSubTotal)
txtTradeIn.Text = FormatCurrency(txtTradeIn.Text)
lblAmountDue.Text = FormatCurrency(decAmountDue)
Catch
strMessage = "Calculation error"
MessageBox.Show(strMessage, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
'Clear the screen and restores focus to the first field

txtSalesPrice.Text = ""
txtTradeIn.Text = ""
lblAccessoriesAndFinish.Text() = ""
lblSalesTax.Text() = ""
lblSubtotal.Text() = ""
lblAmountDue.Text() = ""
txtSalesPrice.Focus()
End Sub
End Class


C++ Should Have Been Called "D"
Joined: Apr 2004
Posts: 11
Junior Member
Offline
Junior Member
Joined: Apr 2004
Posts: 11
can you just end try like that?
don't you need a catch block?


please don't read this, if u do i will dissapea.....

Link Copied to Clipboard
Member Spotlight
Phatal
Phatal
Houston, TX
Posts: 298
Joined: April 2004
Forum Statistics
Forums41
Topics33,840
Posts68,858
Average Daily Posts1
Members2,176
Most Online3,253
Jan 13th, 2020
Latest Postings
Where and how do you torrent?
by danni75 - 03/01/24 05:58 AM
Animation,
by JohanKaariainen - 08/15/19 01:18 AM
Blackbeard.....
by Gremelin - 10/03/18 07:02 PM
my old account still exists!
by Crime - 08/10/18 02:47 PM
Okay WTF?
by HenryMiring - 09/27/17 01:45 AM
The History Thread...
by Gremelin - 08/11/17 12:11 PM
My friend NEEDS your HELP!
by Lena01 - 07/21/17 12:06 AM
I'm having fun with this guy.
by gabithompson730 - 07/20/17 01:50 AM
I want to upgrade my phone
by gabithompson730 - 07/20/17 01:49 AM
Doom 3
by Cyrez - 09/11/14 08:58 PM
Amazon Gift Card Generator/KeyGen?te
by Gecko666 - 08/22/14 09:21 AM
AIM scene 99-03
by lavos - 09/02/13 08:06 AM
Planetside 2
by Crime - 03/04/13 07:10 AM
Beta Testers Wanted
by Crime - 03/04/13 06:55 AM
Hello Everyone
by Gremelin - 02/12/12 06:01 PM
Tracfone ESN Generator
by Zanvin Green - 01/18/12 01:31 PM
Python 3 issue
by Testing - 12/17/11 09:28 PM
tracfone airtime
by Drache86 - 07/30/11 03:37 AM
Backdoors and the Infinite
by ZeroCoolStar - 07/10/11 03:52 AM
HackThisZIne #12 Releaseed!
by Pipat2 - 04/28/11 09:20 PM
gang wars? l33t-wars?
by Gremelin - 04/28/11 05:56 AM
Consolidate Forums
by diggin2deep - 04/21/11 10:02 AM
LAN Hacking Noob
by Gremelin - 03/12/11 12:42 AM
Top Posters
UGN Security 41,392
Gremelin 7,203
§intå× 3,255
SilentRage 1,273
Ice 1,146
pergesu 1,136
Infinite 1,041
jonconley 955
Girlie 908
unreal 860
Top Likes Received
Ghost 2
Cyrez 1
Girlie 1
unreal 1
Crime 1
Powered by UBB.threads™ PHP Forum Software 7.7.5