VBDot Net Maths Problem
- From: "Marvin Hunkin" <startrekcafe@xxxxxxxxx>
- To: <programmingblind@xxxxxxxxxxxxx>
- Date: Mon, 29 Sep 2008 10:45:20 +1000
Hi.
well, working on a project for a bowling club.
and changed the variable names for the private function calls, and went
through character by character.
and also determined the correct variable value, but still not liking the
private function calls and the text boxes, and the check box, saying it is
not declared.
but i have had a double check, and made sure.
so why am i getting these errors?
will paste the error window and my sub routine block, see if any one can
help me out and why vb.is complaining.
or am i doing some thing stupid or wrong or just being a dummy?
this is really starting to annoy me.
cheers Marvin.
Error 1 Name 'ScoreThreeInteger' is not declared.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
14 45 Bowling
Error 2 Name 'tbHighGameTextBox' is not declared.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
67 43 Bowling
Error 3 Name 'tbSeriesTextbox' is not declared.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
71 41 Bowling
Error 4 Name 'tbHandicapTextBox' is not declared.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
73 43 Bowling
Error 5 Name 'ScoreOneInteger' is not declared.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
77 42 Bowling
Error 6 Name 'ScoreTwoInteger' is not declared.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
77 59 Bowling
Error 7 Name 'ScoreThreeInteger' is not declared.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
77 76 Bowling
Error 8 Name 'ScoreOneInteger' is not declared.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
78 40 Bowling
Error 9 Name 'ScoreTwoInteger' is not declared.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
78 57 Bowling
Error 10 Name 'ScoreThreeInteger' is not declared.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
78 74 Bowling
Error 11 Name 'ScoreOneInteger' is not declared.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
79 44 Bowling
Error 12 Name 'ScoreTwoInteger' is not declared.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
79 61 Bowling
Error 13 Name 'ScoreThreeInteger' is not declared.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
79 78 Bowling
Error 14 'tbHighGameTextBox' is not a member of 'Bowling.frmBowling'.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
89 17 Bowling
Error 15 Argument not specified for parameter 'index' of 'Public ReadOnly
Default Property Chars(index As Integer) As Char'.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
89 43 Bowling
Error 16 'tbSeriesTextbox' is not a member of 'Bowling.frmBowling'.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
90 17 Bowling
Error 17 'tbHandicapTextBox' is not a member of 'Bowling.frmBowling'.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
91 17 Bowling
Error 18 'chkMaleCheckBox' is not a member of
'System.Windows.Forms.TextBox'.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
146 17 Bowling
Error 19 'chkFemaleCheckBox' is not a member of
'System.Windows.Forms.TextBox'.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
147 17 Bowling
Error 20 'tbGameOneTextbox' is not a member of
'System.Windows.Forms.TextBox'.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
148 17 Bowling
Error 21 'tbGameTwoTextBox' is not a member of
'System.Windows.Forms.TextBox'.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
149 17 Bowling
Error 22 'tbGameThreeTextBox' is not a member of
'System.Windows.Forms.TextBox'.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
150 17 Bowling
Error 23 'tbAverageTextBox' is not a member of
'System.Windows.Forms.TextBox'.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
151 17 Bowling
Error 24 'tbHandicapTextBox' is not a member of
'System.Windows.Forms.TextBox'.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
152 17 Bowling
Error 25 'tbSeriesTextBox' is not a member of
'System.Windows.Forms.TextBox'.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
153 17 Bowling
Error 26 'tbHighGameTextBox' is not a member of
'System.Windows.Forms.TextBox'.
C:\DOCS\Tafe\CertificateFourProgramming\CertFour\Programming\VisualBasic\Book\VisualBasicProgramming\ChapterFive\Example\Bowling\Bowling\frmBowling.vb
154 17 Bowling
'Programmer: Bradley/Millspaugh
'Date: June 2005
'Folder: Ch05Bowling
'Description: This project calculates bowling statistics using
Public Class frmBowling
Private Function FindAverage(ByVal ScoreOneInteger As Integer, _
ByVal ScoreTwoInteger as integer, ByVal ScoreThreInteger as Integer) As
Decimal
' Return the average of three games.
Return (ScoreOneInteger + ScoreTwoInteger + ScoreThreeInteger)
End Function
Private Function FindHandicap(ByVal AverageDecimal As Decimal) As Decimal
' Calculate the handicap.
Return (200D - AverageDecimal) * 0.8D
End Function
Private Function FindSeries(ByVal ScoreOneInteger As Integer, _
ByVal ScoreTwoInteger As Integer, ByVal ScoreThreeInteger As Integer) As
Integer
' Calculate the series total.
Return ScoreOneInteger + ScoreTwoInteger + ScoreThreeInteger
End Function
Private Function FindHighGame(ByVal ScoreOneInteger As Integer, _
ByVal ScoreTwoInteger As Integer, ByVal ScoreThreeInteger As Integer) As
String
' Find the highest game in the series.
If ScoreOneInteger > ScoreTwoInteger And ScoreOneInteger >
ScoreThreeInteger Then
Return "1"
ElseIf ScoreTwoInteger > ScoreOneInteger And ScoreTwoInteger >
ScoreThreeInteger Then
Return "2"
ElseIf ScoreThreeInteger > ScoreOneInteger And ScoreThreeInteger >
ScoreTwoInteger Then
Return "3"
Else
Return "Tie"
End If
End Function
Private Sub CalculateToolStripMenuItem_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles CalculateToolStripMenuItem.Click
' Calculate individual and summary info.
Dim decAverage As Decimal
dim decHandicap as Decimal
Dim intSeries as integer
dim intScoreOne as integer
dim intScoreTwo as integer
dim intScoreThree As Integer
Dim strHighGame As String
dim strName as string
Try
With Me
strName = Integer.Parse(tbNameTextBox.Text)
strHighGame=Integer.Parse(tbHighGameTextBox.Text)
intScoreOne =
Integer.Parse(tbGameOneTextBox.Text)
intScoreTwo = Integer.Parse(tbGameTwoTextBox.Text)
intScoreThree = Integer.Parse(tbGameThreeTextBox.Text)
intSeries=Integer.Parse(tbSeriesTextbox.Text)
decAverage=Decimal.Parse(tbAverageTextbox.Text)
decHandicap=Decimal.Parse(tbHandicapTextBox.Text)
' Perform all calculations.
decAverage = FindAverage(ScoreOneInteger, ScoreTwoInteger,
ScoreThreeInteger)
intSeries = FindSeries(ScoreOneInteger, ScoreTwoInteger,
ScoreThreeInteger)
strHighGame = FindHighGame(ScoreOneInteger, ScoreTwoInteger,
ScoreThreeInteger)
decHandicap = FindHandicap(decAverage)
' Format the output.
.tbNameTextBox.Text = strName.ToString()
.tbGameOneTextBox.Text = intScoreOne.ToString("N1")
.tbGameTwoTextBox.Text = intScoreTwo.ToString("N1")
.tbGameThreeTextBox.Text = intScoreThree.ToString("N1")
.tbAverageTextBox.Text = decAverage.ToString("N1")
.tbHighGameTextBox.Text = strHighGame()
.tbSeriesTextbox.Text = intSeries.ToString()
.tbHandicapTextBox.Text = decHandicap.ToString("N1")
End With
Catch ex As Exception
MessageBox.Show("Please Enter three numeric scores", "Missing
Data", _
MessageBoxButtons.OK)
End Try
End Sub
__________
View the list's information and change your settings at
//www.freelists.org/list/programmingblind
Other related posts:
