[RESOLVED] Pong Game

[Redangel]

i am trying to get my program (Pong) to reconize the bat on the left side of my form the ball will bounce off the bat but it also bounces of the bat when it misses if ya know what i mean??

Private Sub tmrMove_Timer()
    If Counter1 >= 4 Then
        MsgBox "Game Over...", vbInformation = vbOKOnly, "Pong"
        Call Form_Load
    End If
'Give focus to the scrollbar
    vsbBatMove.SetFocus
    imgMain.Move imgMain.Left + Xinc, imgMain.Top + Yinc
'Right
    If ScaleWidth <= imgMain.Left + imgMain.Width Then _
        Xinc = Xinc * -1
'Bottom
    If ScaleHeight <= imgMain.Top + imgMain.Height Then _
        Yinc = Yinc * -1
'Top
    If ScaleTop >= imgMain.Top Then _
        Yinc = Yinc * -1
'Bat   'THIS IS WHERE I AM HAVING TROUBLE'
    If imgMain.Left <= shpLeftBat.Left Then _
        Xinc = Xinc * -1
'Miss Bat
    If ScaleLeft >= imgMain.Left + imgMain.Width Then
        imgMain.Move 4800, 2400, 1095, 975
        Counter1 = Counter1 + 1
    End If
End Sub

Please point me in the right direction
Thanks in advance RedAngel

[Hack]

Moved to Games and Graphics.

[Jacob Roman]

Timers are not accurate, and that could be the main reason why it's missing on and off. You have to use managed loops, such as a While...Wend loop or a Do loop. Also I fixed your code a bit:

Private Sub Form_Load()
 
    'Set the ScaleMode to Pixels
    ScaleMode = 3
 
End Sub
 
Private Sub tmrMove_Timer()
 
    If Counter1 >= 4 Then
        MsgBox "Game Over...", vbInformation = vbOKOnly, "Pong"
        Call Form_Load
    End If
 
'Give focus to the scrollbar
    vsbBatMove.SetFocus
    imgMain.Left = imgMain.Left  + Xinc
    imgMain.Top = imgMain.Top + Yinc
'Right
    If ScaleWidth <= (imgMain.Left + imgMain.Width) Then _
        Xinc = Xinc * -1
'Bottom
    If ScaleHeight <= (imgMain.Top + imgMain.Height) Then _
        Yinc = Yinc * -1
'Top
    If ScaleTop >= imgMain.Top Then _
        Yinc = Yinc * -1
'Bat   'THIS IS WHERE I AM HAVING TROUBLE'
    If imgMain.Left >= (shpLeftBat.Left) And _
       imgMain.Left <= (shpLeftBat.Left + shpLeftBat.Width) And _
       imgMain.Top <= (shpLeftBat.Top + shpLeftBat.Height) And _
       imgMain.Top >= (shpLeftBat.Top) Then Xinc = Xinc * -1
 
Else
        imgMain.Move 480, 240, 109, 97
        Counter1 = Counter1 + 1
End If
End Sub

[Redangel]

Nice one Sorted Now Thanks for your time

[Jacob Roman]

Also some tips you should know. Never use the Move method for objects, and never use a scrollbar to move the paddle. Use keyboard events instead. Here's the best way to do it in pure VB:

http://www.vbforums.com/attachment.p...chmentid=36571

But I normally use DirectInput myself since it's way better.