Atari Combat: Tank vb 2010 (17 / 18 steg)
Steg 17: Koden: suberteens
i min kod jag hade saker som: t(), t2() och reset() är de min subs t() upptäcker om röd ammunition träffar form gränser eller blå tanken; T2() upptäcker om blå ammunition träffar röda tanken eller formuläret; reset() återställer spelplanen
här är koden för t():
Private Sub t()
Om rambo. Bounds.IntersectsWith (tank2. Bounds) sedan tank2. Bild = extank. Bild
Om rambo. Bounds.IntersectsWith (tank2. Bounds) sedan tank1. Vänster = 12
Om rambo. Bounds.IntersectsWith (tank2. Bounds) sedan tank1. Toppen = 336
Om rambo. Bounds.IntersectsWith (tank2. Bounds) sedan tank2. Vänster = 1233
Om rambo. Bounds.IntersectsWith (tank2. Bounds) sedan tank2. Toppen = 336
End Sub
kod för t2():
Private Sub t2()
Om bami. Bounds.IntersectsWith (tank1. Bounds) sedan tank1. Bild = extank. Bild
Om bami. Bounds.IntersectsWith (tank1. Bounds) sedan tank2. Vänster = 1233
Om bami. Bounds.IntersectsWith (tank1. Bounds) sedan tank2. Toppen = 336
Om bami. Bounds.IntersectsWith (tank1. Bounds) sedan tank1. Vänster = 12
Om bami. Bounds.IntersectsWith (tank1. Bounds) sedan tank1. Toppen = 336
End Sub
koden för reset()
Private Sub reset()
tank1. Vänster = 12
tank1. Toppen = 336
tank2. Vänster = 1233
tank2. Toppen = 336
BT = False
RT = False
End Sub