Atari Combat: Tank vb 2010 (15 / 18 steg)
Steg 15: Koden: röd tank rörelsen
för att flytta den röda tank jag använder 4 timers varje för antingen upp ner vänster eller höger i formulär2 design Välj timers 9-12 och tryck Ange Lägg till följande kod till varje:
Private Sub Timer9_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar Timer9.Tick ' upp
tank1. Topp-= 5
tank1. Bild = rt1. Bild
End Sub
Private Sub Timer10_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar Timer10.Tick ' ner
tank1. Topp + = 5
tank1. Bild = rt3. Bild
End Sub
Private Sub Timer11_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar Timer11.Tick "vänster
tank1. Vänstra += 5
tank1. Bild = rt4. Bild
End Sub
Private Sub Timer12_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar Timer12.Tick "rätt
tank1. Vänstra-= 5
tank1. Bild = rt2. Bild
End Sub