Hallo allemaal,
ik ben nu al een tijdje bezig met het programmeren van een sidescroll game.
Het basis idee is dat je character rondvliegt (picturebox) en dat er op de grond enemies omhoog schieten en
je de kogels moet ontwijken etc.
Mijn vraag is nu hoe ik al de enemies samen laat schieten ik heb nu namelijk een code geschreven maar deze laat maar 1
enemy schieten.
Dit is de code van mijn eerste timer.
Dit is de code van tmrShootEnemy
En dit is de code van mijn enemy class:
Zoals je ziet in het oranje gearceerde gedeelte wordt daar de locatie bepaald waar de kogel vertrekt maar het is niet mogelijk om hier extra
locaties aan toe te voegen. Is het dus mogelijk om op één of andere manier alle pictureboxen (enemy) te laten schieten?
Ik hoop dat iemand me kan helpen, ik ben al lang op zoek naar een oplossing
ik ben nu al een tijdje bezig met het programmeren van een sidescroll game.
Het basis idee is dat je character rondvliegt (picturebox) en dat er op de grond enemies omhoog schieten en
je de kogels moet ontwijken etc.
Mijn vraag is nu hoe ik al de enemies samen laat schieten ik heb nu namelijk een code geschreven maar deze laat maar 1
enemy schieten.
Dit is de code van mijn eerste timer.
Code:
Private Sub tmrEnemy_Tick(sender As Object, e As EventArgs) Handles tmrCheckForPlayer.Tick
ReDim Preserve enemy(intcountenemy)
Dim enemyBullet1 As New Enemy
Controls.Add(enemyBullet1)
enemy(intcountenemy) = enemyBullet1
intcountenemy += 1
tmrShootEnemy.Enabled = True
End Sub
Code:
Private Sub tmrShootEnemy_Tick(sender As Object, e As EventArgs) Handles tmrShootEnemy.Tick
For x = 0 To enemy.Length - 1
enemy(x).Shoot()
Next
End Sub
Code:
Public Class Enemy
Inherits PictureBox
Public Sub New()
With Me
.Size = New Size(10, 10)
[COLOR="#FF8C00"].Location = Form1.pic1.Location[/COLOR]
.BackColor = Color.Black
End With
End Sub
Public Sub Shoot()
Me.Top -= 3
Me.Left -= 3
End Sub
End Class
locaties aan toe te voegen. Is het dus mogelijk om op één of andere manier alle pictureboxen (enemy) te laten schieten?
Ik hoop dat iemand me kan helpen, ik ben al lang op zoek naar een oplossing