Public Class Form1

​

#Region "Dim"

    Dim Left_right_mover = 5

​

    Dim direction As Integer

​

    Dim invader(6) As PictureBox

​

    Dim invaderlife(30) As Boolean

​

    Dim leftmove As Integer

​

    Dim PicInvaderlife1 As Boolean = True

​

    Dim PicInvaderlife2 As Boolean = True

​

    Dim PicInvaderlife3 As Boolean = True

​

    Dim PicInvaderlife4 As Boolean = True

​

    Dim PicInvaderlife5 As Boolean = True

​

    Dim PicInvaderlife6 As Boolean = True

​

    Dim invaderleft As Integer = 5

​

    Dim border(6) As PictureBox

​

    Dim invadercount As String = 6

​

    Dim Paused As Boolean

​

#End Region

#Region "Keydown"

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

        spaceship_timer.Start()

        Alien_timer.Start()

        Select Case e.KeyCode

            Case Keys.Right

                Left_right_mover = +5 'x coordinate

                direction = 1 'The direction the image is going is leftx

            Case Keys.Left

                Left_right_mover = -5

                direction = 2

            Case Keys.ShiftKey

                Picbullet.Location = New System.Drawing.Point(PicSpaceship.Left + (PicSpaceship.Width / 2), PicSpaceship.Top)

                bullet_timer.Start()

        End Select

    End Sub

​

#End Region

#Region "Load statement"

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        My.Computer.Audio.Play("H:\Unit 12 -Software Development (Games)\Space invaders game tutorial\Teminite & MDK - Space Invaders.wav", AudioPlayMode.BackgroundLoop)

        InstructionsPNL.Visible = False

        Splashscreen_timer.Start()

        border(1) = PicBorder1

        border(2) = PicBorder2

        border(3) = PicBorder3

        border(4) = PicBorder4

        border(5) = PicBorder5

        border(6) = PicBorder6

        invader(1) = PicAlien1

        invader(2) = PicAlien2

        invader(3) = PicAlien3

        invader(4) = PicAlien4

        invader(5) = PicAlien5

        invader(6) = PicAlien6

        For j = 1 To 6

            invaderlife(j) = True

        Next

    End Sub

​

#End Region

#Region "Spaceship&bullet Intersects with border"

    Private Sub spaceship_timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles spaceship_timer.Tick

        PicSpaceship.Left += Left_right_mover

        For Moves = 1 To 2

            If PicSpaceship.Bounds.IntersectsWith(border(Moves).Bounds) Then

                Select Case direction

                    Case 1, 2

                        PicSpaceship.Left -= Left_right_mover

                End Select

            End If

        Next

​

        If Picbullet.Bounds.IntersectsWith(border(3).Bounds) Then

            Picbullet.Top = 500

            bullet_timer.Stop()

        End If

​

        If Picbullet.Bounds.IntersectsWith(border(4).Bounds) Then

            Picbullet.Top = 500

            bullet_timer.Stop()

        End If

​

        If Picbullet.Bounds.IntersectsWith(border(5).Bounds) Then

            Picbullet.Top = 500

            bullet_timer.Stop()

        End If

​

        If Picbullet.Bounds.IntersectsWith(border(6).Bounds) Then

            Picbullet.Top = 500

            bullet_timer.Stop()

        End If

    End Sub

​

#End Region

#Region "Shoot down the alien"

    Private Sub bullet_timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bullet_timer.Tick

        Picbullet.Top -= 5

        If Picbullet.Top <= 5 Then

            bullet_timer.Stop()

            Picbullet.Top = 500

        End If

​

        If Picbullet.Bounds.IntersectsWith(PicAlien1.Bounds) Then

            PicAlien1.Location = New System.Drawing.Point(12, 500)

            PicInvaderlife1 = False

            Picbullet.Top = 500

            bullet_timer.Stop()

            Convert.ToInt16(invadercount)

            invadercount = invadercount - 1

            Convert.ToString(invadercount)

            invadercountLBL.Text = "invaderleft: " + invadercount

        End If

​

        If Picbullet.Bounds.IntersectsWith(PicAlien2.Bounds) Then

            PicAlien2.Location = New System.Drawing.Point(12, 500)

            PicInvaderlife2 = False

            Picbullet.Top = 500

            bullet_timer.Stop()

            Convert.ToInt16(invadercount)

            invadercount = invadercount - 1

            Convert.ToString(invadercount)

            invadercountLBL.Text = "invaderleft: " + invadercount

        End If

