Merhaba Dünya
; Sabit değerlerden oluşan bir kütüphane hazırlayın. #include < MsgBoxConstants. au3> ; Bir mesaj kutusunda "Merhaba, dünya!" ifadesini görüntüler. MsgBox($MB_SYSTEMMODAL, "Başlık", "Merhaba, dünya!")
Windows Hesap Makinesini Otomatikleştirme
; Sabit değerlerden oluşan bir kütüphane hazırlayın. #include < MsgBoxConstants. au3> ; 6 saniyelik bir zaman aşımı ile bir mesaj kutusu görüntüleyin. MsgBox($MB_OK, "Dikkat", "Otomasyon sırasında klavye veya fareye dokunmaktan kaçının.", 6) ; Windows Hesap Makinesini çalıştırın. Run("calc.exe") ; Hesap makinesinin 10 saniyelik bir zaman aşımı ile aktif hale gelmesini bekleyin. WinWaitActive("[CLASS:CalcFrame]", "", 10) ; Hesap makinesi 10 saniye sonra görünmezse koddan çıkın. If WinExists("[CLASS:CalcFrame]") = 0 Then Exit ; Hesap makinesine otomatik olarak geçerli yılı yazın. Send(@YEAR) ; Neler olup bittiğini görebilmek için betiği biraz yavaşlatalım. Sleep(600) ; Otomatik olarak '4'e böl' yazın ve ardından 600 ms uyuyun. Send("/4") Sleep(600) ; Sonucu görüntülemek için return tuşuna basın ve 600 ms uyuyun. Send("{ENTER}") Sleep(600) ; Windows kısayolu Ctrl+C'yi kullanarak sonucu panoya kopyalayın. Send("^c") ; Pano içeriğini bir değişken olarak tanımlayın ve bu değişkene atayın. Local $fResult = ClipGet() ; Değişkenin ondalık nokta içerip içermediğini kontrol edin. If StringInStr($fResult, ".") Then ; 5 saniyelik bir zaman aşımı ile bir mesaj kutusu görüntüleyin. MsgBox($MB_OK, "Leap Year", @YEAR & " is not a leap year.", 5) Else ; Bu mesaj yalnızca geçerli yıl artık yıl ise görüntülenecektir. MsgBox($MB_OK, "Leap Year", @YEAR & " is a leap year.", 5) EndIf ; Windows hesap makinesini kapatın - her zaman daha sonra toparlayın. WinClose("[CLASS:CalcFrame]")
Ortalama bulun
; Find Average by JohnOne, modified by czardas #include < MsgBoxConstants. au3> _Example() ; Örneği çalıştırın. Func _Example() ; Bir giriş kutusu görüntüleyin ve kullanıcıdan virgüllerle ayrılmış bazı sayılar girmesini isteyin. Local $sInput = InputBox("Find Average", "Enter some numbers separated by commas: 1,2,42,100,3") ; Bir hata oluştuysa koddan çıkın. If @error Then Exit ; Kullanıcının girdisi ile bir dizi doldurun. Local $aSplit = StringSplit($sInput, ",") ; Diziyi _Find_Average() fonksiyonuna aktarın ve ardından hata olup olmadığını kontrol edin. Local $fAverage = _Find_Average($aSplit) If @error Then Exit ; Sonucu bir mesaj kutusunda görüntüleyin. MsgBox($MB_OK, "Find Average", "Result: " & $fAverage) EndFunc ;==>_Example Func _Find_Average($aArray) ; Girdi doğru türde değilse (bir dizi), ayrıntılarla birlikte bir hata döndürün. If Not IsArray($aArray) Then Return SetError(1, 0, VarGetType($aArray)) ; Daha ayrıntılı kontroller mümkündür, ancak kısa olması için burada sadece bir tanesi gerçekleştirilmiştir. ; Sayıların toplamını saklamak için bir değişken bildirin. Local $iArraySum = 0 ; Dizi boyunca döngü. For $i = 1 To $aArray[0] ; Toplamı her dizi elemanındaki sayı kadar artırın. $iArraySum += Number($aArray[$i]) Next ; 2 ondalık basamağa yuvarlanmış ortalamayı döndür. Return Round($iArraySum / $aArray[0], 2) EndFunc ;==>_Find_Average
