retaks666
Messages postés286Date d'inscriptionjeudi 2 janvier 2003StatutMembreDernière intervention16 juillet 2007 30 janv. 2005 à 18:38
Il suffisait de générer un nombre entre 48 et 122, et de taper chr(cenombre) ça aurait été beaucoup plus simple!
Dim mdp As String
Private Sub Form_Load()
nbcaracteres = 6
mdp = ""
For i = 1 To nbcaracteres
Randomize Timer
temp = Rnd * 9999 Mod (122 - 48) + 48
mdp = mdp & Chr(temp)
Next i
End Sub
Voila
cs_max12
Messages postés1491Date d'inscriptiondimanche 19 novembre 2000StatutMembreDernière intervention 7 juillet 2014 29 janv. 2005 à 06:06
8 caractères ? Pourquoi pas 150 ?
JulioDelphi
Messages postés2226Date d'inscriptiondimanche 5 octobre 2003StatutMembreDernière intervention18 novembre 201014 27 janv. 2005 à 19:09
et perso je prefere les autres, celui la avec tes 36 lignes pour les lettres ... oula ! c barbare !
essaie de faire du neuf avec du vieux, ça peut devenir interessant =)
bon codage a+
30 janv. 2005 à 18:38
Dim mdp As String
Private Sub Form_Load()
nbcaracteres = 6
mdp = ""
For i = 1 To nbcaracteres
Randomize Timer
temp = Rnd * 9999 Mod (122 - 48) + 48
mdp = mdp & Chr(temp)
Next i
End Sub
Voila
29 janv. 2005 à 06:06
27 janv. 2005 à 19:09
http://www.vbfrance.com/code.aspx?ID=1705
http://www.vbfrance.com/code.aspx?ID=6333
http://www.vbfrance.com/code.aspx?ID=8089
http://www.vbfrance.com/code.aspx?ID=27469
et perso je prefere les autres, celui la avec tes 36 lignes pour les lettres ... oula ! c barbare !
essaie de faire du neuf avec du vieux, ça peut devenir interessant =)
bon codage a+