Hallo wereld
; Maak een bibliotheek van constante waarden beschikbaar. #inclusief < MsgBoxConstants. au3> ; Geeft "Hallo, wereld!" weer in een messagebox. MsgBox($MB_SYSTEMMODAL, "Titel", "Hallo, wereld!")
Het automatiseren van de Windows-calculator
; Maak een bibliotheek van constante waarden beschikbaar. #inclusief < MsgBoxConstants. au3> ; Geef een berichtenbox weer met een time-out van 6 seconden. MsgBox($MB_OK, "Attention", "Avoid touching the keyboard or mouse during automation.", 6) ; Start de Windows Calculator. Start ("calc.exe") ; Wacht tot de rekenmachine actief wordt met een time-out van 10 seconden. WinWaitActive("[CLASS:CalcFrame]", "", 10) ; Als de rekenmachine na 10 seconden nog niet is verschenen, verlaat u het script. Als WinExists("[CLASS:CalcFrame]" = 0 dan Exit ; Typ automatisch het huidige jaar in de rekenmachine. Send(@YEAR) ; Laten we het script wat vertragen zodat we kunnen zien wat er aan de hand is. Slaap(600) ; Typ automatisch 'deel door 4', en slaap dan 600 ms. Send("/4") Sleep(600) ; Druk op de return toets om het resultaat weer te geven, en sleep 600 ms. Send("{ENTER}") Sleep(600) ; Kopieer het resultaat naar het klembord met behulp van de Windows snelkoppeling Ctrl+C. Verzenden ("^c") ; Verklaar, en wijs de inhoud van het klembord toe aan een variabele. Lokaal $fResult = ClipGet() ; Controleer of de variabele een decimaalteken bevat of niet. Als StringInStr($fResult, ".") Dan ; Geef een berichtenbox weer met een time-out van 5 seconden. MsgBox($MB_OK, "Leap Year", @YEAR & " is geen schrikkeljaar.", 5) Anders ; Dit bericht wordt alleen weergegeven als het huidige jaar een schrikkeljaar is. MsgBox($MB_OK, "Schrikkeljaar", @YEAR & " is een schrikkeljaar.", 5) EndIf ; Sluit de Windows-calculator af - ruim daarna altijd op. WinClose("[CLASS:CalcFrame]")
Zoek gemiddelde
; Zoek gemiddelde door JohnOne, gewijzigd door czardas #include < MsgBoxConstants. au3> _Example() ; Voer het voorbeeld uit. Func _Example() ; Geef een invoerveld weer en vraag de gebruiker om enkele getallen in te voeren, gescheiden door komma's.Lokale $sInput = InputBox("Find Average", "Enter some numbers separated by commas: 1,2,42,100,3"). Als er een fout is opgetreden, sluit u het script af. Als @error dan Exit ; Vul een array in met de invoer van de gebruiker. Lokale $aSplit = StringSplit($sInput, ",") ; Geef de array door aan de functie _Find_Average() en controleer dan op fouten. Lokale $fAverage = _Find_Average($aSplit) Als @error dan Exit ; Geef het resultaat weer in een berichtvenster. MsgBox($MB_OK, "Find Average", "Result: " & $fAverage) EndFunc ;==>_Example Func _Find_Average($aArray) ; Als de invoer niet van het juiste type is (een array), geef dan een fout terug samen met de details.Als IsArray($aArray) niet correct is, geef dan SetError(1, 0, VarGetType($aArray)) terug. ; Meer gedetailleerde controles zijn mogelijk, maar voor de beknoptheid wordt er hier slechts één uitgevoerd. ; Verklaar een variabele om de som van de getallen op te slaan. Lokale $iArraySum = 0 ; Loop door de array. Voor $i = 1 tot $aArray[0] ; Verhoog de som met het getal in elk matrixelement. $iArraySum += Getal($aArray[$i])) Vervolgens ; Geef het gemiddelde afgerond op 2 decimalen terug. Geef de ronde terug($iArraySum / $aArray[0], 2) EndFunc ;==>_Find_Average
