AutoIt
Da Wikipedia, l'enciclopedia libera.
AutoIt è un linguaggio di automazione per Microsoft Windows. L'ultima versione è la 3.2.12.0 del 16 Maggio 2008. La prima invece all'11 Marzo 2004. AutoIt ha molte funzioni, e la sua sintassi è molto intuitiva.
Indice |
[modifica] Caratteristiche salienti
Possibilità di creare file eseguibili
Possibilità di creare interfacce grafiche (GUI)
Indipendenza pressoché totale da DLL esterne non di sistema
Facilità di apprendimento
[modifica] Hello World
Per fare mandare un Messaggio Visuale: MsgBox(0,"Titolo", "Messaggio")
[modifica] Convertitore di temperature Celsius <-> Kelvin
// Autore: Rex Romae $scelta = InputBox("Scelta","1: Celsius a Kelvin - 2: Kelvin a Celsius") if $scelta = 1 then $celsius = InputBox("Celsius a Kelvin","Inserisci la temperatura in gradi Celsius per avere quella in gradi Kelvin") $kelvin = $celsius + 273 MsgBox(4,"Kelvin","La temperatura è di: " & $kelvin & " gradi Kelvin") else $kelvin = InputBox("Kelvin a Celsius","Inserisci la temperatura in gradi Kelvin per avere quella in gradi Celsius") $celsius = $kelvin - 273 MsgBox(4,"Celsius","La temperatura è di: " & $celsius & " gradi Celsius") EndIf
[modifica] Risolve equazioni di primo grado
// Autore: Rex Romae $a = InputBox("Primo coefficiente della x","Inserisci il primo coefficiente della x") $b = InputBox("Primo termine noto","Inserisci il primo termine noto") $c = InputBox("Secondo coefficiente della x","Inserisci il secondo coefficiente della x") $d = InputBox("Secondo termine noto","Inserisci il secondo termine noto") If ($a - $c) <> 0 Then $x = ($d - $b) / ($a - $c) MsgBox(0,"Risultato","X è uguale a: " & $x) EndIf If ($d - $b) = 0 Then MsgBox(0,"Risultato","L'equazione è indeterminata") EndIf If ($a - $c) = 0 Then MsgBox(0,"Risultato","L'equazione è impossibile!") EndIf
[modifica] Utilizzo delle GUI - Dopo tot secondi, esegue uno shutdown
#include <GuiConstants.au3> // Autore: Rex Romae $Path = "PERCOSO DELL'IMMAGINE" GUICreate("Auto-Shutdown", 230, 90) GUISetBkColor(0x000000) $bottone = GUICtrlCreateButton("Avvia", 175,47,40,20) GUICtrlSetColor(-1, 0xFFFFFF) $tempo = GUICtrlCreateInput("", 10,50,160,20) Global $Label = GUICtrlCreateLabel("Inserisci il tempo in secondi "&@LF&"(Es: 3 = 3 sec)", 10, 8, 309, 35) GUICtrlSetFont(-1, 8, 800, 0, "Verdana") GUICtrlSetColor(-1, 0xFFFFFF) GUISetState(@SW_SHOW) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ; case 1 Exit Case $bottone ; case 2 $tempo=GUICtrlRead($tempo) While Not $tempo = 0 ; Comincia il countdown dei secondi Global $Label2 = GUICtrlCreateLabel("Mancano: "&$tempo&" secondi all'arresto.", 10, 75, 309, 35) GUICtrlSetFont(-1, 8, 800, 0, "Verdana") GUICtrlSetColor(-1, 0x00FF00) Sleep(1000) $tempo = $tempo - 1 Wend Sleep($tempo) Shutdown(5) ; Forza lo shutdown EndSwitch WEnd
[modifica] Successione di Fibonacci
;//Autore: Rex Romae $n = InputBox("Successione di Fibonacci by Rex Romae", "Quanti numeri della successione vuoi sapere?") $a = 0 $b = 1 For $cont=0 To $n $nfib = $a + $b MsgBox(0, "Successione di Fibonacci by Rex Romae", $nfib) $a = $b $b = $nfib Next