​

        If Picbullet.Bounds.IntersectsWith(PicAlien3.Bounds) Then

            PicAlien3.Location = New System.Drawing.Point(12, 500)

            PicInvaderlife3 = False

            Picbullet.Top = 500

            bullet_timer.Stop()

            Convert.ToInt16(invadercount)

            invadercount = invadercount - 1

            Convert.ToString(invadercount)

            invadercountLBL.Text = "invaderleft: " + invadercount

        End If

​

        If Picbullet.Bounds.IntersectsWith(PicAlien4.Bounds) Then

            PicAlien4.Location = New System.Drawing.Point(12, 500)

            PicInvaderlife4 = False

            Picbullet.Top = 500

            bullet_timer.Stop()

            Convert.ToInt16(invadercount)

            invadercount = invadercount - 1

            Convert.ToString(invadercount)

            invadercountLBL.Text = "invaderleft: " + invadercount

        End If

​

        If Picbullet.Bounds.IntersectsWith(PicAlien5.Bounds) Then

            PicAlien5.Location = New System.Drawing.Point(12, 500)

            PicInvaderlife5 = False

            Picbullet.Top = 500

            bullet_timer.Stop()

            Convert.ToInt16(invadercount)

            invadercount = invadercount - 1

            Convert.ToString(invadercount)

            invadercountLBL.Text = "invaderleft: " + invadercount

        End If

​

        If Picbullet.Bounds.IntersectsWith(PicAlien6.Bounds) Then

            PicAlien6.Location = New System.Drawing.Point(12, 500)

            PicInvaderlife6 = False

            Picbullet.Top = 500

            bullet_timer.Stop()

            Convert.ToInt16(invadercount)

            invadercount = invadercount - 1

            Convert.ToString(invadercount)

            invadercountLBL.Text = "invaderleft: " + invadercount

        End If

​

        If invadercount = 0 Then

            spaceship_timer.Stop()

            MsgBox("You won!")

            Me.Close()

        End If

    'Thank You William for the help!! I'm thankful!!

    End Sub

​

#End Region

#Region "Alien Movement"

    Private Sub Alien_timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Alien_timer.Tick

        PicAlien1.Left = PicAlien1.Left + invaderleft

        PicAlien2.Left = PicAlien2.Left + invaderleft

        PicAlien3.Left = PicAlien3.Left + invaderleft

        PicAlien4.Left = PicAlien4.Left + invaderleft

        PicAlien5.Left = PicAlien5.Left + invaderleft

        PicAlien6.Left = PicAlien6.Left + invaderleft

        If PicAlien1.Left >= 810 Then invaderleft *= -1

        If PicAlien2.Left >= 810 Then invaderleft *= -1

        If PicAlien3.Left >= 810 Then invaderleft *= -1

        If PicAlien4.Left >= 810 Then invaderleft *= -1

        If PicAlien5.Left >= 810 Then invaderleft *= -1

        If PicAlien6.Left >= 810 Then invaderleft *= -1

        If PicAlien1.Left <= 10 Then invaderleft *= -1

        If PicAlien2.Left <= 10 Then invaderleft *= -1

        If PicAlien3.Left <= 10 Then invaderleft *= -1

        If PicAlien4.Left <= 10 Then invaderleft *= -1

        If PicAlien5.Left <= 10 Then invaderleft *= -1

        If PicAlien6.Left <= 10 Then invaderleft *= -1

        For j = 1 To 30

            If invaderlife(j) Then

                invader(j).Left += leftmove

                If invader(j).Left > 1000 Then

                    leftmove *= -1

                End If

​

                If invader(j).Left < 10 Then

                    leftmove *= -1

                    invader(j).Left = 11

                End If

            End If

        Next

    End Sub

​

#End Region

#Region "Panels and buttons"

    Private Sub Start_Game_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start_GameBtn.Click

        SpaceInvaderLBL.Hide()

        Start_GameBtn.Hide()

        Close_meBtn.Hide()

        PicMenuAlien1.Hide()

        PicMenuAliengif2.Hide()

        InstructionsBtn.Hide()

        PicAliengif.Hide()

        GamePanel.Visible = True

        InstructionsPNL.Visible = False

    End Sub

​

    Private Sub Close_me_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Close_meBtn.Click

        Me.Close()

    End Sub

