Jaberwocky6669: Edited snippets to conform to template Snippet Header.

2012-11-15T19:58:08Z

Edited snippets to conform to template Snippet Header.

IEvKI3gv9Wrkd41u: +Snippets Category (+ normalize top)

2012-11-12T15:11:24Z

+Snippets Category (+ normalize top)

← Older revision		Revision as of 15:11, 12 November 2012
Line 1:		Line 1:
	~~<div class="center" style="width~~:~~auto; margin-left:auto; margin-right:auto;">'''Please always credit an author in your script if you use their code, Its only polite.'''</div>~~		__TOC__
			[[category:Snippets]]

			{{Snippet Credit Header}}

	===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _Boolean() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====		===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _Boolean() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

Chimaera: /* __Ternary() ~ Author - guinness */

2012-08-03T07:01:02Z

__Ternary() ~ Author - guinness

New page

<div class="center" style="width:auto; margin-left:auto; margin-right:auto;">'''Please always credit an author in your script if you use their code, Its only polite.'''</div>
===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _Boolean() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
ConsoleWrite(_Boolean(True) & @CRLF) ; Returns True.
ConsoleWrite(_Boolean("This is a string with something True.") & @CRLF) ; Returns False if a string of text (excluding True/False or a number.)
ConsoleWrite(_Boolean("1") & @CRLF) ; Returns True as it is a string but a number.
ConsoleWrite(_Boolean("False") & @CRLF) ; Returns False.
ConsoleWrite(_Boolean("False") & @CRLF) ; Returns False.
ConsoleWrite(_Boolean(1) & @CRLF) ; Returns True.

; Convert a value to Boolean (True or False).
; If a number is passed then anything that is NOT 0 is True and if a string is the explicit word True, False or a number than it's equivilant boolean value is returned.
; Anthing else e.g. This is a string is False.
Func _Boolean($fValue)
If IsBool($fValue) Then
Return $fValue
EndIf
Return Number($fValue) >= 1
EndFunc ;==>_Boolean
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' BinToInt() & IntToBin() ~ Author - [http://www.autoitscript.com/forum/user/31256-malkey/ Malkey] '''</blockquote> =====
<syntaxhighlight lang="autoit">
ConsoleWrite(IntToBin(2048) & @CRLF)

Func IntToBin($iInt) ;coded by Malkey
Local $b = ""
For $i = 1 To 32
$b = BitAND($iInt, 1) & $b
$iInt = BitShift($iInt, 1)
Next
Return $b
EndFunc ;==>IntToBin

ConsoleWrite(BinToInt(111000) & @CRLF)

