GÉNÉRATEUR DE CHAINES PSEUDO-ALÉATOIRES

Commentaire de EBArtSoft le 11/12/2007 22:40:28 administrateur CS

Desole de devoir dire ça mais... c'est totallement inutile comme source ! "Une bonne piste a exploité" ouai mais pourquoi faire hihihi.

Enfin bref encore un delire de programmeur :p

@+

Commentaire de MadM@tt le 11/12/2007 23:45:37

Oui malheureusement je crains que les mouvements de la souris soient bien moins aléatoires que ce peut nous fournir la fonction Rand par exemple.

Commentaire de vegetalain le 12/12/2007 10:44:04

idée d'amélioration...?

Commentaire de PCPT le 12/12/2007 12:30:35 administrateur CS

comment çà "idée d'amélioration", c'est justement ce que j'ai indiqué au dessus... ;)

Commentaire de PCPT le 12/12/2007 15:25:05 administrateur CS

si çà change quand le carac est choisi çà veut dire que tu n'aura jamais de clé > 256...
des suggestions? beh je t'ai dit d'utiliser MID
là çà consomme une tonne de ressources pour rien, c'est très long d'exécution, tu fait un GetCurseurPos alors qu'on connait déjà le X & Y, variables pas typées, pas d'option explicit, et j'en passe!

on va fait mieux qu'une suggestion parce que c'est sans fin là :

Option Explicit
Private Const STR_CHARS As String = "1234567890°-*/+²&é'(-è_çà)=~#{[|`\^@]}AZERTYUIOP¨£QSDFGHJKLM%µ<WXCVBN?.§azertyuiop$qsdfghjklmù<wxcvbn,;:!¤"
Private Const MAX_SIZE  As Integer = 1000
Dim sBuffer As String, iCpt As Integer
'
Private Sub Form_Load()
    Randomize Timer
    iCpt = 0
End Sub
'
Private Sub T01_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If (Button = vbMiddleButton) And (iCpt < MAX_SIZE) Then
        iCpt = iCpt + 1
        If iCpt = 1 Then sBuffer = Space(MAX_SIZE)
        Mid$(sBuffer, iCpt, 1) = Mid$(STR_CHARS, GetRandom(1, Len(STR_CHARS)), 1)
        Me.Caption = "En cours, carac " & iCpt & "/" & MAX_SIZE
        T01.Text = sBuffer
        If iCpt = MAX_SIZE Then Call MStop
    End If
End Sub
Private Sub T01_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbMiddleButton Then Call MStop
End Sub
'
Private Function GetRandom(ByVal iMin As Integer, iMax As Integer) As Integer
    GetRandom = Int((iMax * Rnd) + iMin)
End Function
Private Sub MStop()
    MsgBox "Terminé"
    T01.Text = Replace(sBuffer, " ", vbNullString)
    Me.Caption = "La chaîne fait " & Len(T01.Text) & " carac"
    iCpt = 0
End Sub