Reply to thread

Message

<blockquote data-quote="St4nley" data-source="post: 211430" data-attributes="member: 31081">TO MAKE A LONG STORY SHORT, FINAL PROJECT DUE MONDAY, AND I CHOSE THE WRONG GAMEso now i am making billardsand right now, im fucking stuck and i feel like a noob because i am&nbsp;how do i make a shape that is a ball stay remaining in one spot untill it is hit (billiards)&nbsp;[CODE]Private Sub Timer1_Timer()imgball.Top = imgball.Top - goodVelshpBall.Top = shpBall.Top - BallHVel&nbsp;'IF PLAYER BALL HITS BOTTOMIf imgball.Top + imgball.Height &gt; Form2.ScaleHeight ThengoodVel = goodVel * -1End If&nbsp;'IF GAMEBALL HITS TOPIf imgball.Top &lt; 0 Then&nbsp; &nbsp; goodVel = goodVel * -1End If&nbsp;'IF GAME BALL HITS BOTTOMIf shpBall.Top + shpBall.Height &gt; Form2.ScaleHeight ThenBallHVel = BallHVel * -1End If&nbsp;'IF GAME BALL HITS TOPIf shpBall.Top &lt; 0 Then&nbsp; &nbsp; BallHVel = BallHVel * -1End If&nbsp;'///////////////IF THE WHITE BALL HITS THE GAME BALLS\\\\\\\\\\\\\\\\\\\\\\If imgball.Top &lt; shpBall.Height + shpBall.Top Then&nbsp; &nbsp; goodVel = goodVel * -1&nbsp; &nbsp; BallHVel = BallHVel * -1End If&nbsp;End Sub[/CODE]</blockquote>

[QUOTE="St4nley, post: 211430, member: 31081"] TO MAKE A LONG STORY SHORT, FINAL PROJECT DUE MONDAY, AND I CHOSE THE WRONG GAME so now i am making billards and right now, im fucking stuck and i feel like a noob because i am how do i make a shape that is a ball stay remaining in one spot untill it is hit (billiards) [CODE]Private Sub Timer1_Timer() imgball.Top = imgball.Top - goodVel shpBall.Top = shpBall.Top - BallHVel 'IF PLAYER BALL HITS BOTTOM If imgball.Top + imgball.Height > Form2.ScaleHeight Then goodVel = goodVel * -1 End If 'IF GAMEBALL HITS TOP If imgball.Top < 0 Then goodVel = goodVel * -1 End If 'IF GAME BALL HITS BOTTOM If shpBall.Top + shpBall.Height > Form2.ScaleHeight Then BallHVel = BallHVel * -1 End If 'IF GAME BALL HITS TOP If shpBall.Top < 0 Then BallHVel = BallHVel * -1 End If '///////////////IF THE WHITE BALL HITS THE GAME BALLS\\\\\\\\\\\\\\\\\\\\\\ If imgball.Top < shpBall.Height + shpBall.Top Then goodVel = goodVel * -1 BallHVel = BallHVel * -1 End If End Sub [/CODE] [/QUOTE]

Verification

Reply to thread

Connect with us

Newest members