[R] Fonction ramdom avec résultat unique
Posté : mer. 02 déc. 2009 12:03
Bonjour,
N'ayant pas eu de réponses concernant ma demande, je vais poser mon problème autrement.
J'utilise la fonction fonction random pour déterminer un nombre entre 1 et 500. A chaque fois que j'utilise la macro, je souhaite obtenir un nombre aléatoire qui n'ai jamais été tiré auparavant (à moins d'avoir réinitialisé). Un loto en quelque sorte.
Voici un début de code. La gui affiche le chiffre et l'enregistre dans un fichier texte. Ce que je ne sais pas faire, et c'est là que je sollicite votre aide, c'est avoir une fonction qui donne un chiffre aléatoire qui ne soit pas dans le fichier texte.
Merci de votre aide
N'ayant pas eu de réponses concernant ma demande, je vais poser mon problème autrement.
J'utilise la fonction fonction random pour déterminer un nombre entre 1 et 500. A chaque fois que j'utilise la macro, je souhaite obtenir un nombre aléatoire qui n'ai jamais été tiré auparavant (à moins d'avoir réinitialisé). Un loto en quelque sorte.
Voici un début de code. La gui affiche le chiffre et l'enregistre dans un fichier texte. Ce que je ne sais pas faire, et c'est là que je sollicite votre aide, c'est avoir une fonction qui donne un chiffre aléatoire qui ne soit pas dans le fichier texte.
Merci de votre aide
Code : Tout sélectionner
[spoiler=]$results1 = Random(1, 500, 1)
$file = "numero.txt"
#include <GUIConstantsEx.au3>
Opt('MustDeclareVars', 1)
Opt("GUIOnEventMode", 1)
Global $ExitID
_Main()
Func _Main()
GUICreate("random", 600, 160)
GUICtrlCreateLabel("choix aléatoire :", 10, 10)
GUICtrlCreateLabel($results1, 120, 10)
GUISetOnEvent($GUI_EVENT_CLOSE, "OnExit")
FileWrite("numero.txt", $results1 & @CRLF)
GUISetState()
While 1
Sleep(1000)
WEnd
EndFunc
Func OnExit()
If @GUI_CtrlId = $ExitID Then
Exit
Else
Exit
EndIf
Exit
EndFunc[/spoiler]