Hi.
did a project for one of the chapters in my book, for my programming
class.
the program, asks to enter a shipping code, the number of pounds and
ounces,
then displays the cost of the total package.
now, when i click on the calculate button, instead of showing me say a 7
or
8 digit code, it just shows a 0.
so how can i fix this one.
will paste the message and my code below.
cheers Marvin.
Hi.
did this project out of my programming book for my programming class.
will post the message below.
if any one can shed light on how to fix this problem i am having.
let me know.
cheers Marvin.
Hi.
okay did that, and i think i know where the error is, but how to fix it?
i think when i did the error checking for if the shipping code had a
decimal
or not, think it is throwing that out.
so have put message boxes, before and after, and also, the formatting
area,
i think was throwing it out.
can you help me how to fix this one?
have never seen this one before?
either post on list or e-mail me off list, what ever makes you feel more
comfortable.
cheers and thanks for your help so far.
getting there slowly.
ps: now will paste my code below, entire program, easier then trying to
pick
out bits and pieces.
'Program: Shipping
'Programmer: Marvin Hunkin
'Date: Tuesday September 30 2008
'Description: Calculate Shipping Charge For A Post Office
Public Class frmShipping
'Declare Constant.
Const decShipping_Rate_Decimal As Decimal = 0.12
Private Sub btnCalculateButton_Click(ByVal sender As Object, ByVal e
As
System.EventArgs) Handles btnCalculateButton.Click
'Declare Variables.
Dim intShippingCode As Integer = 0
Dim intPounds As Integer = 0
Dim intOunces As Integer = 0
Dim decShippingCharge As Decimal = 0
Dim intTotalOunces As Integer = 0
' Validate Inputs
' First check for numeric in general
If Not IsNumeric(tbPoundsTextBox.Text) Then
MessageBox.Show("Error: You Did Not Enter A Valid Numeric
Value
For Pounds.", "Data Error", _
MessageBoxButtons.OK,
MessageBoxIcon.Exclamation)
tbPoundsTextBox.Focus()
Return
End If
If Not IsNumeric(tbOuncesTextBox.Text) Then
MessageBox.Show("Error: You Did Not Enter A Valid Numeric
Value
For Pounds.", "Data Error", _
MessageBoxButtons.OK,
MessageBoxIcon.Exclamation)
tbOuncesTextBox.Focus()
Return
End If
If Not IsNumeric(tbShippingCodeTextBox.Text) Then
MessageBox.Show("Error: You Did Not Enter A Valid Numeric
Value
For Shipping Code.", "Data Error", _
MessageBoxButtons.OK,
MessageBoxIcon.Exclamation)
tbShippingCodeTextBox.Focus()
Return
End If
' We now have numbers so check if integers
' do this by looking for any decimal point in TextBox string.
Dim FoundIndex As Integer = 0
FoundIndex = tbPoundsTextBox.Text.IndexOf(".")
If FoundIndex > -1 Then
MessageBox.Show("Error: You Did Not Enter A Valid Numeric
Value
For Pounds.", "Data Error", _
MessageBoxButtons.OK,
MessageBoxIcon.Exclamation)
tbPoundsTextBox.Focus()
Return
End If
FoundIndex = tbOuncesTextBox.Text.IndexOf(".")
If FoundIndex > -1 Then
MessageBox.Show("Error: You Did Not Enter A Valid Numeric
Value
For Pounds.", "Data Error", _
MessageBoxButtons.OK,
MessageBoxIcon.Exclamation)
tbOuncesTextBox.Focus()
Return
End If
MessageBox.Show("tbShippingCodeTextBox.text = " &
tbShippingCodeTextBox.Text)
FoundIndex = tbShippingCodeTextBox.Text.IndexOf(".")
If FoundIndex > -1 Then
MessageBox.Show("Error: You Did Not Enter A Valid Numeric
Value
For Shipping Code.", "Data Error", _
MessageBoxButtons.OK,
MessageBoxIcon.Exclamation)
tbShippingCodeTextBox.Focus()
Return
End If
MessageBox.Show("tbShippingCodeTextBox.text = " &
tbShippingCodeTextBox.Text)
If tbShippingCodeTextBox.Text.Length <= 6 Then
MessageBox.Show("Error: You Did Not Enter A Valid Length For
The
Shipping Code.", "Data Error", _
MessageBoxButtons.OK,
MessageBoxIcon.Exclamation)
tbShippingCodeTextBox.Focus()
Return
End If
intPounds = Integer.Parse(tbPoundsTextBox.Text)
intOunces = Integer.Parse(tbOuncesTextBox.Text)
If intPounds < 0 Then
MessageBox.Show("Error: You Did Not Enter A Positive Value
For
Shipping Weight.", "Data Error", _
MessageBoxButtons.OK,
MessageBoxIcon.Exclamation)
tbPoundsTextBox.Focus()
Return
End If
If intOunces < 0 Then
MessageBox.Show("Error: You Did Not Enter A Positive Value
For
Shipping Weight.", "Data Error", _
MessageBoxButtons.OK,
MessageBoxIcon.Exclamation)
tbOuncesTextBox.Focus()
Return
End If
intTotalOunces = (intPounds * 16) + intOunces
decShippingCharge = intTotalOunces * decShipping_Rate_Decimal
'Format Text Boxes.
tbPoundsTextBox.Text = intPounds.ToString()
tbOuncesTextBox.Text = intOunces.ToString()
MessageBox.Show("tbShippingCodeTextBox.text = " &
tbShippingCodeTextBox.Text)
tbShippingCodeTextBox.Text = intShippingCode.ToString()
tbShippingChargeTextBox.Text = decShippingCharge.ToString("C")
tbShippingCodeTextBox.Focus()
End Sub
Private Sub btnClearButton_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles btnClearButton.Click
tbShippingCodeTextBox.Clear()
tbPoundsTextBox.Clear()
tbOuncesTextBox.Clear()
tbShippingChargeTextBox.Clear()
tbShippingCodeTextBox.Focus()
End Sub
Private Sub btnExitButton_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles btnExitButton.Click
'Exit the project.
Me.Close()
End Sub
End Class
E-mail: startrekcafe@xxxxxxxxx
MSN: sttartrekcafe@xxxxxxx
Skype: startrekcafe
We Are The Borg! You Will Be Assimilated! Resistance Is Futile!
Star Trek Voyager Episode 68 Scorpian Part One
E-mail: startrekcafe@xxxxxxxxx
MSN: sttartrekcafe@xxxxxxx
Skype: startrekcafe
We Are The Borg! You Will Be Assimilated! Resistance Is Futile!
Star Trek Voyager Episode 68 Scorpian Part One
E-mail: startrekcafe@xxxxxxxxx
MSN: sttartrekcafe@xxxxxxx
Skype: startrekcafe
We Are The Borg! You Will Be Assimilated! Resistance Is Futile!
Star Trek Voyager Episode 68 Scorpian Part One
E-mail: startrekcafe@xxxxxxxxx
MSN: sttartrekcafe@xxxxxxx
Skype: startrekcafe
We Are The Borg! You Will Be Assimilated! Resistance Is Futile!
Star Trek Voyager Episode 68 Scorpian Part One
__________
View the list's information and change your settings at
//www.freelists.org/list/programmingblind
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3654 (20081201) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
