Discussion :

[skysool]

Bonsoir,

je cherche à créer une fonction qui permettra d'afficher dans une txtbox des caractères aléatoires (comme un captcha) en cliquant sur un label.

Voici mon code, le probleme est qu'au lancement du fichier.exe se sont toujours les memes qui sont générer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub valide_Click()
captcha = TXTCAPTCHA(10)
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Function Rndtxt(Optional Chrlength As Integer = 8) As String
Dim RNDWORD As String
Dim LoopVar As Integer
 
Const rndstring = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For LoopVar = 1 To Chrlength
RNDWORD = RNDWORD & Mid(rndstring, Int(Rnd * 32) + 1, 1)
Next LoopVar
TXTCAPTCHA = RNDWORD 
End Function

Merci pour votre aide

[ProgElecT]

Salut

le probleme est qu'au lancement du fichier.exe se sont toujours les memes qui sont générer

Rnd[(number)]
Avant d'appeler la fonction Rnd, utilisez l'instruction Randomize sans argument pour initialiser le générateur de nombres aléatoires avec une valeur initiale basée sur l'horloge système.

---

Randomize [number]
L'instruction Randomize utilise l'argument number pour initialiser le générateur de nombres aléatoires de la fonction Rnd, en lui donnant une nouvelle valeur initiale. Si vous omettez l'argument number, la valeur renvoyée par l'horloge système est utilisée comme nouvelle valeur initiale.

[skysool]

Simple et efficace MERCi !