MASTERMIND

Public Class Form1
    Dim Val() As Integer
    Dim Affiche, Chiffres, Code As String
    Dim Var1, Var2 As Char
    Dim Nc, N As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (TextBox1.Text = "") Or (TextBox1.Text.Length <> 4) Then
            TextBox1.Text = ""
            Exit Sub                             'Si L'entrée est vide alors quitter
        End If                                   'Ou si la longueur de l'entrée est difféente de 5
        Affiche = "0000"                         'charge Affiche de zéros
        N += 1
        Chiffres = TextBox1.Text                 'Entrée des combinaisons
        TextBox2.Text &= TextBox1.Text

        For i = 0 To Code.Length - 1
            Var1 = Code.Substring(i, 1)
            For j = 0 To Code.Length - 1
                Var2 = Chiffres.Substring(j, 1)
                If Var1 = Var2 Then
                    Affiche = Affiche.Remove(j, 1)
                    If j = i Then Affiche = Affiche.Insert(j, "1") 'Insère la bonne place
                    If j <> i Then Affiche = Affiche.Insert(j, "2") 'Insère la mauvaise place
                End If
            Next
        Next

      
        TextBox2.Text &= vbTab & "--> " & Affiche & vbCrLf      'Affiche le résultat
        TextBox1.Clear()

        If N = Nc Or Code = Chiffres Then
            If Code = Chiffres Then
                MsgBox("Bravo! vous avez gagné en : " & N & " Essais " & Chiffres)
                TextBox2.Text = "" : N = 0
            Else
                MsgBox("La solution était : " & Code)
                TextBox2.Text = "" : N = 0
            End If
            Tirage()
        End If
    End Sub

    Private Sub Tirage()
        Dim Random As Integer = 10
        ReDim Val(Random)
        Code = ""
        Nc = 10
        aléa(Random, 1)
        For i As Integer = 1 To 4
            Code &= Val(i)
        Next
    End Sub

    Private Sub aléa(ByVal rand As Integer, ByVal Opt As Integer)
        Dim x, y, v As Integer
        ' Initialisation du générateur de nombres pseudo-aléatoires
        Randomize()
        ' Création du tableau de valeurs [1, ..., rand] dans un ordre aléatoire
        For x = 1 To rand
            v = 0
            While v = 0
                v = Rnd() * rand
                For y = 1 To x
                    ' On verifie que v n'est pas déjà dans val()
                    If Val(y) = v Then v = 0
                Next
            End While
            Val(x) = v
        Next
        For x = 1 To rand
            Val(x) = Val(x) - Opt 'Opt = 1 donne Option base 0
        Next
    End Sub
  
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Tirage()
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not Char.IsControl(e.KeyChar) And (e.KeyChar < "0" Or e.KeyChar > "9") Then
            e.Handled = True
        End If
    End Sub

    Private Sub Label1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.Click
        Dim Mode As String
        Mode = "Le Principe consiste à deviner le code de la carte bleue en " & vbCrLf & _
            "Essayant de rentrer le code à quatre chiffres de 0 à 9 en plusieurs essais" & vbCrLf & _
            "L'ordinateur vous renseigne en indiquant la valeur 1 pour la bonne place" & vbCrLf & _
            "La valeur 2 pour la mauvaise place et 0 pour pas du tout" & vbCrLf & _
            "Exemple 0123     -> 0210 : ce qui donne " & vbCrLf & _
            "0 pas du tout;1 à la mauvaise place;2 à la bonne place et 3 pas du tout"
        MsgBox(Mode)
    End Sub
End Class