Halo dunia
; Menyediakan pustaka nilai konstanta. #include < MsgBoxConstants. au3> ; Menampilkan "Hello, world!" dalam kotak pesan. MsgBox($MB_SYSTEMMODAL, "Judul", "Halo, dunia!")
Mengotomatisasi Kalkulator Windows
; Menyediakan pustaka nilai konstanta. #include < MsgBoxConstants. au3> ; Tampilkan kotak pesan dengan batas waktu 6 detik. MsgBox($MB_OK, "Perhatian", "Hindari menyentuh keyboard atau mouse selama otomatisasi.", 6) ; Jalankan Kalkulator Windows. Run("calc.exe") ; Tunggu kalkulator menjadi aktif dengan timeout 10 detik. WinWaitActive("[CLASS:CalcFrame]", "", 10) ; Jika kalkulator tidak muncul setelah 10 detik maka keluarlah dari script. If WinExists("[CLASS:CalcFrame]") = 0 Then Exit ; Secara otomatis mengetikkan tahun sekarang ke dalam kalkulator. Send(@YEAR) ; Mari kita perlambat skripnya sedikit sehingga kita bisa melihat apa yang sedang terjadi. Sleep(600) ; Secara otomatis mengetikkan 'bagi dengan 4', dan kemudian sleep 600 ms. Send("/4") Sleep(600) ; Tekan tombol return untuk menampilkan hasilnya, dan sleep 600 ms. Send("{ENTER}") Sleep(600) ; Salin hasilnya ke clipboard menggunakan shortcut Windows Ctrl+C. Send("^c") ; Deklarasikan, dan tetapkan isi clipboard ke, sebuah variabel. Local $fHasil = ClipGet() ; Periksa untuk melihat apakah variabel berisi titik desimal atau tidak. If StringInStr($fResult, ".") Then ; Tampilkan kotak pesan dengan batas waktu 5 detik. MsgBox($MB_OK, "Tahun Kabisat", @TAHUN & " bukan tahun kabisat.", 5) Else ; Pesan ini hanya akan ditampilkan jika tahun saat ini adalah tahun kabisat. MsgBox($MB_OK, "Tahun Kabisat", @TAHUN & " adalah tahun kabisat.", 5) EndIf ; Tutup kalkulator Windows - selalu rapikan setelahnya. WinClose("[CLASS:CalcFrame]")
Temukan rata-rata
; Find Average by JohnOne, modified by czardas #include < MsgBoxConstants. au3> _Example() ; Jalankan contoh. Func _Example() ; Menampilkan kotak input dan meminta pengguna untuk memasukkan beberapa angka yang dipisahkan oleh koma. Local $sInput = InputBox("Find Average", "Masukkan beberapa angka yang dipisahkan dengan koma: 1,2,42,100,3") ; Jika terjadi error maka keluar dari script. If @error Then Exit ; Mengisi array dengan input pengguna. Local $aSplit = StringSplit($sInput, ",") ; Oper larik ke fungsi _Find_Average() dan kemudian periksa kesalahan. Local $fAverage = _Find_Average($aSplit) If @error Then Exit ; Tampilkan hasilnya dalam kotak pesan. MsgBox($MB_OK, "Find Average", "Result: " & $fAverage) EndFunc ;==>_Contoh Func _Find_Average($aArray) ; Jika input tidak bertipe yang benar (array), maka kembalikan error beserta detailnya. If Not IsArray($aArray) Then Return SetError(1, 0, VarGetType($aArray)) ; Pemeriksaan yang lebih detail mungkin dilakukan, tetapi untuk singkatnya hanya satu yang dilakukan di sini. ; Deklarasikan variabel untuk menyimpan jumlah angka. Lokal $iArraySum = 0 ; Loop melalui array. For $i = 1 To $aArray[0] ; Menambah jumlah dengan angka di setiap elemen larik. $iArraySum += Number($aArray[$i]) Next ; Kembalikan rata-rata dibulatkan ke 2 tempat desimal. Return Round($iArraySum / $aArray[0], 2) EndFunc ;==>_Find_Average
