MACHINE À SOUS

Commentaire de sofiane2 le 31/07/2012 02:33:19

Imports System.Text
'''''''''''''
voici une fonction plus simple pour avoir des lettres aleatoire ''''''
''''''''''''''''''''''''''''''''''''''''''''''''

Function letterX(ByVal MaxLettre As Integer) As String
        Dim rand As New Random
        Dim lettre As String

        Dim builder As New System.Text.StringBuilder


        For x = 1 To MaxLettre
            lettre = Chr(rand.Next(Asc("a"), Asc("z") + 1))
            lettre = builder.Append(lettre).ToString
        Next
        Return lettre
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox(letterX(3))
    End Sub

Commentaire de alpha5 le 01/08/2012 08:28:57

Merci Sofiane2 pour ton code
j'essairai pour voir si ça marche mieux.