AutoIt is a freeware automation language for Microsoft Windows. In its earliest release, the software was primarily intended to create automation scripts (sometimes called macros) for Microsoft Windows programs but has since grown to include enhancements in both programming language design and overall functionality. While the scripting language in AutoIt 1 and 2 was statement-driven, designed primarily for simulating user interaction, from version 3 onwards the AutoIt syntax is similar to that found in the BASIC family of languages. Read more on Wikipedia...
; Find Average by JohnOne, modified by czardas
_Example() ; Run the example.
; Display an input box and ask the user to enter some numbers separated by commas.
Local $sInput = InputBox("Find Average", "Enter some numbers separated by commas: 1,2,42,100,3")
; If an error occurred then exit the script.
If @error Then Exit
; Populate an array with the user's input.
Local $aSplit = StringSplit($sInput, ",")
; Pass the array to the function _Find_Average() and then check for errors.
Local $fAverage = _Find_Average($aSplit)
If @error Then Exit
; Display the result in a message box.
MsgBox($MB_OK, "Find Average", "Result: " & $fAverage)
; If the input is not of the correct type (an array), then return an error along with the details.
If Not IsArray($aArray) Then Return SetError(1, 0, VarGetType($aArray))
; More detailed checks are possible, but for brevity just one is performed here.
; Declare a variable to store the sum of the numbers.
Local $iArraySum = 0
; Loop through the array.
For $i = 1 To $aArray
; Increment the sum by the number in each array element.
$iArraySum += Number($aArray[$i])
; Return the average rounded to 2 decimal places.
Return Round($iArraySum / $aArray, 2)
#include-once #include #endregion #forcedef #forceref #region and byref case continueloop dim do else elseif endfunc endif endselect exit exitloop for func global if local next not or return select step then to until wend while exit