Simple Collision Detection Demo

Category:

Multimedia/Games

Type:

Snippets

Difficulty:

Beginning

Author:

Justin Hart

Version Compatibility: Visual Basic 6, Visual Basic 5

More information:

This code will make the computer process any code when the two images overlap; much easier than sprites. You will need a normal VB project with two image controls (image1 and image2). Any comments mail me at justinhart2001@yahoo.com

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Dim pic1Left As Integer, pic1Top As Integer, pic1Right As Integer
Dim pic1Bottom As Integer'Declare parameter variables for image 1
Dim pic2Left As Integer, pic2Top As Integer
Dim pic2Right As Integer, pic2Bottom As Integer 'Declare parameter variables for image 2
Dim topBetween As Boolean, bottomBetween As Boolean
Dim leftBetween As Boolean, rightBetween As Boolean
Select Case KeyCode
    Case vbKeyDown
        Image1.Top = Image1.Top + 50
    Case vbKeyUp
        Image1.Top = Image1.Top - 50
    Case vbKeyLeft
        Image1.Left = Image1.Left - 50
    Case vbKeyRight
        Image1.Left = Image1.Left + 50
End Select

'Assign image1 variables
pic1Left = Image1.Left
pic1Right = Image1.Left + Image1.Width
pic1Top = Image1.Top
pic1Bottom = Image1.Top + Image1.Height

'Assign image2 variables
pic2Left = Image2.Left
pic2Right = Image2.Left + Image2.Width
pic2Top = Image2.Top
pic2Bottom = Image2.Top + Image2.Height

'Crash code
If pic1Left >= pic2Left And pic1Left <= pic2Right Then
    leftBetween = True
End If
If pic1Right >= pic2Left And pic1Right <= pic2Right Then
    rightBetween = True
End If
If pic1Top >= pic2Top And pic1Top <= pic2Bottom Then
    topBetween = True
End If
If pic1Bottom >= pic2Top And pic1Bottom <= pic2Bottom Then
    bottomBetween = True
End If
If leftBetween = True Or rightBetween = True Then
    If topBetween = True Or bottomBetween = True Then
        Beep
    End If
End If
End Sub