VB.NET

How to add strings that contain amounts

Please support our VB.NET advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Oct 2009

Posts: 32

Reputation: JRabbit2307 is an unknown quantity at this point

Solved Threads: 0

JRabbit2307 JRabbit2307 is offline

Offline

Light Poster

How to add strings that contain amounts

Nov 3rd, 2009

 Help with Code Tags 
 vb.net Syntax (Toggle Plain Text) 
'Radio Choice Selection
        Console.WriteLine("Please enter the Radio Choice for your vehicle: ")
        Console.WriteLine("Enter 1 for AM/FM Radio")
        Console.WriteLine("Enter 2 for AM/FM/CD/DVD")
        strRadioChoice = Console.ReadLine()
        Select Case strRadioChoice
            Case "1"
                Console.WriteLine("Price : $100")
 
            Case "2"
                Console.WriteLine("Price : $400")
 
            Case Else
                Console.WriteLine("Invalid selection")
 
        End Select
 
        SellingPrice = BasePrice + strEngineChoice + strInteriorChoice + strRadioChoice + ShippingCharge + DealerCharge
        Console.WriteLine("The total selling price for your vehicle is $" + SellingPrice)
        Console.WriteLine()
        Console.WriteLine("Press Enter to Exit")
        Console.ReadLine()
'Radio Choice Selection
        Console.WriteLine("Please enter the Radio Choice for your vehicle: ")
        Console.WriteLine("Enter 1 for AM/FM Radio")
        Console.WriteLine("Enter 2 for AM/FM/CD/DVD")
        strRadioChoice = Console.ReadLine()
        Select Case strRadioChoice
            Case "1"
                Console.WriteLine("Price : $100")

            Case "2"
                Console.WriteLine("Price : $400")

            Case Else
                Console.WriteLine("Invalid selection")

        End Select

        SellingPrice = BasePrice + strEngineChoice + strInteriorChoice + strRadioChoice + ShippingCharge + DealerCharge
        Console.WriteLine("The total selling price for your vehicle is $" + SellingPrice)
        Console.WriteLine()
        Console.WriteLine("Press Enter to Exit")
        Console.ReadLine()

•

Join Date: Sep 2009

Posts: 321

Reputation: TomW is on a distinguished road

Solved Threads: 45

TomW

Offline

Posting Whiz

Nov 3rd, 2009

You need to be storing these individual values into numeric variables to be calculated at the end.

•

Originally Posted by JRabbit2307

Help with Code Tags

vb.net Syntax (Toggle Plain Text)
'Radio Choice
Selection
 
Dim decRadioPrice As Decimal
 
        Console.WriteLine("Please enter the Radio Choice for your vehicle: ")
        Console.WriteLine("Enter 1 for AM/FM Radio")
        Console.WriteLine("Enter 2 for AM/FM/CD/DVD")
        strRadioChoice = Console.ReadLine()
        Select Case strRadioChoice
            Case "1"
                Console.WriteLine("Price : $100")
                decRadioPrice = 100.00
            Case "2"
                Console.WriteLine("Price : $400")
                 decRadioPrice = 400.00
            Case Else
                Console.WriteLine("Invalid selection")
 
        End Select
 
        'SellingPrice = BasePrice + strEngineChoice + strInteriorChoice 
        '+ strRadioChoice + ShippingCharge + DealerCharge
 
         decTotal = decBasePrice + desEnginePrice + decInterior + decRadio etc
        Console.WriteLine("The total selling price for your vehicle is $" + FormatCurrencty(decTotal))
        Console.WriteLine()
        Console.WriteLine("Press Enter to Exit")
        Console.ReadLine()
'Radio Choice Selection Dim decRadioPrice As Decimal Console.WriteLine("Please enter the Radio Choice for your vehicle: ") Console.WriteLine("Enter 1 for AM/FM Radio") Console.WriteLine("Enter 2 for AM/FM/CD/DVD") strRadioChoice = Console.ReadLine() Select Case strRadioChoice Case "1" Console.WriteLine("Price : $100") decRadioPrice = 100.00 Case "2" Console.WriteLine("Price : $400") decRadioPrice = 400.00 Case Else Console.WriteLine("Invalid selection") End Select 'SellingPrice = BasePrice + strEngineChoice + strInteriorChoice '+ strRadioChoice + ShippingCharge + DealerCharge decTotal = decBasePrice + desEnginePrice + decInterior + decRadio etc Console.WriteLine("The total selling price for your vehicle is $" + FormatCurrencty(decTotal)) Console.WriteLine() Console.WriteLine("Press Enter to Exit") Console.ReadLine()

