Funktion: _ConvertIntToDual

404-Not-Found

Mithilfe des Tabellen-Buches (von meinem Vater ),
Habe ich eine Funktion geschrieben die Integer zu Dual-Zahlen konvertiert!

Hier die Funktion:

Spoiler anzeigen

[autoit]

Func _ConvertIntToDual($iNumber = 0)
Local $iStep, $iDiv, $iMod, $iResult
For $iStep = 1 To 7 Step 1
$iResult &= Mod($iNumber, 2)
$iNumber = Round(Floor($iNumber / 2), 0)
Next
Return _StringReverse($iResult)
EndFunc ;==>_ConvertIntToDual

[/autoit]

Und einmal als Download: autoit.de/wcf/attachment/7438/

Auf Kritik(Soweit sie Hilfreich ist :D) freue ich mich

Achja, Damit die Funktion arbeitet, Muss die String.au3 includet sein!
PS: Ich hoffe mal, Das die Funktion Richtig arbeiten

**Oscar**

Naja, es geht auch ganz ohne Includes:

Spoiler anzeigen

[autoit]

MsgBox(0,0,_Int2Dual(6789))

[/autoit] [autoit][/autoit] [autoit]

Func _Int2Dual($iInteger)
Local $sDual
For $i = 30 To 0 Step -1
$sDual &= Number(BitAND($iInteger, 2^$i) = 2^$i)
Next
Return StringRegExpReplace($sDual, '\A0*([10]*)', '%$1')
EndFunc

[/autoit]

404-Not-Found

Oscar : War ja wieder Klar, Das du mit deinem StringRegExp kommst
Wenn ich das Auch könnte, Hätte ich das auch Bestimmt so gemacht.

Nur das einzige Problem ist, Ich komme mit den Pattern nicht so ganz Klar!

**Raupi**

Oscar .

Warum

[autoit]

Return StringRegExpReplace($sDual, '\A0*([10]*)', '%$1')

[/autoit]

und nicht

[autoit]

Return StringRegExpReplace($sDual, '\A0*([10]*)', '$1')

[/autoit]

für was soll das % gut sein?

**Oscar**

Raupi : Das Prozentzeichen sollte nur als Kennzeichnung für die Binärzahl stehen. Das man weiß, es handelt sich nicht um eine Dezimalzahl.

**Raupi**

Achso, jetzt weiß ich warum