Func BinToInt($bin) ;coded by Malkey
Local $aArr = StringSplit($bin, "", 2)
Local $dec = 0
For $i = UBound($aArr) - 1 To 0 Step -1
If $aArr[$i] = "1" Then
$dec = BitXOR($dec, BitShift(1, -(UBound($aArr) - 1 - $i)))
EndIf
Next
Return $dec
EndFunc ;==>BinToInt
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _BinToInt() ~ Author - [http://www.autoitscript.com/forum/user/35754-spiff59/ Spiff59] '''</blockquote> =====
<syntaxhighlight lang="autoit">
ConsoleWrite(_BinToInt(111000) & @CRLF)

Func _BinToInt($sValue)
Local $iOut = 0, $aValue = StringSplit($sValue, "")
For $i = 1 To $aValue[0]
$aValue[0] -= 1
If $aValue[$i] = "1" Then $iOut += 2 ^ ($aValue[0])
Next
Return Int($iOut)
EndFunc
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _BytesToBits() & _BitsToBytes() ~ Author - [http://www.autoitscript.com/forum/user/31965-progandy/ ProgAndy] '''</blockquote> =====
<syntaxhighlight lang="autoit">
ConsoleWrite(_BytesToBits(1024) & @CRLF)

Func _BytesToBits($bBinary) ;coded by ProgAndy

Local $byte, $bits="", $i, $j, $s
#forceref $j
For $i = 1 To BinaryLen($bBinary)
$byte = BinaryMid($bBinary, $i, 1)
For $j = 1 To 8
$bits &= BitAND($byte, 1)
$byte = BitShift($byte, 1)
Next
Next
$s = StringSplit($bits, "")
$bits = ""
For $i = $s[0] To 1 Step -1
$bits &= $s[$i]
Next
Return $bits
EndFunc

ConsoleWrite(_BitsToBytes(1000) & @CRLF)

Func _BitsToBytes($sBits) ;coded by ProgAndy
Local $bBytes = Binary(''), $iLen = StringLen($sBits)
Local $iCnt = 0, $iVal = 0
For $i = 1 To $iLen
$iCnt += 1
$iVal = BitShift($iVal, -1)
If "1" = StringMid($sBits, $i, 1) Then
$iVal = BitOR($iVal, 1)
EndIf
If $iCnt = 8 Then
$iCnt = 0
$bBytes &= BinaryMid($iVal, 1, 1)
$iVal = 0
EndIf
Next
If $iCnt Then $bBytes &= BinaryMid(Binary(BitShift($iVal, -8+$iCnt)), 1, 1)
Return $bBytes
EndFunc
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _ChkParamValue() ~ Author - [http://www.autoitscript.com/forum/user/29844-uez/ UEZ] '''</blockquote> =====
<syntaxhighlight lang="autoit">
$v = 79 ; Bitmask -> 1 + 2 + 4 + 8 + 64 = 79 = 0100 1111

ConsoleWrite(_ChkParamValue(7, $v) & @LF)
ConsoleWrite(_ChkParamValue(32, $v) & @LF)
ConsoleWrite(_ChkParamValue(77, $v) & @LF)
ConsoleWrite(_ChkParamValue(16, $v) & @LF)

;======================================================================================
; Function Name: _ChkParamValue
; Description: Check whether any combination of n parameter values is valid
; Parameters: $iParam: an integer value to check
; $iBitmask: an integer value with the possible parameter values
; Return Value(s): True -> $iParam is a valid parameter
; False -> $iParam is NOT a valid parameter
;
; Error codes: 1: $iParam not an integer
; 2: $iBitmask not an integer
; Author(s): UEZ
; Version: v0.99 Build 2012-05-10 Beta
; Example:
; $iBitmask = 79 ; Bitmask -> 1 + 2 + 4 + 8 + 64 = 79 = 0100 1111
; ConsoleWrite(_ChkParamValue(7, $iBitmask) & @LF)
; ConsoleWrite(_ChkParamValue(32, $iBitmask) & @LF)
; ConsoleWrite(_ChkParamValue(77, $iBitmask) & @LF)
; ConsoleWrite(_ChkParamValue(16, $iBitmask) & @LF)
;=======================================================================================
Func _ChkParamValue($iParam, $iBitmask)
If Not IsInt($iParam) Then Return SetError(1, 0 , 0)
If Not IsInt($iBitmask) Then Return SetError(2, 0 , 0)
If Not $iParam Or $iParam > $iBitmask Then Return 0
Local $c = BitXOR(BitAND($iBitmask, $iParam), $iParam)
If Not $c Then Return True
Return False
EndFunc ;===>_ChkParamValue
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _Distance() ~ Author - SolidSnake '''</blockquote> =====

<syntaxhighlight lang="autoit">
; Calculate the Distance between two points
; Author - SolidSnake
ConsoleWrite(_Distance(210, 345, 273, 465) & @CRLF)

Func _Distance($iX1, $iY1, $iX2, $iY2)
Return Sqrt(($iX1 - $iX2) ^ 2 + ($iY1 - $iY2) ^ 2)
EndFunc ;==>_Distance
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _Generate() ~ Author - [http://www.autoitscript.com/forum/user/23930-monoceres/ monoceres] '''</blockquote> =====

<syntaxhighlight lang="autoit">
Local $aNumbers = _Generate(7, 1, 36)
Local $sString = ''
For $i = 0 To UBound($aNumbers) - 1
$sString &= "Element " & $i & ": " & $aNumbers[$i] & @CRLF
Next
MsgBox(4096, '', $sString)

; Pick a random set of numbers.
Func _Generate($iSize = 7, $iMin = 1, $iMax = 36)
Local $aArray[$iSize], $sReturn = ''
$aArray[0] = Random($iMin, $iMax, 1)
For $i = 0 To $iSize - 1
While 1
$sReturn = Random($iMin, $iMax, 1)
For $j = 0 To $i - 1
If $aArray[$j] = $sReturn Then
ContinueLoop 2
EndIf
Next
ExitLoop
WEnd
$aArray[$i] = $sReturn
Next
Return $aArray
EndFunc ;==>_Generate
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' Integer2Binary() & Binary2Integer() ~ Author - [http://www.autoitscript.com/forum/user/29844-uez/ UEZ] '''</blockquote> =====
<syntaxhighlight lang="autoit">
#include <String.au3>

ConsoleWrite(Integer2Binary(2048) & @CRLF)

Func Integer2Binary($in) ;coded by UEZ
If $in = 0 Then Return 0
Local $bin
While $in > 0
$bin &= Mod($in, 2)
$in = Floor($in / 2)
WEnd
Return(_StringReverse($bin))
EndFunc

ConsoleWrite(Binary2Integer(111000) & @CRLF)

Func Binary2Integer($in) ;coded by UEZ
Local $int, $x, $i = 1, $aTmp = StringSplit(_StringReverse($in), "")
For $x = 1 To UBound($aTmp) - 1
$int += $aTmp[$x] * $i
$i *= 2
Next
$aTmp = 0
Return StringFormat('%.0f', $int)
EndFunc
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' Iterative Fibonacci ~ Author - [http://www.autoitscript.com/forum/user/70582-rutger83/ Rutger83] '''</blockquote> =====

<syntaxhighlight lang="autoit">
; Iterative Fibonacci Sequence

Global $n, $n1, $n0
#AutoIt Version: 3.2.10.0
$n0 = 0
$n1 = 1
$n = 10
MsgBox (0,"Iterative Fibonacci ", it_febo($n0,$n1,$n))

Func it_febo($n_0,$n_1,$N)
Local $first = $n_0
Local $second = $n_1
Local $next = $first + $second
Local $febo = 0
For $i = 1 To $N-3
$first = $second
$second = $next
$next = $first + $second
Next
if $n==0 Then
$febo = 0
ElseIf $n==1 Then
$febo = $n_0
ElseIf $n==2 Then
$febo = $n_1
Else
$febo = $next
EndIf
Return $febo
EndFunc
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _MilesToKilometres() & _KilometresToMiles() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness]'''</blockquote> =====
<syntaxhighlight lang="autoit">
; Usage _MilesToKilometres( Number Of Miles To Calculate By ) & _KilometresToMiles( Number Of Kilometers To Calculate By )

ConsoleWrite(_MilesToKilometres(1) & @CRLF) ; Change the (1) to the distance required

Func _MilesToKilometres($iLength)
Return $iLength * 1.609
EndFunc ;==>_MilesToKilometres

; ================

ConsoleWrite(_KilometresToMiles(1) & @CRLF) ; Change the (1) to the distance required

Func _KilometresToMiles($iLength)
Return $iLength * 0.6214
EndFunc ;==>_KilometresToMiles
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _Random() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness]'''</blockquote> =====
<syntaxhighlight lang="autoit">
; Usage = _Random(Minimum, Maximum, [Integer]) ~ ( Generates a random number within a given range )

ConsoleWrite(_Random(0, 1) & @CRLF) ; Will return a float number between 0 & 1.
ConsoleWrite(_Random(42, 42) & @CRLF) ; Will return 42, as both values are the same.
ConsoleWrite(_Random(1, 99, 1) & @CRLF) ; Will return an integer number between 1 & 99.

Func _Random($iMin, $iMax, $iInteger = 0)
Local $iRandom = Random($iMin, $iMax, $iInteger)
If @error Then
Return $iMin
EndIf
Return $iRandom
EndFunc ;==>_Random
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _RandomCharGen() ~ Author - [http://www.autoitscript.com/forum/user/23884-marlo/ Marlo] '''</blockquote> =====

<syntaxhighlight lang="autoit">
MsgBox(0, "", _RandomCharGen(50))

Func _RandomCharGen($iLength)
Local $sReturn
Local $aChars[62] = [ _
'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', _
'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', _
0, 1, 2, 3, 4, 5, 6, 7, 8, 9]

For $i = 0 To $iLength
$sReturn &= $aChars[Random(0, 61)]
Next
Return $sReturn
EndFunc ;==>_RandomCharGen
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _RandomNumber() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
ConsoleWrite(_RandomNumber() & @CRLF) ; Generates a random number

Func _RandomNumber($iStart = 0, $iEnd = 10000000000)
Return Random($iStart, $iEnd, 1)
EndFunc ;==>_RandomNumber
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' Recursive Fibonacci ~ Author - [http://www.autoitscript.com/forum/user/70582-rutger83/ Rutger83] '''</blockquote> =====

<syntaxhighlight lang="autoit">
; Recursive Fibonacci Sequence

Global $n, $n1, $n0
#AutoIt Version: 3.2.10.0
$n0 = 0
$n1 = 1
$n = 10
MsgBox (0,"Recursive Fibonacci ", rec_febo($n0,$n1,$n))
Func rec_febo($r_0,$r_1,$R)
if $R<3 Then
if $R==2 Then
Return $r_1
ElseIf $R==1 Then
Return $r_0
ElseIf $R==0 Then
Return 0
EndIf
Return $R
Else
Return rec_febo($r_0,$r_1,$R-1) + rec_febo($r_0,$r_1,$R-2)
EndIf
EndFunc
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _Ternary() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
<syntaxhighlight lang="autoit">
ConsoleWrite(_Ternary(10, 'Is True.', 'Is False.') & @CRLF)
ConsoleWrite(_Ternary(0, 'Is True.', 'Is False.') & @CRLF)

; Version: 1.00. AutoIt: V3.3.8.1
Func _Ternary($iValue, $vTrue, $vFalse) ; Like _Iif but uses 0 or non-zero e.g. 1 or above instead of a boolean result.
Local $aArray[2] = [$vFalse, $vTrue]
Return $aArray[Number(Number($iValue) > 0)]
EndFunc ;==>_Ternary
</syntaxhighlight>
[[#top|Return To Contents]]

Snippets ( Math & Numbers ) - Revision history

Jaberwocky6669: Edited snippets to conform to template Snippet Header.

IEvKI3gv9Wrkd41u: +Snippets Category (+ normalize top)

Chimaera: /* __Ternary() ~ Author - guinness */