Mills Project and Mills Solution

Public Class frmMain 'Declare variable Dim sum As Integer = 0 Dim numberOfScore As Integer = 0 Dim average As Double

Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load CenterToScreen() 'Open the form in center screen 'Disable the textbox of total score, number of scores and average txtTotalScore.Enabled = False txtNumberOfScore.Enabled = False txtAverageScore.Enabled = False 'add the 10 scores to the score listbox For i = 1 To 10 lstScore.Items.Add(i) Next End Sub

Private Sub btnRecordScore_Click(sender As Object, e As EventArgs) Handles btnRecordScore.Click If Not lstScore.SelectedItem Is Nothing Then 'if the listbox item is selected Dim s As Integer = Integer.Parse(lstScore.SelectedItem.ToString) sum = sum + s 'add each score selected to sum numberOfScore += 1 'count the number of score average = sum / numberOfScore 'calaculate avearage txtTotalScore.Text = sum 'display the sum to total textbox txtNumberOfScore.Text = numberOfScore 'display the number of score txtAverageScore.Text = average.ToString("0.0") 'display the avearage

Else MessageBox.Show("Select score to record") 'if not selected score display End If End Sub

Private Sub btnNextSkater_Click(sender As Object, e As EventArgs) Handles btnNextSkater.Click 'resest the each variable to 0 and textbox to empty sum = 0 numberOfScore = 0 average = 0 txtTotalScore.Text = "" txtNumberOfScore.Text = "" txtAverageScore.Text = "" End Sub

Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click Me.Close() End Sub End Class