Ganze Dezimalzahlen bis 1023 werden in Binär umgewandelt und als Array mit 10 Elementen zurückgegeben.
Habs für meine Binäruhr gebastelt...
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: Hacky-Sack
Script Function: converts round dezimalnumbers up to 1023 into bin
Beispiel: $bin = _DezToBin(3)
Beispiel: Returns an array with 10 elements
#ce ----------------------------------------------------------------------------
#include <array.au3>
Func _DezToBin($query)
DIM $return_array[10]
If $query - 512 > -1 Then
$return_array[9] = 1
$query = $query - 512
Else
$return_array[9] = 0
EndIf
If $query - 256 > -1 Then
$return_array[8] = 1
$query = $query - 256
Else
$return_array[8] = 0
EndIf
If $query - 128 > -1 Then
$return_array[7] = 1
$query = $query - 128
Else
$return_array[7] = 0
EndIf
If $query - 64 > -1 Then
$return_array[6] = 1
$query = $query - 64
Else
$return_array[6] = 0
EndIf
If $query - 32 > -1 Then
$return_array[5] = 1
$query = $query - 32
Else
$return_array[5] = 0
EndIf
If $query- 16 > -1 Then
$return_array[4] = 1
$query = $query - 16
Else
$return_array[4] = 0
EndIf
If $query - 8 > -1 Then
$return_array[3] = 1
$query = $query - 8
Else
$return_array[3]=0
EndIf
If $query - 4 > -1 Then
$return_array[2] = 1
$query = $query - 4
Else
$return_array[2] = 0
EndIf
If $query - 2 > -1 Then
$return_array[1] = 1
$query = $query - 2
Else
$return_array[1] = 0
EndIf
If $query - 1 > -1 Then
$return_array[0] = 1
$query = $query - 1
Else
$return_array[0] = 0
EndIf
Return $return_array
EndFunc
#cs Example
[/autoit][autoit][/autoit][autoit]$bin = _DezToBin(3)
_ArrayDisplay($bin)
#ce
[/autoit][autoit][/autoit][autoit]#cs Example
[/autoit][autoit][/autoit][autoit]$bin = _DezToBin(7)
_ArrayDisplay($bin)
#ce
[/autoit][autoit][/autoit][autoit]#cs Example
[/autoit][autoit][/autoit][autoit]$bin = _DezToBin(266)
_ArrayDisplay($bin)
#ce
[/autoit]