Jadi15

private Sub xMainForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim inputscore As Integer
Dim score As Integer = 1
Dim scoreCount As Integer
Dim average As String
Dim prompt As Double
Dim title As Integer


Do While inputscore <> String.Empty
If score >= 0 Then
score = inputscore + score
scoreCount = scoreCount + 1
Else
MessageBox.Show(Text, "Total Score", MessageBoxButtons.OK, _
MessageBoxIcon.Information)
End If

inputscore = InputBox(prompt, title, "")
average = score / scoreCount
Loop

I need a little help with this code, want to be able to enter a score from 0 to 10 and then add the total and average out the score. I have total number input box, avg score input and a total score input box. Can someone direct me into the right direction.

Thanks

MP3Car.com

 

galvitron

Your description is not really clear but I will try

Dim done as Boolean = false
Dim totalScore as integer = 0
Dim NumberOfScores as integer = 0

Dim inputStr as string = ""

While Not done

'Get a score
inputStr = InputBox()

'If they enter a blank string, exit loop
If inputStr = "" Then
Exit While
End If

'Check for valid integer
Dim i as integer = -1
Try
i = Convert.ToInt32(inputStr)
Catch
Continue While
End Try

'Check for between 1 and 10
If i < 0 Or i > 10 Then
Continue While
End If

totalScore += i
numberOfScores += 1

'Show current average
MsgBox("Average is now: " & (totalScore/numberOfScores).ToSting)

'Go to next input
End While

__________________
2006 Lancer Evolution IX MR In-Dash PC Project - WIP

Planning:
[----------] 100%
Purchasing:
[----------] 100%
Installation/Fab/Assembly (Revised):
[----------] 80%

MP3Car.com