Private Sub char_level_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles char_level.TextChanged Dim i As Integer If IsNumeric(char_level.Text) Then Select Case char_level.Text Case char_level.Text <= 3 points.Text = 25 Exit Sub Case Default For i = char_level.Text To 1 Step -1 If i Mod 4 = 0 Then points.Text = i / 2 + 25 Exit For End If Next i End Select Else points.Text = 0 Exit Sub End If End Sub
The basic idea is any value that's 3 or less should display 25 in the points label. For values 4, 8, 12, etc the point value should increase by 2 and the result should display in the label.
Any help would be appreciated.
Edited by timdav83, 01 April 2010 - 08:55 PM.