Reply to thread

Message

<blockquote data-quote="St4nley" data-source="post: 211617" data-attributes="member: 31081">Ok so i'm making pong, i got basically all collision start from space bar but, when it collides even if the paddle isnt there it'll still collide and go back the other way,&nbsp;heres my code&nbsp;[CODE]Dim goodVel As IntegerDim goodvel1 As IntegerPrivate Sub Form_Load()&nbsp; &nbsp; &nbsp; &nbsp; goodVel = 50&nbsp; &nbsp; &nbsp; &nbsp; goodvel1 = 0End SubPrivate Sub Timer1_Timer()imgball.Left = imgball.Left - goodvel1&nbsp;If imgball.Left + imgball.Width &gt; imgPaddle.Left + 400 Then&nbsp; &nbsp; goodvel1 = goodvel1 * -1End If&nbsp;If imgball.Left &lt; imgPaddle.Height - 1000 Thengoodvel1 = goodVel * -1End If&nbsp;End Sub&nbsp;Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenimgPaddle.Top = YimgPaddle.Width = Form2.ScaleHeightEnd IfEnd SubPrivate Sub Form_keydown(keycode As Integer, Shift As Integer)&nbsp; &nbsp; If keycode = vbKeySpace Then&nbsp; &nbsp; &nbsp; &nbsp; goodvel1 = goodVel * -1&nbsp; &nbsp; &nbsp; &nbsp; imgball.Top = imgball.Top - goodVel&nbsp; &nbsp; End IfEnd Sub[/CODE]&nbsp;if you have vb6 and want to try this yourself then i can simply send you a paddle and a ball to implement this yourself.</blockquote>

[QUOTE="St4nley, post: 211617, member: 31081"] Ok so i'm making pong, i got basically all collision start from space bar but, when it collides even if the paddle isnt there it'll still collide and go back the other way, heres my code [CODE] Dim goodVel As Integer Dim goodvel1 As Integer Private Sub Form_Load() goodVel = 50 goodvel1 = 0 End Sub Private Sub Timer1_Timer() imgball.Left = imgball.Left - goodvel1 If imgball.Left + imgball.Width > imgPaddle.Left + 400 Then goodvel1 = goodvel1 * -1 End If If imgball.Left < imgPaddle.Height - 1000 Then goodvel1 = goodVel * -1 End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then imgPaddle.Top = Y imgPaddle.Width = Form2.ScaleHeight End If End Sub Private Sub Form_keydown(keycode As Integer, Shift As Integer) If keycode = vbKeySpace Then goodvel1 = goodVel * -1 imgball.Top = imgball.Top - goodVel End If End Sub [/CODE] if you have vb6 and want to try this yourself then i can simply send you a paddle and a ball to implement this yourself. [/QUOTE]

Verification

Reply to thread

Connect with us

Newest members