by En Fuego por Christo (3 Submissions)
Category: Games
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 9th September 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
For those of you who have played NFL 2K2, it's the kick power meter. It is a circular meter that goes back and forth, and starts and stops at
API Declarations
Dim i As Single
Dim Bigger As Boolean
Dim bGo As Boolean
' add a timer to the form and name it Timer1 (default). Set its interval to whatever speed you like
'set our variables
i = 0
Bigger = True
bGo = True
End Sub
Private Sub Slider1_Change()
Timer1.Interval = 110 - Slider1.Value * 10
End Sub
Private Sub Timer1_Timer()
Dim a As Integer
If bGo = True Then 'so we can stop and start it at will
If i >= 6 Then
Bigger = False
ElseIf i <= 0.005 Then
Bigger = True
End If
If Bigger = True Then
i = i + 0.05
For a = 900 To 1000
' this draws an arc 100 times 1 pixel apart. Change the values to make the circle smaller or larger.
Me.Circle (ScaleWidth / 2, ScaleHeight / 2), a, vbRed, 0.005, i
Next
Else
i = i - 0.05
For a = 880 To 1020
' this draws an arc 100 times 1 pixel apart. Change the values to make the circle smaller or larger.
Me.Circle (ScaleWidth / 2, ScaleHeight / 2), a, Me.BackColor, i, 0.005
Next
End If
End If
End Sub
No comments have been posted about For those of you who have played NFL 2K2, it's the kick power meter. It is a circular meter that go. Why not be the first to post a comment about For those of you who have played NFL 2K2, it's the kick power meter. It is a circular meter that go.