#include <String.au3>

$sUserInput = InputBox("Binary-Converter", "Geben sie eine Zahl ein .:", "", " M", 200, 125)
If @error Then Exit

MsgBox(64, "Dual Zahl", _ConvertIntToDual(Int($sUserInput)))

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