[Cvet]

Private Sub TextBox5_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtAverage.TextChanged
        ' This prodecure calculates the average test score of five scores and displays the average in lblAverage.  


        Dim TestScore1 As Integer        ' Test Score   
        Dim TestScore2 As Integer        ' Test Score 
        Dim TestScore3 As Integer        ' Test Score  
        Dim TestScore4 As Integer        ' Test Score 
        Dim TestScore5 As Integer        ' Test Score         
        Try

            ' Get the scores entered by the user  

            TestScore1 = TxtTestScore1.Text
            TestScore2 = TxtTestScore2.Text
            TestScore3 = TxtTestScore3.Text
            TestScore4 = TxtTestScore4.Text
            TestScore5 = TxtTestScore5.Text



            ' Calculate the average score  

            lblAverage.Text = (TestScore1 + TestScore2 + TestScore3 + TestScore4 + TestScore5) / 5

This post has been edited by AdamSpeight2008: 06 October 2012 - 02:19 PM
Reason for edit:: Someone forgot to use the CODE Tags.

[trevster344]

Well you need to consider the conversion of data for the proper data types. What is the .Text property going to return? A string of course, so you need to convert it with something like

Integer.parse(txttestscore1.text)

Now that the text has been converted to an integer, and the testscore1 can now contain that integer. Give it a shot with the rest of the gang.

[dotINSolution]

What really isn't working? That code seems to work fine very well here:

        Dim TestScore1 As Integer ' Test Score 1
        Dim TestScore2 As Integer ' Test Score 2
        Dim TestScore3 As Integer ' Test Score 3
        Dim TestScore4 As Integer ' Test Score 4
        Dim TestScore5 As Integer ' Test Score 5

        Try

            ' Get the scores entered by the user

            TestScore1 = 40
            TestScore2 = 70
            TestScore3 = 35
            TestScore4 = 69
            TestScore5 = 54

            ' Calculate the average score

            Dim average As Integer = (TestScore1 + TestScore2 + TestScore3 + TestScore4 + TestScore5) / 5

        Catch
        End Try

One thing i noticed is that in your code, that function is added to TxtAverage.TextChanged, are you sure you are attaching to the right handler.

[trevster344]

The handler is incorrect, unless he wants it to calculate that average every single time a character is added, or removed from the Textbox5 control.

[Cvet]

dotINSolution, on 06 October 2012 - 08:58 AM, said:

What really isn't working? That code seems to work fine very well here:

        Dim TestScore1 As Integer ' Test Score 1
        Dim TestScore2 As Integer ' Test Score 2
        Dim TestScore3 As Integer ' Test Score 3
        Dim TestScore4 As Integer ' Test Score 4
        Dim TestScore5 As Integer ' Test Score 5

        Try

            ' Get the scores entered by the user

            TestScore1 = 40
            TestScore2 = 70
            TestScore3 = 35
            TestScore4 = 69
            TestScore5 = 54

            ' Calculate the average score

            Dim average As Integer = (TestScore1 + TestScore2 + TestScore3 + TestScore4 + TestScore5) / 5

        Catch
        End Try

One thing i noticed is that in your code, that function is added to TxtAverage.TextChanged, are you sure you are attaching to the right handler.

sorry grabbed the wrong one.. this is what i have

 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ' This prodecure calculates the average test score of five scores and displays the average in lblAverage.  


        Dim TestScore1 As Integer        ' Test Score 1  
        Dim TestScore2 As Integer        ' Test Score 2  
        Dim TestScore3 As Integer        ' Test Score 3  
        Dim TestScore4 As Integer        ' Test Score 4
        Dim TestScore5 As Integer        ' Test Score 5 

        Try

            ' Get the scores entered by the user  

            TestScore1 = txtTestScore1.Text
            TestScore2 = TxtTestScore2.Text
            TestScore3 = TxtTestScore3.Text
            TestScore4 = TxtTestScore4.Text
            TestScore5 = TxtTestScore5.Text



            ' Calculate the average score  

            lblAverage = (TestScore1 + TestScore2 + TestScore3 + TestScore4 + TestScore5) / 5

        Catch ex As Exception

        End Try
        'error message'
        MessageBox.Show("Must contain numbers Only")
    End Sub
End Class

This post has been edited by AdamSpeight2008: 06 October 2012 - 02:20 PM

[AdamSpeight2008]

Please learn to use the code tags.

This post has been edited by AdamSpeight2008: 06 October 2012 - 02:21 PM

[trevster344]

Convert the strings to integers, and ten perform your calculation. It should work fine. On a side note your error message does nothing but display the same message every single time you run the routine because it's not in any sort of error trap.

[Cvet]

trevster344, on 06 October 2012 - 04:57 PM, said:

Convert the strings to integers, and ten perform your calculation. It should work fine. On a side note your error message does nothing but display the same message every single time you run the routine because it's not in any sort of error trap.

thanks, got it working!