Allons un peu plus loin dans la création de fonctions personnalisées :
Nous allons découvrir la boucle "While ... Wend" par le biais d'un exemple => un mémory !
lisez le code puis exécutez le ... vous comprendrez très rapidement que le code compris entre les mots clé "While" et "Wend" sera exécuté en boucle indéfiniment ! (du moins tant que la condition "$userinput == $nums" reste vraie)
pour ce qui est des concepts manipulés :
* création de fonctions
* utilisation de boucle while avec condition d'arrêt
* interaction utilisateur par le biais d'une fenêtre de dialogue "InputBox"
* variables globales
Amusez vous bien !
Et pour les plus courageux : transformez l'exemple pour faire pareil avec des mots ... !!!
Code : Tout sélectionner
#cs ----------------------------------------------------------------------------
AutoIt Version : 3.3.6.0
Auteur: SeigneurBelial
About this Script :
Made by SrBelial.
Please consider that you won't receive any support from me.
Please consider that this script is standalone script.
Please consider keep this header,
or at least my name (SrBelial or SrB) if you want to use/copy/modify this script.
#ce ----------------------------------------------------------------------------
;~ ================================================================================
;~ ===__________________________________VARS____________________________________===
;~ ================================================================================
Global $nums, $lastnum, $nb, $userinput
;~ ================================================================================
;~ ===_________________________________ENTRY_POINT______________________________===
;~ ================================================================================
Main()
;~ ================================================================================
;~ ===_________________________________FUNCTIONS________________________________===
;~ ================================================================================
Func Main()
$nb = 0
$nums = ""
$userinput = ""
while $userinput == $nums
$nb += 1
$lastnum = Random(0, 99, 1)
$nums = $nums & $lastnum & " "
MsgBox(0, "Séquence", "Vous avez " & $nb & " secondes pour mémoriser la suite suivante : " & @CRLF & @CRLF & $nums, $nb)
$userinput = InputBox("Quelle est la séquence ?", "Veuillez entrer la suite de nombres séparée par des espaces : ") & " "
WEnd
MsgBox(0, "Perdu ...", "Vous êtes parvenu à mémoriser une séquence de " & $nb & " nombres !!!", 3)
EndFunc
Merci! Mais après "WEnd" il faut rajouter "EndFunc"