Visual Basic Programming Code Examples
Visual Basic > Graphics Games Programming Code Examples
Bouncing ball
Bouncing ball
'make a new project
'add a fom: name = frmBouncingBall
'add a picturbox: name = picBall
'add the code below
'press F5
Public blnReady As Boolean
Public Motion
Dim r
Dim G
Dim B
Private sub Form_Click()
blnReady = True
End Sub
Private sub Form_Load()
Me.Show
Motion = Int(4 * Rnd + 1)
blnReady = False
Do While Not blnReady
Call BouncingBall
EvenWachten
DoEvents
Loop
End Sub
Public sub BouncingBall()
r = 255 * Rnd
G = 255 * Rnd
B = 255 * Rnd
With frmBouncingBall
Select case Motion
case 1
' move the graphic left and up by 20 twips using the move method.
.picBall.Move .picBall.Left - 20, .picBall.Top - 20
' If the graphic reaches the left edge of the form, move it to the right and up.
If .picBall.Left <= 0 Then
Motion = 2
.picBall.FillColor = RGB(r, G, B)
' If the graphic reaches the top edge of the form, move it to the left and down.
ElseIf .picBall.Top <= 0 Then
Motion = 4
.picBall.FillColor = RGB(r, G, B)
end If
case 2
' move the graphic right and up by 20 twips.
.picBall.Move .picBall.Left + 20, .picBall.Top - 20
' If the graphic reaches the right edge of the form, move it to the left and up.
' Routine determines the right edge of the form by subtracting the graphic
' width from the form width.
If .picBall.Left >= (.Width - .picBall.Width) Then
Motion = 1
.picBall.FillColor = RGB(r, G, B)
' If the graphic reaches the top edge of the form, move it to the right and down.
ElseIf .picBall.Top <= 0 Then
Motion = 3
.picBall.FillColor = RGB(r, G, B)
end If
case 3
' move the graphic right and down by 20 twips.
.picBall.Move .picBall.Left + 20, .picBall.Top + 20
' If the graphic reaches the right edge of the form, move it to the left and down.
If .picBall.Left >= (.Width - .picBall.Width) Then
Motion = 4
.picBall.FillColor = RGB(r, G, B)
' If the graphic reaches the bottom edge of the form, move it to the right and up.
' Routine determines the bottom of the form by subtracting
' the graphic height from the form height less 680 twips for the height
' of title bar and menu bar.
ElseIf .picBall.Top >= (.Height - .picBall.Height) - 80 Then
Motion = 2
.picBall.FillColor = RGB(r, G, B)
end If
case 4
' move the graphic left and down by 20 twips.
.picBall.Move .picBall.Left - 20, .picBall.Top + 20
' If the graphic reaches the left edge of the form, move it to the right and down.
If .picBall.Left <= 0 Then
Motion = 3
.picBall.FillColor = RGB(r, G, B)
' If the graphic reaches the bottom edge of the form, move it to the left and up.
ElseIf .picBall.Top >= (.Height - .picBall.Height) - 80 Then
Motion = 1
.picBall.FillColor = RGB(r, G, B)
end If
end Select
end With
End Sub
Public sub EvenWachten()
dim Start
dim Check
start = Timer
Do Until check >= start + 0.005
check = Timer
Loop
End Sub
Return
