Ok... I am making a frogger game and I have 3 Timers... 2 of them have 1 cars and 1 timer with 2 cars. Each time the timer goes through its cycle it declares the position of the car. Then Calls a function. The timer with the two cars Calls it twice, once for each car.
The problem I am having is that the timer with the 2 cars is not detecting a crash.
Here is how the Sub is declared:
Sub Collision(ByVal Top As String, ByVal Left As String, ByVal Bottom As String, ByVal Right As String)
Dim FrogRight As Integer
Dim FrogBottom As Integer
Dim FrogTop As Integer
Dim FrogLeft As Integer
FrogTop = imgfrogU.Top
FrogLeft = imgfrogU.Left
FrogRight = imgfrogU.Left + imgfrogU.Width
FrogBottom = imgfrogU.Top + imgfrogU.Height
If FrogTop > Top And FrogLeft > Left And FrogBottom < Bottom And FrogRight < Right Then
imgfrogU.Top = 6120
imgfrogD.Top = 6120
imgfrogR.Top = 6120
imgfrogL.Top = 6120
imgfrogU.Left = 4440
imgfrogD.Left = 4440
imgfrogR.Left = 4440
imgfrogL.Left = 4440
End If
End SubAlso here are the codes for the 3 timers:
Private Sub tmrCar1_Timer()
Dim Car1Top As String
Dim Car1Left As String
Dim Car1Height As String
Dim Car1Width As String
imgcar1.Left = imgcar1.Left + 50
If imgcar1.Left > 9500 Then
imgcar1.Left = -100
End If
Car1Top = imgcar1.Top
Car1Left = imgcar1.Left
Car1Height = imgcar1.Height + imgcar1.Top
Car1Width = imgcar1.Width + imgcar1.Left
Call Collision(Car1Top, Car1Left, Car1Height, Car1Width)
End Sub
Private Sub tmrCar2_Timer()
Dim Car2Top As String
Dim Car2Left As String
Dim Car2Height As String
Dim Car2Width As String
imgcar2.Left = imgcar2.Left + 100
If imgcar2.Left > 9500 Then
imgcar2.Left = -100
End If
Car2Top = imgcar2.Top
Car2Left = imgcar2.Left
Car2Height = imgcar2.Height + imgcar2.Top
Car2Width = imgcar2.Width + imgcar2.Left
Call Collision(Car2Top, Car2Left, Car2Height, Car2Width)
End Sub
Private Sub tmrCar3_Timer()
Dim Car3Top As String
Dim Car3Left As String
Dim Car3Height As String
Dim Car3Width As String
Dim Car4Top As String
Dim Car4Left As String
Dim Car4Height As String
Dim Car4Width As String
imgcar3.Left = imgcar3.Left - 75
imgcar4.Left = imgcar4.Left - 75
If imgcar3.Left < -15000 Then
imgcar3.Left = 9500
ElseIf imgcar4.Left < -2000 Then
imgcar4.Left = 10000
End If
Car3Top = imgcar3.Top
Car3Left = imgcar3.Left
Car3Height = imgcar3.Height + imgcar3.Top
Car3Width = imgcar3.Width + imgcar3.Left
Call Collision(Car3Top, Car3Left, Car3Height, Car3Width)
Car4Top = imgcar4.Top
Car4Left = imgcar4.Left
Car4Height = imgcar4.Height + imgcar4.Top
Car4Width = imgcar4.Width + imgcar4.Left
Call Collision(Car4Top, Car4Left, Car4Height, Car4Width)
End Sub