Re: VB. Net String conversion Exception Hanlder message
- From: "Marvin Hunkin" <startrekcafe@xxxxxxxxx>
- To: <programmingblind@xxxxxxxxxxxxx>
- Date: Sun, 28 Sep 2008 23:18:55 +1000
Hi.
here's the whole code blick for the project.
maybe i did the message box, before the cost text box, and maybe did it
wrong.
sorry, getting tired, and trying to figure this one out.
cheers Marvin.
'Program: Finance
'Programmer: Marvin Hunkin
'Date: Tuesday September 9 2008
'Description: Enter beginning, ending and cost of living for a management
company.
'Calculate the beginning, ending and cost of living, display the average
inventory, and the turnover.
Public Class financeForm
'Constant Declaration
Const yearInteger As Integer = 365
Private Sub calculateButton_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles calculateButton.Click
'Calculate Beginning Inventory, Ending Inventory and Cost Of Goods
Dim beginDecimal As Decimal
Dim endDecimal As Decimal
Dim costDecimal As Decimal
Dim averageDecimal As Decimal
Dim turnoverInteger As Integer
'Convert variables.
With Me
beginDecimal = Decimal.Parse(beginTextBox.Text)
endDecimal = Decimal.Parse(endTextBox.Text)
costDecimal = Decimal.Parse(costTextBox.Text)
averageDecimal = Decimal.Parse(averageTextBox.Text)
MessageBox.Show("Text Box Entry Was Clicked")
turnoverInteger = Integer.Parse(turnoverTextBox.Text)
'Calculate Finance Details.
averageDecimal = beginDecimal * endDecimal * costDecimal /
yearInteger
turnoverInteger = beginDecimal * endDecimal / yearInteger
Try
Catch beginException As FormatException
MessageBox.Show("Entry must be numeric.", "Data Errror", _
MessageBoxButtons.OK,
MessageBoxIcon.Exclamation)
Catch endException As FormatException
MessageBox.Show("Entry must be numeric.", "Data Errror", _
MessageBoxButtons.OK,
MessageBoxIcon.Exclamation)
Catch costException As FormatException
MessageBox.Show("Entry must be numeric.", "Data Errror", _
MessageBoxButtons.OK,
MessageBoxIcon.Exclamation)
'Format Text Boxes.
.beginTextBox.Text = beginDecimal.ToString("C")
.endTextBox.Text = endDecimal.ToString("C")
.costTextBox.Text = costDecimal.ToString("C")
MessageBox.Show("Cost Text Box Entry Was Clicked")
.averageTextBox.Text = averageDecimal.ToString("C")
.turnoverTextBox.Text = turnoverInteger.ToString("N")
With beginTextBox
.Focus()
.SelectAll()
End With
End Try
End With
End Sub
Private Sub clearButton_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles clearButton.Click
'Clear Text boxes.
beginTextBox.Clear()
End Sub
Private Sub exitButton_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles exitButton.Click
'Exit the project.
Me.Close()
End Sub
End Class
----- Original Message -----
From: "Ricks Place" <OFBGMail@xxxxxxxxx>
To: <programmingblind@xxxxxxxxxxxxx>
Sent: Sunday, September 28, 2008 10:55 PM
Subject: Re: VB. Net String conversion Exception Hanlder message
Hi Marv:
Send me the code for the entire code block, subroutine. And exactly what is
in the field as you typed it in including any special characters like dollar
signs or percent signs or anything else.
Rick USA
----- Original Message -----
From: "Marvin Hunkin" <startrekcafe@xxxxxxxxx>
To: <programmingblind@xxxxxxxxxxxxx>
Sent: Sunday, September 28, 2008 8:48 AM
Subject: Re: VB. Net String conversion Exception Hanlder message
> Hi.
> yes, i do, and it still falls, over, and put a message box, before and
> after, but still getting the excpeiton helper error.
> not sure why?
> cheers Marvin.
> ----- Original Message -----
> From: "Ricks Place" <OFBGMail@xxxxxxxxx>
> To: <programmingblind@xxxxxxxxxxxxx>
> Sent: Sunday, September 28, 2008 10:47 PM
> Subject: Re: VB. Net String conversion Exception Hanlder message
>
>
> Hi Marv, much better.
> OK, so do you have a valid number in the
> costTextBox.Text TextBox? That is what did you enter in there.
> You can use a MessageBox.Show to show the value if you want to check it
> before and after the Parsing before the calculations for debugging or
> using
> the Vb.net Debugger to check it if you know ho to do that.
> Rick USA
>
> ----- Original Message -----
> From: "Marvin Hunkin" <startrekcafe@xxxxxxxxx>
> To: <programmingblind@xxxxxxxxxxxxx>
> Sent: Sunday, September 28, 2008 8:39 AM
> Subject: Re: VB. Net String conversion Exception Hanlder message
>
>
>> Hi.
>> here's the line of code where it is not liking it.
>> line 43:
>>
>> costDecimal = Decimal.Parse(costTextBox.Text)
>>
>>
>> and will then copy the exception error log as well.
>>
>> System.FormatException was unhandled
>> Message="Input string was not in a correct format."
>> Source="mscorlib"
>> StackTrace:
>> at System.Number.StringToNumber(String str, NumberStyles options,
>> NumberBuffer& number, NumberFormatInfo info, Boolean parseDecimal)
>> at System.Number.ParseDecimal(String value, NumberStyles options,
>> NumberFormatInfo numfmt)
>> at System.Decimal.Parse(String s)
>> at Finance.financeForm.calculateButton_Click(Object sender,
>> EventArgs
>> e)
>> at System.Windows.Forms.Control.OnClick(EventArgs e)
>> at System.Windows.Forms.Button.OnClick(EventArgs e)
>> at System.Windows.Forms.ButtonBase.OnKeyUp(KeyEventArgs kevent)
>> at System.Windows.Forms.Control.ProcessKeyEventArgs(Message& m)
>> at System.Windows.Forms.Control.ProcessKeyMessage(Message& m)
>> at System.Windows.Forms.Control.WmKeyChar(Message& m)
>> at System.Windows.Forms.Control.WndProc(Message& m)
>> at System.Windows.Forms.ButtonBase.WndProc(Message& m)
>> at System.Windows.Forms.Button.WndProc(Message& m)
>> at
>> System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
>> at
>> System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message&
>> m)
>> at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr
>> hWnd,
>> Int32 msg, IntPtr wparam, IntPtr lparam)
>> at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG&
>> msg)
>> at
>> System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32
>> dwComponentID, Int32 reason, Int32 pvLoopData)
>> at
>> System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32
>> reason, ApplicationContext context)
>> at
>> System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32
>> reason,
>> ApplicationContext context)
>> at System.Windows.Forms.Application.Run(ApplicationContext context)
>> at
>> Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
>> at
>> Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
>> at
>> Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[]
>> commandLine)
>> at Finance.My.MyApplication.Main(String[] Args)
>> at System.AppDomain._nExecuteAssembly(Assembly assembly, String[]
>> args)
>> at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence
>> assemblySecurity, String[] args)
>> at
>> Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
>> at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
>> at System.Threading.ExecutionContext.Run(ExecutionContext
>> executionContext, ContextCallback callback, Object state)
>> at System.Threading.ThreadHelper.ThreadStart()
>> InnerException:
>>
>>
>> cheers Marvin.
>> ----- Original Message -----
>> From: "Ricks Place" <OFBGMail@xxxxxxxxx>
>> To: <programmingblind@xxxxxxxxxxxxx>
>> Sent: Sunday, September 28, 2008 10:31 PM
>> Subject: Re: VB. Net String conversion Exception Hanlder message
>>
>>
>> Hi Marv:
>> Just send the Error Message and the line of code, or short code block,
>> related to the message for help please.
>> Rick USA
>> ----- Original Message -----
>> From: "Marvin Hunkin" <startrekcafe@xxxxxxxxx>
>> To: <programmingblind@xxxxxxxxxxxxx>
>> Sent: Sunday, September 28, 2008 8:02 AM
>> Subject: VB. Net String conversion Exception Hanlder message
>>
>>
>>> Hi.
>>> now, for my finance project, got an exception error, and says some thing
>>> about conversion string.
>>> how can i fix this one, and if any one can help, would be appreciative.
>>> vb
>>> programming book.
>>> for my vb class.
>>> if any one can help me out, and show me how to fix the problem, will go
>>> and
>>> show you the code and the exception helper window.
>>>
>>>
>>> 'Program: Finance
>>> 'Programmer: Marvin Hunkin
>>> 'Date: Tuesday September 9 2008
>>> 'Description: Enter beginning, ending and cost of living for a
>>> management
>>> company.
>>> 'Calculate the beginning, ending and cost of living, display the
>>> average
>>> inventory, and the turnover.
>>>
>>>
>>> Public Class financeForm
>>>
>>>
>>> 'Constant Declaration
>>>
>>> Const yearInteger As Integer = 365
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> Private Sub calculateButton_Click(ByVal sender As Object, ByVal e As
>>> System.EventArgs) Handles calculateButton.Click
>>>
>>>
>>> 'Calculate Beginning Inventory, Ending Inventory and Cost Of
>>> Goods
>>>
>>> Dim beginDecimal As Decimal
>>> Dim endDecimal As Decimal
>>> Dim costDecimal As Decimal
>>> Dim averageDecimal As Decimal
>>> Dim turnoverInteger As Integer
>>>
>>>
>>> 'Convert variables.
>>>
>>> With Me
>>>
>>>
>>>
>>> beginDecimal = Decimal.Parse(beginTextBox.Text)
>>> endDecimal = Decimal.Parse(endTextBox.Text)
>>> costDecimal = Decimal.Parse(costTextBox.Text)
>>> averageDecimal = Decimal.Parse(averageTextBox.Text)
>>> turnoverInteger = Integer.Parse(turnoverTextBox.Text)
>>>
>>>
>>> 'Calculate Finance Details.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> averageDecimal = beginDecimal * endDecimal * costDecimal /
>>> yearInteger
>>> turnoverInteger = beginDecimal * endDecimal / yearInteger
>>>
>>>
>>> Try
>>>
>>>
>>>
>>>
>>> Catch beginException As FormatException
>>>
>>>
>>> MessageBox.Show("Entry must be numeric.", "Data Errror",
>>> _
>>> MessageBoxButtons.OK,
>>> MessageBoxIcon.Exclamation)
>>>
>>>
>>> Catch endException As FormatException
>>>
>>>
>>> MessageBox.Show("Entry must be numeric.", "Data Errror",
>>> _
>>> MessageBoxButtons.OK,
>>> MessageBoxIcon.Exclamation)
>>>
>>>
>>>
>>>
>>>
>>>
>>> Catch costException As FormatException
>>>
>>>
>>> MessageBox.Show("Entry must be numeric.", "Data Errror",
>>> _
>>> MessageBoxButtons.OK,
>>> MessageBoxIcon.Exclamation)
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> 'Format Text Boxes.
>>>
>>> .beginTextBox.Text = beginDecimal.ToString("C")
>>> .endTextBox.Text = endDecimal.ToString("C")
>>> .costTextBox.Text = costDecimal.ToString("C")
>>> .averageTextBox.Text = averageDecimal.ToString("C")
>>> .turnoverTextBox.Text = turnoverInteger.ToString("N")
>>>
>>>
>>> With beginTextBox
>>>
>>>
>>> .Focus()
>>> .SelectAll()
>>>
>>> End With
>>>
>>>
>>>
>>> End Try
>>>
>>>
>>> End With
>>>
>>>
>>>
>>>
>>> End Sub
>>>
>>> Private Sub clearButton_Click(ByVal sender As Object, ByVal e As
>>> System.EventArgs) Handles clearButton.Click
>>>
>>>
>>>
>>> 'Clear Text boxes.
>>>
>>> beginTextBox.Clear()
>>>
>>> End Sub
>>>
>>> Private Sub exitButton_Click(ByVal sender As Object, ByVal e As
>>> System.EventArgs) Handles exitButton.Click
>>>
>>>
>>> 'Exit the project.
>>>
>>> Me.Close()
>>>
>>> End Sub
>>> End Class
>>>
>>>
>>> 'Program: Finance
>>> 'Programmer: Marvin Hunkin
>>> 'Date: Tuesday September 9 2008
>>> 'Description: Enter beginning, ending and cost of living for a
>>> management
>>> company.
>>> 'Calculate the beginning, ending and cost of living, display the
>>> average
>>> inventory, and the turnover.
>>>
>>>
>>> Public Class financeForm
>>>
>>>
>>> 'Constant Declaration
>>>
>>> Const yearInteger As Integer = 365
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> Private Sub calculateButton_Click(ByVal sender As Object, ByVal e As
>>> System.EventArgs) Handles calculateButton.Click
>>>
>>>
>>> 'Calculate Beginning Inventory, Ending Inventory and Cost Of
>>> Goods
>>>
>>> Dim beginDecimal As Decimal
>>> Dim endDecimal As Decimal
>>> Dim costDecimal As Decimal
>>> Dim averageDecimal As Decimal
>>> Dim turnoverInteger As Integer
>>>
>>>
>>> 'Convert variables.
>>>
>>> With Me
>>>
>>>
>>>
>>> beginDecimal = Decimal.Parse(beginTextBox.Text)
>>> endDecimal = Decimal.Parse(endTextBox.Text)
>>> costDecimal = Decimal.Parse(costTextBox.Text)
>>> averageDecimal = Decimal.Parse(averageTextBox.Text)
>>> turnoverInteger = Integer.Parse(turnoverTextBox.Text)
>>>
>>>
>>> 'Calculate Finance Details.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> averageDecimal = beginDecimal * endDecimal * costDecimal /
>>> yearInteger
>>> turnoverInteger = beginDecimal * endDecimal / yearInteger
>>>
>>>
>>> Try
>>>
>>>
>>>
>>>
>>> Catch beginException As FormatException
>>>
>>>
>>> MessageBox.Show("Entry must be numeric.", "Data Errror",
>>> _
>>> MessageBoxButtons.OK,
>>> MessageBoxIcon.Exclamation)
>>>
>>>
>>> Catch endException As FormatException
>>>
>>>
>>> MessageBox.Show("Entry must be numeric.", "Data Errror",
>>> _
>>> MessageBoxButtons.OK,
>>> MessageBoxIcon.Exclamation)
>>>
>>>
>>>
>>>
>>>
>>>
>>> Catch costException As FormatException
>>>
>>>
>>> MessageBox.Show("Entry must be numeric.", "Data Errror",
>>> _
>>> MessageBoxButtons.OK,
>>> MessageBoxIcon.Exclamation)
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> 'Format Text Boxes.
>>>
>>> .beginTextBox.Text = beginDecimal.ToString("C")
>>> .endTextBox.Text = endDecimal.ToString("C")
>>> .costTextBox.Text = costDecimal.ToString("C")
>>> .averageTextBox.Text = averageDecimal.ToString("C")
>>> .turnoverTextBox.Text = turnoverInteger.ToString("N")
>>>
>>>
>>> With beginTextBox
>>>
>>>
>>> .Focus()
>>> .SelectAll()
>>>
>>> End With
>>>
>>>
>>>
>>> End Try
>>>
>>>
>>> End With
>>>
>>>
>>>
>>>
>>> End Sub
>>>
>>> Private Sub clearButton_Click(ByVal sender As Object, ByVal e As
>>> System.EventArgs) Handles clearButton.Click
>>>
>>>
>>>
>>> 'Clear Text boxes.
>>>
>>> beginTextBox.Clear()
>>>
>>> End Sub
>>>
>>> Private Sub exitButton_Click(ByVal sender As Object, ByVal e As
>>> System.EventArgs) Handles exitButton.Click
>>>
>>>
>>> 'Exit the project.
>>>
>>> Me.Close()
>>>
>>> End Sub
>>> End Class
>>>
>>> graphic 94 Solution Explo... Data SourcetTextBox.Text)
>>> averageTextBox.Text) Properties
>>> (turnoverTextBox.Text) graphic 545
>>> graphic 545
>>> graphic 932
>>> graphic 756 graphic 692
>>>
>>>
>>>
>>> __________
>>> View the list's information and change your settings at
>>> //www.freelists.org/list/programmingblind
>>
>> __________
>> View the list's information and change your settings at
>> //www.freelists.org/list/programmingblind
>>
>>
>> __________
>> View the list's information and change your settings at
>> //www.freelists.org/list/programmingblind
>
> __________
> View the list's information and change your settings at
> //www.freelists.org/list/programmingblind
>
>
> __________
> View the list's information and change your settings at
> //www.freelists.org/list/programmingblind
>
__________
View the list's information and change your settings at
//www.freelists.org/list/programmingblind
__________
View the list's information and change your settings at
//www.freelists.org/list/programmingblind
Other related posts:
