Atari Combat: Tank vb 2010 (11 / 18 steg)
Steg 11: Koden: objektmatris
Följande är kod för 17 pictureboxes... Detta kommer att fungera som våra block koden kommer att gå efter uttalande från privata sub
"Private Sub Tank_VS_Tank_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) handtag MyBase.Load"
För i = 1 till 17
b = nya PictureBox "lägger till nya picbox
b. Synliga = True ' gör blockera synliga
b. BackColor = Color.Khaki ' gör färgen på blocker khaki
Me.Controls.Add(b(i)) ' lägger till tank blockerare
Nästa
Med b.1 "storlek och plats block 1
. Höjd = 22
. Bredd = 100
. Vänster = 81
. Toppen = 138
Avsluta med
Med b(2) "storlek och plats block 2
. Höjd = 200
. Bredd = 22
. Vänster = 159
. Toppen = 159
Avsluta med
Med 3 "storlek och plats block 3
. Höjd = 200
. Bredd = 22
. Toppen = 350
. Vänster = 159
Avsluta med
Med b(4) ' storlek och plats block 4
. Höjd = 22
. Bredd = 100
. Vänster = 81
. Toppen = 550
Avsluta med
Med b.5 "storlek och plats block 5
. Höjd = 22
. Bredd = 100
. Vänster = 404
. Toppen = 0
Avsluta med
Med b(6) ' storlek och plats block 6
. Höjd = 200
. Bredd = 22
. Vänster = 443
. Toppen = 22
Avsluta med
Med b(7) ' storlek och plats block 7
. Höjd = 200
. Bredd = 23
. Vänster = 443
. Toppen = 484
Avsluta med
Med b(8) ' storlek och plats block 8
. Höjd = 22
. Bredd = 100
. Toppen = 680
. Vänster = 404
Avsluta med
Med b(9) ' storlek och plats block 9
. Höjd = 200
. Bredd = 22
. Vänster = 631
. Toppen = 253
Avsluta med
Med b(10) ' storlek och plats block 10
. Höjd = 22
. Bredd = 100
. Vänster = 802
. Toppen = 0
Avsluta med
Med b(11) ' storlek och plats block 11
. Höjd = 200
. Bredd = 22
. Vänster = 841
. Toppen = 22
Avsluta med
Med b(12) ' storlek och plats block 12
. Höjd = 200
. Bredd = 22
. Vänster = 841
. Toppen = 484
Avsluta med
Med b(13) ' storlek och plats block 13
. Höjd = 22
. Bredd = 100
. Vänster = 802
. Toppen = 680
Avsluta med
Med b(14) ' storlek och plats block 14
. Höjd = 22
. Bredd = 100
. Vänster = 1125
. Toppen = 137
Avsluta med
Med b(15) ' storlek och plats block 15
. Höjd = 200
. Bredd = 22
. Vänster = 1125
. Toppen = 159
Avsluta med
Med b(16) ' storlek och plats block 16
. Höjd = 200
. Bredd = 22
. Vänster = 1125
. Toppen = 350
Avsluta med
Med b(17) ' storlek och plats blockera 17
. Höjd = 22
. Bredd = 100
. Vänster = 1125
. Toppen = 550
Avsluta med
End Sub