Hulp nodig bij 2d side scroll game

Status
Niet open voor verdere reacties.

Sige

Nieuwe gebruiker
Lid geworden
8 dec 2014
Berichten
1
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.
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
Dit is de code van tmrShootEnemy
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
En dit is de code van mijn enemy class:
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
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 :D
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan