 |
|
Les sources sous VB |
| N° Sce2_13 |
: |
|
| Catégorie |
: |
Fichiers |
| Date |
: |
02/01/2003 |
| Auteur |
: |
GilMir |
| Niveau |
: |
1 |
| Note
moyenne |
: |
|
| Capture |
: |
Non |
| Zip |
: |
Oui -  |
| Nombre
de sources déjà publiés : [ ] |
| Contacter
l'auteur de cette source : webmestre@langlade.org |
| Visiter
le site de l'auteur : http://www.langlade.org |
|
|
| Titre de la
source : |
| GENERER
UN CHIFFRE ALEATOIRE |
|
Descriptif Succint de la source |
La fonction Randomize vous permet de générer
des chiffres aléatoires mais dont la fréquence d'apparition
est toujours la même, cette source vous permettra de générer
une suite de chiffres aléatoires avec une cadence de
reproduction qui sera fonction évidemment du nombre de
chiffres pouvant être initialisés.
40 combinaisons de 9 chiffres sont générés en mode
"Entiers Longs aléatoires
Pourquoi ce code ?
S'il fallait générer un chiffre aléatoire dans une tranche
allant du chiffre 1 au chiffre 100, nous avons de grande
chance pour qu'un chiffre déjà affichés précédemment soit
re sélectionné à nouveau, par exemple, 14, 9, 58, 87, 9
'etc...
Avec cette technique de codage cela ne peut pas se produire
Dans cet exemple, nous ne nous intéresserons qu'aux chiffres
de type "Entiers Longs".
Il ne vous reste plus qu'à récupérer la ligne qui vous
intéresse pour développer votre code aléatoire qui devra
être utilisé pour réaliser votre protection de logiciel.
|
|
|
Libellé de la source |
'MELANGER, utilisation de
l'heure système
Sub mnuRanHeure_Click ( )
'Utilisation de
l'heure système
CRLF$ = Chr$(13) & Chr$(10)
'Chaque tic
d'horloge génère une séquence unique
Cle$ = Date$ & Space$(1) &
Time$ & Str$(Timer)
MsgBox "Chaîne de mélange :
" & CRLF$ & Cle$
RandShuffle Cle$
End Sub
'
'MELANGER, entrez une chaîne
Sub mnuRanChaine_Click ( )
'Entrez une
chaîne
CRLF$ = CHR$(13) & Chr$(10)
Cle$ = InputBox$("Entrez une
chaîne : ", "Nombres aléatoires",
Aléatoirement vôtre")
If Cle$ <> "" Then
MsgBox
"Chaîne de mélange : " & CLRF$ & Cle$
RandShuffle Cle$
End If
End Sub
'GENERER un chiffre de type Entier Long
Sub mnuRand_Click ( )
Cls
CRLF$ = Chr$(13) & Chr$(10)
Print CRLF$ & "Entiers longs
aléatoires entre 0 et IE9" & CRLF$ & CRLF$
For i%
= 1 To 10
Print Rand( ), Rand( ), Rand ( ), Rand ( )
Nex
End Sub
Nous allons créer deux modules.
Dans le premier (FileMsg.bas) nous
stockerons les procédures :
a) - De centrage de feuille (CenterForm)
b) - Mise en forme de chaîne de caractères pour les fichiers
MSG
Dans le second module (Randoms.bas)
nous stockerons les procédures :
a) - Rand
b) - RandShuffle
Vous trouverez le descriptif de ces sources dans le fichier
zippé Randoms.zip
qui comprend également le fichier exécutable Randoms.exe
|
|
| Vos commentaires
sur cette source : |
|
|
|
| Les commentaires
des internautes sur cette source : |
|
|
- Poster
un message dans le forum
- Ajouter une source
Modifier cette fiche |