•

Join Date: Oct 2009

Posts: 63

Reputation: mikiurban is an unknown quantity at this point

Solved Threads: 17

mikiurban

Offline

Junior Poster in Training

Nov 3rd, 2009

Or you can use Integer.Parse() (or Double.Parse(), etc) at that line where you add all the numbers. Maybe add some exception around it, too, .Parse() is pretty picky and throws exceptions when it doesn't get what it wants.

•

Join Date: Feb 2009

Posts: 3,473

Reputation: sknake has much to be proud of

Solved Threads: 630

sknake

Offline

.NET Enthusiast

Nov 3rd, 2009

You should use integer.TryParse() or decimal.TryParse() instead of handling the exception. Throwing exceptions is a very expensive process and if you have exceptions being thrown in calculations (where it can occur over and over in loops) it can bring a system to a halt depending on the amount of data.

Scott Knake
Custom Software Development
Apex Software, Inc.

•

Join Date: Oct 2009

Posts: 63

Reputation: mikiurban is an unknown quantity at this point

Solved Threads: 17

mikiurban

Offline

Junior Poster in Training

Nov 3rd, 2009

TryParse is much better than Parse (unless you want exceptions I suppose) . My current job is in .Net 1.1, and I don't get to use TryParse, so I forgot about it. Yes, I do cry a little inside.

•

Join Date: Oct 2009

Posts: 32

Reputation: JRabbit2307 is an unknown quantity at this point

Solved Threads: 0

JRabbit2307 JRabbit2307 is offline

Offline

Light Poster

Nov 5th, 2009

•

Originally Posted by mikiurban

Or you can use Integer.Parse() (or Double.Parse(), etc) at that line where you add all the numbers. Maybe add some exception around it, too, .Parse() is pretty picky and throws exceptions when it doesn't get what it wants.

mikiurban are you saying to do decTotal = decBasePrice + decEnginePrice + decInterior + decRadio + decShippingCharge + decDealerCharge
Console.WriteLine("The total selling price for your vehicle is $" + Integer.Parse(decTotal))
I tried integer.parse() and parse.() neither worked

•

Join Date: Oct 2009

Posts: 32

Reputation: JRabbit2307 is an unknown quantity at this point

Solved Threads: 0

JRabbit2307 JRabbit2307 is offline

Offline

Light Poster

Nov 5th, 2009

•

Originally Posted by sknake

You should use integer.TryParse() or decimal.TryParse() instead of handling the exception. Throwing exceptions is a very expensive process and if you have exceptions being thrown in calculations (where it can occur over and over in loops) it can bring a system to a halt depending on the amount of data.

sknake i tried that and its saying "overload resolution failed because no accessible 'TryParse' accepts this number of arguments

•

Join Date: Apr 2005

Posts: 16,273

Reputation: jbennet is a name known to all

Solved Threads: 544

jbennet

Offline

Moderator

-6

Nov 5th, 2009

Cast with the "CInt" function

Last edited by jbennet; Nov 5th, 2009 at 6:20 am.

If i am helpful, please give me reputation points.

•

Join Date: Oct 2009

Posts: 32

Reputation: JRabbit2307 is an unknown quantity at this point

Solved Threads: 0

JRabbit2307 JRabbit2307 is offline

Offline

Light Poster

Nov 5th, 2009

•

Originally Posted by jbennet

Cast with the "CInt" function

jbennet i'm new to programming and what am i supposed to do with "CInt"???

•

Join Date: Apr 2005

Posts: 16,273

Reputation: jbennet is a name known to all

Solved Threads: 544

jbennet

Offline

Moderator

-7

#10

Nov 5th, 2009

CInt casts a string to an integer. e.g.

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim answer As Integer
answer =  CInt(TextBox1.Text) + CInt(TextBox2.Text)
Dim answer As Integer
answer =  CInt(TextBox1.Text) + CInt(TextBox2.Text)

Will add two strings (the data in the textboxes) and store the result in an integer variable called answer.

Look at:
http://www.vbdotnetforums.com/vb-net...pose-cint.html

Last edited by jbennet; Nov 5th, 2009 at 6:35 am.

If i am helpful, please give me reputation points.