Hi all,
habe eben was kleines entworfen, da ich mit dem Gedanken spiele mir einen Text auf die Art tattoowieren zu lassen und selbstverständlich beim "per Hand convertieren" kein Fehler passieren darf
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("ASC to BIN", 501, 403, 192, 114)
$txt = GUICtrlCreateEdit("", 16, 16, 385, 177)
$bin = GUICtrlCreateEdit("", 16, 208, 385, 177)
$convert = GUICtrlCreateButton("Convert", 408, 16, 75, 65, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $convert
doconv()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func doconv()
Local $out, $asc
Local $str = GUICtrlRead($txt)
For $i = 1 To StringLen($str)
$asc = Asc(StringMid($str, $i, 1))
ConsoleWrite($asc & @CRLF)
$out &= dec2bin($asc) & "."
Next
GUICtrlSetData($bin, StringTrimRight($out, 1))
EndFunc ;==>doconv
Func dec2bin($_iDec, $_xAddZero = True, $_iMaxLen =
Local $_sBin, $_iLen
Do
$_sBin = Mod($_iDec, 2) & $_sBin
$_iDec = Floor($_iDec / 2)
Until $_iDec = 0
If Not $_xAddZero Then Return $_sBin
$_iLen = StringLen(Hex($_iDec, Ceiling($_iMaxLen / 4))) * 4
For $i = 1 To $_iLen - 1
$_sBin = "0" & $_sBin
Next
Return StringRight($_sBin, $_iLen)
EndFunc ;==>dec2bin
P.S.: Habe mich mal wieder der "dec2bin" von m-obi bedient
Gruß,
x0r