​

    Private Sub InstructionsBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InstructionsBtn.Click

        GamePanel.Visible = False

        InstructionsPNL.Visible = True

    End Sub

​

    Private Sub BacktomenuBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BacktomenuBTN.Click

        InstructionsPNL.Visible = False

        MenuPanel.Show()

    End Sub

​

    Private Sub QuitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitToolStripMenuItem.Click

        Me.Close()

    End Sub

​

    Private Sub InstructionsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InstructionsToolStripMenuItem.Click

        MsgBox("                                         Instructions!" & vbCrLf & " " & vbCrLf & "Move your spaceship Left and Right using the arrow keys." & vbCrLf & "Fire your gun by using the Left shift key to shoot aliens." & vbCrLf & "The game will finish, If you kill all Aliens." & vbCrLf & "If you want to mute the music go to the Instructions Panel" & vbCrLf & "Press 'p/P' If you want to Pause the game." & vbCrLf & "Press i/I for instructions")

    End Sub

​

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MutesoundsBTN.Click

        My.Computer.Audio.Stop()

    End Sub

​

    Private Sub SoundonBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SoundonBTN.Click

        My.Computer.Audio.Play("H:\Unit 12 -Software Development (Games)\Space invaders game tutorial\Teminite & MDK - Space Invaders.wav", AudioPlayMode.BackgroundLoop)

    End Sub

​

    Private Sub SoundOffToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SoundOffToolStripMenuItem.Click

        My.Computer.Audio.Stop()

    End Sub

​

    Private Sub SoundOnToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SoundOnToolStripMenuItem.Click

        My.Computer.Audio.Play("H:\Unit 12 -Software Development (Games)\Space invaders game tutorial\Teminite & MDK - Space Invaders.wav", AudioPlayMode.BackgroundLoop)

    End Sub

​

    Private Sub PauseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PauseToolStripMenuItem.Click

        Alien_timer.Enabled = False

        bullet_timer.Enabled = False

        spaceship_timer.Enabled = False

        MsgBox("You Paused the game")

        Paused = True

    End Sub

​

#End Region

#Region "Splash Screen"

    Private Sub Splashscreen_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Splashscreen_timer.Tick

        LoadingBar.Increment(1)

        If LoadingBar.Value = 8000 Then

            Splashscreen_timer.Enabled = False

            SplashscreenPanel.Hide()

            MenuPanel.Show()

        End If

    End Sub

​

#End Region

#Region "Keypress"

    Private Sub Form1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress

        If e.KeyChar = "P" Then

            If Paused = True Then

                Alien_timer.Enabled = True

                bullet_timer.Enabled = True

                spaceship_timer.Enabled = True

                Paused = False

            Else

                Alien_timer.Enabled = False

                bullet_timer.Enabled = False

                spaceship_timer.Enabled = False

                MsgBox("You Paused the game")

                Paused = True

            End If

        End If

​

        If e.KeyChar = "p" Then

            If Paused = True Then

                Alien_timer.Enabled = True

                bullet_timer.Enabled = True

                spaceship_timer.Enabled = True

                Paused = False

            Else

                Alien_timer.Enabled = False

                bullet_timer.Enabled = False

                spaceship_timer.Enabled = False

                MsgBox("You Paused the game")

                Paused = True

            End If

        End If

​

        If e.KeyChar = "I" Then

            MsgBox("                                         Instructions!" & vbCrLf & " " & vbCrLf & "Move your spaceship Left and Right using the arrow keys." & vbCrLf & "Fire your gun by using the Left shift key to shoot aliens." & vbCrLf & "The game will finish, If you kill all Aliens." & vbCrLf & "If you want to mute the music go to the Instructions Panel" & vbCrLf & "Press 'p/P' If you want to Pause the game." & vbCrLf & "Press i/I for instructions")

        End If

​

        If e.KeyChar = "i" Then

            MsgBox("                                         Instructions!" & vbCrLf & " " & vbCrLf & "Move your spaceship Left and Right using the arrow keys." & vbCrLf & "Fire your gun by using the Left shift key to shoot aliens." & vbCrLf & "The game will finish, If you kill all Aliens." & vbCrLf & "If you want to mute the music go to the Instructions Panel" & vbCrLf & "Press 'p/P' If you want to Pause the game." & vbCrLf & "Press i/I for instructions")

        End If

    End Sub

​

    Private Sub LoadSettings()

        Paused = False

    End Sub

#End Region

End Class

​