Générateur de données de 96 Bytes
fricher
Messages postés
15
Date d'inscription
mardi 7 décembre 2004
Statut
Membre
Dernière intervention
23 août 2007
-
8 déc. 2004 à 16:59
fricher Messages postés 15 Date d'inscription mardi 7 décembre 2004 Statut Membre Dernière intervention 23 août 2007 - 8 déc. 2004 à 17:48
fricher Messages postés 15 Date d'inscription mardi 7 décembre 2004 Statut Membre Dernière intervention 23 août 2007 - 8 déc. 2004 à 17:48
2 réponses
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
8 déc. 2004 à 17:46
8 déc. 2004 à 17:46
Dim T() As Byte
Dim S As String
Dim i As Integer
Rem 96 caractères de 0 à 255 dans un tableau de Bytes
ReDim T(95)
Randomize Timer
For i = 0 To 95
T(i) = Rnd * 255
Next
Rem 96 caractères de "a" à "z" dans une chaîne
Randomize Timer
For i = 1 To 96
S = S & Chr$((Rnd * 25) + 97)
Next
Rem 96 chiffes de "0" à "9" dans une chaîne
Randomize Timer
For i = 1 To 96
S = S & Chr$((Rnd * 9) + 48)
Next
Daniel
Dim S As String
Dim i As Integer
Rem 96 caractères de 0 à 255 dans un tableau de Bytes
ReDim T(95)
Randomize Timer
For i = 0 To 95
T(i) = Rnd * 255
Next
Rem 96 caractères de "a" à "z" dans une chaîne
Randomize Timer
For i = 1 To 96
S = S & Chr$((Rnd * 25) + 97)
Next
Rem 96 chiffes de "0" à "9" dans une chaîne
Randomize Timer
For i = 1 To 96
S = S & Chr$((Rnd * 9) + 48)
Next
Daniel
fricher
Messages postés
15
Date d'inscription
mardi 7 décembre 2004
Statut
Membre
Dernière intervention
23 août 2007
8 déc. 2004 à 17:48
8 déc. 2004 à 17:48
Merci à toi
