Computer Programming Concepts and Visual Basic David I. Schneider

376 Computer Programming Concepts and Visual Basic
Public Sub GoDown(plane As CPlane, ByVal FormHeight As Integer)
Dim j As Integer
imgBomb.Left = plane.X + 0.5 * plane.W
imgBomb.Top = plane.Y + plane.H
imgBomb.Visible = True
Do While imgBomb.Top < FormHeight
imgBomb.Top = imgBomb.Top + 5
RaiseEvent BombPositionChanged(imgBomb.Left, imgBomb.Top, _
imgBomb.Width, imgBomb.Height)
‘Pause
For j = 1 To 2000
Next j
Loop
imgBomb.Visible = False
End Sub
Public Sub Destroy()
imgBomb.Visible = False
End Sub
Private Sub Class_Terminate()
Set imgBomb = Nothing
End Sub
‘Form code
Private bomber As CPlane
Private plane As CPlane
Private WithEvents bomb As CBomb
Private Sub Form_Load()
Set bomber = New CPlane
Set plane = New CPlane
Set bomb = New CBomb
bomber.imagePlane = imgBomberPic
plane.imagePlane = imgPlanePic
bomb.imageBomb = imgBombPic
End Sub
Private Sub bomb_BombPositionChanged(X As Integer, Y As Integer, H As Integer,
W As Integer)
‘Check to see if Plane is hit, i.e. the bomb is inside plane or vice
versa.
If plane.Present() Then
If (plane.X = X) And _
(plane.Y = Y) Or _
(X = plane.X) And _
(Y = plane.Y) Then
plane.Destroy
bomb.Destroy
End If
End If
End Sub
Private Sub cmdMove_Click()
bomber.Fly cboDirection.Text, frmPlanes.Height, frmPlanes.Width