- Home
·
- Games
·
- For those of you who have played NFL 2K2, it's the kick power meter. It is a circular meter that go
For those of you who have played NFL 2K2, it's the kick power meter. It is a circular meter that go
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
Rate For those of you who have played NFL 2K2, it's the kick power meter. It is a circular meter that go
(1(1 Vote))
'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
For those of you who have played NFL 2K2, it's the kick power meter. It is a circular meter that go Comments
No comments yet — be the first to post one!
Post a Comment