Public Class Form2048

    Dim Randomizer As New Random     'on déclare ramdomizer comme new random


    Private Sub Form2048_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' initialise la form
        'tous les labels sont vides au départ
        lbl1.Text = " "
        lbl2.Text = " "
        lbl3.Text = " "
        lbl4.Text = " "
        lbl5.Text = " "
        lbl6.Text = " "
        lbl7.Text = " "
        lbl8.Text = " "
        lbl9.Text = " "
        lbl10.Text = " "
        lbl11.Text = " "
        lbl12.Text = " "
        lbl13.Text = " "
        lbl14.Text = " "
        lbl15.Text = " "
        lbl16.Text = " "
        lblScore.Text = " "
        btnRestart.Enabled = True 'tous les boutons sont activés sauf Undo

        btnDown.Enabled = True
        btnLeft.Enabled = True
        btnRight.Enabled = True
        btnUp.Enabled = True

    End Sub

    Private Sub Affiche()
        ' affiche la variable Jeu dans lbl1, lbl2, ... lbl16
        ' affiche le score
        ' gère l'accessibilité des boutons
        '
        Dim l As Byte, i As Byte, j As Byte

        'l: numero de label
        'i: numero de ligne du tableau jeu
        'j: numéro de colonne du tableau jeu
        For i = 1 To n
            For j = 1 To n
                l = (i - 1) * n + j
                Select Case l     'on donne des valeurs aux labels de notre form
                    Case 1 : lbl1.Text = CSng(Jeu(1, 1))
                    Case 2 : lbl2.Text = CSng(Jeu(1, 2))
                    Case 3 : lbl3.Text = CSng(Jeu(1, 3))
                    Case 4 : lbl4.Text = CSng(Jeu(1, 4))
                    Case 5 : lbl5.Text = CSng(Jeu(2, 1))
                    Case 6 : lbl6.Text = CSng(Jeu(2, 2))
                    Case 7 : lbl7.Text = CSng(Jeu(2, 3))
                    Case 8 : lbl8.Text = CSng(Jeu(2, 4))
                    Case 9 : lbl9.Text = CSng(Jeu(3, 1))
                    Case 10 : lbl10.Text = CSng(Jeu(3, 2))
                    Case 11 : lbl11.Text = CSng(Jeu(3, 3))
                    Case 12 : lbl12.Text = CSng(Jeu(3, 4))
                    Case 13 : lbl13.Text = CSng(Jeu(4, 1))
                    Case 14 : lbl14.Text = CSng(Jeu(4, 2))
                    Case 15 : lbl15.Text = CSng(Jeu(4, 3))
                    Case 16 : lbl16.Text = CSng(Jeu(4, 4))

                End Select
                btnDown.Enabled = True            'tous les boutons sont activés sauf Undo
                btnUp.Enabled = True
                btnLeft.Enabled = True
                btnRight.Enabled = True

                btnRestart.Enabled = True

            Next
        Next
        lblScore.Text = CSng(Score) 'lblscore.text est égale à la conversion de short en string de la variable score
    End Sub

    Private Sub btnRestart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRestart.Click
        ' gère le redémarage d'une partie

        btnRestart.Enabled = True                '
        Call initialiser(Jeu, Score)
        Call Affiche()

    End Sub

    Private Sub btnUndo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUndo.Click
        ' gère l'annulation du coup qui vient dêtre joué (on ne peut annuler qu'un coup)


        Call restaurer_tableau()

        Call Affiche()

        btnUndo.Enabled = False
    End Sub

    Private Sub btnLeft_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLeft.Click
        ' gère le déplacement à gauche

        btnLeft.Enabled = True


        oldscore = Score
        Call Sauvegarder_tableau()
        Jeu = Deplacement_gauche(Jeu)
        Call TirerAleatoirement()
        Call TirerAleatoirement()
        Call Affiche()
        btnUndo.Enabled = True



        If partie_gagnée(Jeu) Then
            MessageBox.Show("félicitation, vous avez gagné")
            btnLeft.Enabled = False
            btnRight.Enabled = False
            btnUp.Enabled = False
            btnDown.Enabled = False
            btnUndo.Enabled = False
        End If
        If jeuterminé(Jeu) Then
            MessageBox.Show("le jeu est terminé")
            btnLeft.Enabled = False
            btnRight.Enabled = False
            btnUp.Enabled = False
            btnDown.Enabled = False
            btnUndo.Enabled = False
        End If

    End Sub

    Private Sub btnRight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRight.Click
        ' gère le déplacement à droite
        ' à compléter

        btnRight.Enabled = True

        oldscore = Score
        Call Sauvegarder_tableau()
        Jeu = Deplacement_droite(Jeu)
        Call TirerAleatoirement()
        Call TirerAleatoirement()
        Call Affiche()
        btnUndo.Enabled = True

        If partie_gagnée(Jeu) Then
            MessageBox.Show("félicitation, vous avez gagné")
            btnLeft.Enabled = False
            btnRight.Enabled = False
            btnUp.Enabled = False
            btnDown.Enabled = False
            btnUndo.Enabled = False
        End If
        If jeuterminé(Jeu) Then
            MessageBox.Show("le jeu est terminé")
            btnLeft.Enabled = False
            btnRight.Enabled = False
            btnUp.Enabled = False
            btnDown.Enabled = False
            btnUndo.Enabled = False
        End If

    End Sub


    Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
        ' gère le déplacement vers le haut

        btnUp.Enabled = True

        oldscore = Score
        Call Sauvegarder_tableau()
        Jeu = Deplacement_haut(Jeu)
        Call TirerAleatoirement()
        Call TirerAleatoirement()
        Call Affiche()
        btnUndo.Enabled = True

        If partie_gagnée(Jeu) Then
            MessageBox.Show("félicitation, vous avez gagné")
            btnLeft.Enabled = False
            btnRight.Enabled = False
            btnUp.Enabled = False
            btnDown.Enabled = False
            btnUndo.Enabled = False
        End If
        If jeuterminé(Jeu) Then
            MessageBox.Show("le jeu est terminé")
            btnLeft.Enabled = False
            btnRight.Enabled = False
            btnUp.Enabled = False
            btnDown.Enabled = False
            btnUndo.Enabled = False
        End If

    End Sub

    Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
        ' gère le déplacement vers le bas

        btnDown.Enabled = True

        oldscore = Score
        Call Sauvegarder_tableau()
        Jeu = Deplacement_bas(Jeu)
        Call TirerAleatoirement()
        Call TirerAleatoirement()
        Call Affiche()
        btnUndo.Enabled = True

        If partie_gagnée(Jeu) Then
            MessageBox.Show("félicitation, vous avez gagné")
            btnLeft.Enabled = False
            btnRight.Enabled = False
            btnUp.Enabled = False
            btnDown.Enabled = False
            btnUndo.Enabled = False
        End If
        If jeuterminé(Jeu) Then
            MessageBox.Show("le jeu est terminé")
            btnLeft.Enabled = False
            btnRight.Enabled = False
            btnUp.Enabled = False
            btnDown.Enabled = False
            btnUndo.Enabled = False
        End If

    End Sub


End Class