Unexplainable lag?

[Verd0uX]

Hey guys, im hoping one of u can help me out.
ive made a very very basic pong game and the coding looks perfect to me.

but when it's played, both from the form and when compiled. the paddle (pad) has a tendancy to freeze up and then reappear where it was meant to be moved to. ill put the coding below. im not sure if i will be able to get back to this site but ill try. if not would somebody be so kind as to email me their thoughts? its [Email removed by Mod for members protection from spam]. thanks very much

Dim X As Integer, Y As Integer, score As Integer, z As Integer

Const numcells = 96
Private Sub Form_mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single)
pad.Left = X - pad.Width / 2
End Sub
Private Sub Form_Load()
ball.Left = 2500
ball.Top = 1300
X = -50
Y = -50
End Sub



Private Sub Timer1_Timer()


ball.Move ball.Left + X, ball.Top + Y
If ball.Top <= 0 Then
    Y = Y * -1
End If

If ball.Left <= 0 Then
    X = X * -1
End If

If ball.Left + ball.Width >= Me.ScaleWidth Then
    X = X * -1
End If

If ball.Top + ball.Height >= pad.Top Then
    If (ball.Left + ball.Width < pad.Left) Or (ball.Left > pad.Left + pad.Width) Then
        
reset.Visible = True
Timer1.Enabled = False
Label1.Caption = ""
Else
Y = Y * -1.05
X = X * 1.05
score = score + 1


Randomize
If score >= 0 And score <= 9 Then
For z = 0 To numcells - 1
Shape1(z).BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next z
End If


scorecard.Caption = "Score: " & score
    If (ball.Left + ball.Width / 2) < (pad.Left + pad.Width / 2) Then
            If X > 0 Then
                X = X * -1
            End If
        Else
            If X < 0 Then
                X = X * -1
            End If
        End If
    End If
End If

If score = 30 Then
winreset.Visible = True
Timer1.Enabled = False
End If

End Sub



Private Sub Timer2_Timer()
If score = 0 Then
ball.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label1.Caption = ""
End If

If score > 0 And score <= 9 Then
ball.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label1.Caption = "You are Tripping Out!"
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End If

If score >= 10 And score <= 19 Then
ball.BackColor = vbBlack
ball.BorderColor = &HC0C0C0
ball.BorderStyle = 1
For z = 0 To numcells - 1
Shape1(z).BackColor = vbBlack
Next z
Label1.Caption = "Welcome to the twilight zone"
Label1.ForeColor = &H808080
End If

If score >= 20 And score <= 30 Then
ball.BackColor = vbWhite
ball.BorderColor = &HC0C0C0
ball.BorderStyle = 1
For z = 0 To numcells - 1
Shape1(z).BackColor = vbWhite
Next z
Label1.Caption = "   Oh no! A Blizzard!"
Label1.ForeColor = &HC0C0C0
End If







End Sub
                          
Private Sub winreset_Click()
ball.Left = 2500
ball.Top = 1300
X = -50
Y = -50
winreset.Visible = False
score = 0
scorecard.Caption = "Score: " & score
Label1.Caption = ""
Timer1.Enabled = True

For z = 0 To numcells - 1
Shape1(z).BackColor = vbWhite
Next z

End Sub
Private Sub Reset_Click()
ball.Left = 2500
ball.Top = 1300
X = -50
Y = -50
reset.Visible = False
score = 0
scorecard.Caption = "Score: " & score

Timer1.Enabled = True

For z = 0 To numcells - 1
Shape1(z).BackColor = vbWhite
Next z

End Sub

[Paul M]

You're code is a little hard to read and not indented properly and you seem to have included functions that are not really necessary or relevant to do with the paddle. If you could either attach the files/project or reedit you're post that would be better.

[Verd0uX]

okay sorry, im not really much for indenting unless i have to. i'll insert the mouse movement bit here and attatch the form. thanks for the reply

Private Sub Form_mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single)
pad.Left = X - pad.Width / 2  End Sub