Bouncing

[SomethinCool]

Does anyone know how to make a picture (of a ball) bounce around the form until it passes the left side of the form or it hits the bumper like pong? I would also like it to reset itself to where it was after it goes off the screen. (there is only one bumper) I need code please...i'm a newbie to VB.

[eiSecure]

Pong is kinda tricky for a newbie to VB. Maybe you can try writing something a tiny bit easier, like Tic-Tac-Toe?

Or maybe minesweeper?

[SomethinCool]

actually, all i need is the code and i can do it. All i need is the bouncing ball code and then i can do the rest.

[Kaverin]

It's not very difficult to do that. It's just an incremental change of X,Y position, and checking for boundaries. This is out of something I did a long time ago, but it does the "bounce" when it strikes a wall.

'in a module
Public Type MoveData
   X As Long 'current X pos
   Y As Long 'current Y pos
   DeltaX As Integer 'number of units per change in X pos
   DeltaY As Integer 'number of units per change in Y pos
   XDir As Integer 'X direction, positive for right, negative for left
   YDir As Integer 'Y direction, positive for down, negative for up because of the VB convention
End Type
 
'in the gen dec section of the form, or public in a module if you want
Dim Ball As MoveData
 
'wherever you have the movement, like a timer or something
'this assumes you have two pictureboxes, picGameBoard and picBall, and picBall has no border
With Ball
   .X = .X + (.DeltaX * .XDir) 'do the X movement
   .Y = .Y + (.DeltaY * .YDir) 'do the Y movement
   'these statements change the direction of movement when the boundaries of
   'the gameboard are reached
   If .X >= (picGameBoard.ScaleWidth - picBall.Width) Then .XDir = -1
   If .Y >= (picGameBoard.ScaleHeight - picBall.Height) Then .YDir = -1
   If .X <= 0 Then .XDir = 1
   If .Y <= 0 Then .YDir = 1
End With

All you need to supply is whatever draws the things in.

[SomethinCool]

is there a way to make one with a randomize timer and make it go around the screen using that?