Atari Combat : Réservoir vb 2010 (14 / 18 étapes)

Etape 14 : Le code : balle bleu

Sélectionnez temporisateurs 5 à 8 et appuyez sur entrée

Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick ' tire des munitions bleue à gauche

baudier. Gauche = 10

Si Baumann. Bounds.IntersectsWith (tank1. Bounds) puis Timer5.Enabled = False

T2()

Si Baumann. Gauche < Me.Left Then Timer5.Enabled = False

Pour rir = 1 à 17

Si Baumann. Bounds.IntersectsWith(b(rir). Bounds) puis Timer5.Enabled = False

Prochaine

End Sub

Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick ' tire des munitions bleue à droite

baudier. Gauche = 10

Si Baumann. Bounds.IntersectsWith (tank1. Bounds) puis Timer6.Enabled = False

T2()

Si Baumann. Droit > Me.Right Then Timer6.Enabled = False

Pour riri = 1 à 17

Si Baumann. Bounds.IntersectsWith(b(riri). Bounds) puis Timer6.Enabled = False

Prochaine

End Sub

Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick ' tire des munitions bleue vers le bas

baudier. Haut de la page += 10

Si Baumann. Bounds.IntersectsWith (tank1. Bounds) puis Timer7.Enabled = False ' arrête la minuterie

T2()

Si Baumann. Bas > Me.Bottom puis Timer7.Enabled = False ' si Baumann est > munitions bas form2

Pour REACTEUR = 1 à 17

Si Baumann. Bounds.IntersectsWith(b(ririr). Bounds) puis Timer7.Enabled = False ' détecte si bamo frappe des blocs

Prochaine

End Sub

Private Sub Timer8_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer8.Tick ' allume bleue munitions

baudier. Top-= 10

Si Baumann. Bounds.IntersectsWith (tank1. Bounds) puis Timer8.Enabled = False ' arrête la minuterie

T2()

Si Baumann. Haut < Me.Top puis Timer8.Enabled = False ' si Baumann est < form2 munitions Albums

Par ririri = 1 à 17

Si Baumann. Bounds.IntersectsWith(b(ririri). Bounds) puis Timer8.Enabled = False ' détecte si bamo frappe des blocs

Prochaine

End Sub