Paso 17: El código: suberteens
en mi código he tenido cosas como: t(), t2() y reset() son mis subs t() detecta si la munición roja choca con las fronteras de la forma o el tanque azul; T2() detecta si la munición azul golpea el tanque rojo o la forma; y reset() devuelve el campo de juego
Aquí está el código para t():
Private Sub t()
Si rambo. Bounds.IntersectsWith (tank2. Límites) entonces tank2. Imagen = extank. Imagen
Si rambo. Bounds.IntersectsWith (tank2. Límites) entonces tank1. Izquierda = 12
Si rambo. Bounds.IntersectsWith (tank2. Límites) entonces tank1. Top = 336
Si rambo. Bounds.IntersectsWith (tank2. Límites) entonces tank2. Izquierda = 1233
Si rambo. Bounds.IntersectsWith (tank2. Límites) entonces tank2. Top = 336
End Sub
el código de t2():
Private Sub t2()
Si bami. Bounds.IntersectsWith (tank1. Límites) entonces tank1. Imagen = extank. Imagen
Si bami. Bounds.IntersectsWith (tank1. Límites) entonces tank2. Izquierda = 1233
Si bami. Bounds.IntersectsWith (tank1. Límites) entonces tank2. Top = 336
Si bami. Bounds.IntersectsWith (tank1. Límites) entonces tank1. Izquierda = 12
Si bami. Bounds.IntersectsWith (tank1. Límites) entonces tank1. Top = 336
End Sub
el código de reset()
Private Sub reset()
Tank1. Izquierda = 12
Tank1. Top = 336
tank2. Izquierda = 1233
tank2. Top = 336
BT = False
RT = False
End Sub