MACHINE À SOUS

Public Class Form1
    Dim Nbreussis As Integer
    Dim Nbessais As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Tirage
        Tirage()
        Nbessais += 1

        If (Label1.Text = Label2.Text) _
        And (Label3.Text = Label1.Text) _
        And (Label3.Text = Label2.Text) Then
            Label4.Visible = True
            Button1.Enabled = False
            Button2.Enabled = True

            My.Computer.Audio.Play("Gagné.wav")
            Label5.Text = "Nombre d'essais = " & Nbessais

            Nbreussis += 1
            Label6.Text = "Ratio = " & Ratio(Nbreussis, Nbessais)

            Nbessais = 0
            Nbreussis = 0
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Recommencer
        Button1.Enabled = True
        Button2.Enabled = False

        Label4.Visible = False
        Label1.Text = ""
        Label2.Text = ""
        Label3.Text = ""
        Label5.Text = ""
        Label6.Text = ""
    End Sub

    Private Sub Tirage()
        Dim A, B, C As Integer
        Label4.Visible = False

        A = alea(9)
        Label1.ForeColor = Couleurs(A)
        Label1.Text = Alpha(A)

        B = alea(9)
        Label2.ForeColor = Couleurs(B)
        Label2.Text = Alpha(B)

        C = alea(9)
        Label3.ForeColor = Couleurs(C)
        Label3.Text = Alpha(C)
    End Sub

    Function Alpha(ByVal n As Integer) As String
        Dim Alphabet As String = "ABCDEFGHIJ"
        Dim lettre As String
        lettre = Alphabet.Substring(n, 1)
        Return lettre
    End Function

    Function alea(ByVal v As Integer) As Integer
        Dim i As Integer
        Dim Numero(v) As Integer
        Dim Random As Integer

        For i = 0 To v
            Numero(i) = i
        Next

        Randomize()
        Dim tirage(v) As Integer
        For i = 0 To v
            Dim id As Integer
            Do
                id = Rnd() * v
            Loop While tirage(id)
            tirage(id) = Numero(i)
        Next

        Random = tirage(1)
        Return Random
    End Function

    Function Couleurs(ByVal Nb As Integer) As Color
        Dim R As Color
        Select Case Nb
            Case 0
                R = Color.Brown
            Case 1
                R = Color.DarkSalmon
            Case 2
                R = Color.Blue
            Case 3
                R = Color.Cyan
            Case 4
                R = Color.DarkGreen
            Case 5
                R = Color.DeepPink
            Case 6
                R = Color.DarkOrange
            Case 7
                R = Color.DarkRed
            Case 8
                R = Color.Yellow
            Case 9
                R = Color.BlueViolet
        End Select
        Return (R)
    End Function

    Function Ratio(ByVal Nbr As Integer, ByVal Nbe As Integer) As String
        Dim Pourcent As Single
        Pourcent = (Nbr / Nbe) * 100
        Return Math.Round(Pourcent, 2) & " %"
    End Function

End Class