Bonjour le monde
Mettre à disposition une bibliothèque de valeurs constantes. #include < MsgBoxConstants. au3> ; Affiche "Hello, world !" dans une boîte à messages. MsgBox($MB_SYSTEMMODAL, "Title", "Hello, world !")
Automatisation de la calculatrice Windows
Mettre à disposition une bibliothèque de valeurs constantes. #include < MsgBoxConstants. au3> ; Afficher une boîte de message avec un délai d'attente de 6 secondes. MsgBox($MB_OK, "Attention", "Eviter de toucher le clavier ou la souris pendant l'automatisation", 6) ; Lancer la calculatrice Windows. Run("calc.exe") ; Attendre que la calculatrice soit active avec un délai d'attente de 10 secondes. WinWaitActive("[CLASS:CalcFrame]", "", 10) ; Si la calculatrice n'est pas apparue après 10 secondes, quittez le script. Si WinExists("[CLASS:CalcFrame]") = 0, alors quittez ; Tapez automatiquement l'année en cours dans la calculatrice. Send(@YEAR) ; Ralentissons un peu le script afin de voir ce qui se passe. Sleep(600) ; Tapez automatiquement "diviser par 4", puis dormez 600 ms. Send("/4") Sleep(600) ; Appuyez sur la touche return pour afficher le résultat, et dormez 600 ms. Send("{ENTER}") Sleep(600) ; Copiez le résultat dans le presse-papiers à l'aide du raccourci Windows Ctrl+C. Send("^c") ; Déclarer, et assigner le contenu du presse-papiers à une variable. Local $fResult = ClipGet() ; Vérifiez si la variable contient un point décimal ou non. If StringInStr($fResult, ".") Then ; Afficher une boîte de message avec un délai d'attente de 5 secondes. MsgBox($MB_OK, "Leap Year", @YEAR & " n'est pas une année bissextile", 5) Sinon ; Ce message ne s'affiche que si l'année en cours est une année bissextile. MsgBox($MB_OK, "Leap Year", @YEAR & " est une année bissextile.", 5) EndIf ; Fermez la calculatrice Windows - toujours en ordre après. WinClose("[CLASS:CalcFrame]")
Trouver la moyenne
; Find Average by JohnOne, modifié par czardas #include < MsgBoxConstants. au3> _Exemple() ; Exécutez l'exemple. Func _Exemple() ; Afficher une zone de saisie et demander à l'utilisateur d'entrer quelques chiffres séparés par des virgules. Local $sInput = InputBox("Find Average", "Enter some numbers separated by commas : 1,2,42,100,3") Si une erreur s'est produite, quittez le script. If @error Then Exit ; Remplissez un tableau avec les données de l'utilisateur. Local $aSplit = StringSplit($sInput, ",") ; Passez le tableau à la fonction _Find_Average() et vérifiez ensuite les erreurs. Local $fAverage = _Find_Average($aSplit) If @error Then Exit ; Afficher le résultat dans une boîte de message. MsgBox($MB_OK, "Find Average", "Result : " & $fAverage) EndFunc ;==>_Exemple Func _Find_Average($aArray) ; Si l 'entrée n'est pas du type correct (un tableau), alors retournez une erreur avec les détails. Si ce n'est pas un tableau ($aArray), alors retournez SetError(1, 0, VarGetType($aArray)) Des vérifications plus détaillées sont possibles, mais par souci de concision, une seule est effectuée ici. Déclarer une variable pour stocker la somme des nombres. Local $iArraySum = 0 ; Effectuer une boucle dans le tableau. For $i = 1 To $aArray[0] ; Incrémenter la somme par le nombre dans chaque élément du tableau. $iArraySum += Nombre($aArray[$i]) Suivant ; Retourne la moyenne arrondie à 2 décimales. Retourne Round($iArraySum / $aArray[0], 2) EndFunc ;==>_Find_Average
