3 geluidsporen

[ciske de rat]

ik ben met een spelletje bezig nu wil ik daar 3 geluid sporen in zetten

1 vliegtuig dit moet gewoon door gaan = AlienShip.png
2 af vuren van de kogel = kogel.PNG
3 ontploffing van geraakte protiel = AlienShip.png
ik weet niet of dit in de code bij de de plaatjes of anders moet

Public Class cGame

    Private WithEvents MainTimer As Timer
    Private DrawPic As PictureBox
    Public Ship As New cShip(imShip)
    Public Vijanden As New cVijanden

    Public Sub New(ByRef aPictureBox As PictureBox)
        DrawPic = aPictureBox
        DrawPic.Image = New Bitmap(DrawPic.Width, DrawPic.Height)

        Ship.Y = DrawPic.Height - Ship.Image.Height
        Ship.X = CInt((DrawPic.Width / 2) - (Ship.Image.Width / 2))

        MainTimer = New Timer
        MainTimer.Interval = 1
        MainTimer.Enabled = True
    End Sub

    Public Sub DrawGame()
        Dim g As Graphics
        g = Graphics.FromImage(DrawPic.Image)
        g.Clear(Color.Black)

        g.DrawImage(Ship.Image, Ship.X, Ship.Y)

        Dim i As Integer
        For i = 0 To Ship.Kogels.Count
            If Ship.Kogels.Kogel(i).Showing Then
                g.DrawImage(Ship.Kogels.Kogel(i).Image, _
                Ship.Kogels.Kogel(i).X, _
                Ship.Kogels.Kogel(i).Y)
            End If
        Next

        For i = 0 To Vijanden.Count
            If Vijanden.Vijand(i).Showing Then
                g.DrawImage(Vijanden.Vijand(i).Image, _
                Vijanden.Vijand(i).X, _
                Vijanden.Vijand(i).Y)
            End If
        Next

        DrawPic.Refresh()
    End Sub

    Public Sub BerekenKogels()
        Dim i As Integer
        For i = 0 To Ship.Kogels.Count
            If Ship.Kogels.Kogel(i).Showing Then
                Ship.Kogels.Kogel(i).Y -= 10
                If Ship.Kogels.Kogel(i).Y < (Ship.Kogels.Kogel(i).Image.Height * -1) Then
                    Ship.Kogels.Kogel(i).Showing = False
                End If

                Dim Vijand As cVijand
                Dim kgl As cKogel = Ship.Kogels.Kogel(i)
                Dim p As Integer
                For p = 0 To Vijanden.Count
                    Vijand = Vijanden.Vijand(p)
                    If Vijand.Showing = True Then
                        If (kgl.X + CInt(kgl.Image.Width / 2)) > Vijand.X And (kgl.X + CInt(kgl.Image.Width / 2)) < Vijand.X + Vijand.Image.Width Then
                            If (kgl.Y + CInt(kgl.Image.Height / 2)) > Vijand.Y And (kgl.Y + CInt(kgl.Image.Height / 2)) < Vijand.Y + Vijand.Image.Height Then
                                Vijand.Showing = False
                            End If
                        End If
                    End If
                Next
            End If
        Next
    End Sub

    Public Sub BerekenVijanden()
        Dim i As Integer

        Randomize()
        If CInt(Rnd() * 100) = 50 Then Vijanden.NewVijand(CInt(Rnd() * (DrawPic.Width - imAlienShip.Width)), (imAlienShip.Height * -1))

        For i = 0 To Vijanden.Count
            If Vijanden.Vijand(i).Showing Then
                Vijanden.Vijand(i).Y += 3
                If Vijanden.Vijand(i).Y > DrawPic.Height Then
                    Vijanden.Vijand(i).Showing = False
                End If
            End If
        Next
    End Sub

    Private Sub MainTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MainTimer.Tick
        DrawGame()
        BerekenKogels()
        BerekenVijanden()
    End Sub

End Class


Public Module Constants
    Public imAlienShip As Bitmap = New Bitmap(Application.StartupPath & "\AlienShip.png")
    Public imKogel As Bitmap = New Bitmap(Application.StartupPath & "\kogel.PNG")
    Public imShip As Bitmap = New Bitmap(Application.StartupPath & "\Ship.png")
End Module