Столкнулся с необходимостью перевода изменения формата представления числа из двоичной системы в 10-ую и обратно.
Есть ли в AutoItе подобные ф-ии ?
Я не нашел и пришлось вернуться к изучению основ информатики.
Написал простенькие ф-ии :
и терзаюсь сомнениями не изобрел ли я велосипед ?
Может я плохо искал ? Просьба подсказать.
Есть ли в AutoItе подобные ф-ии ?
Я не нашел и пришлось вернуться к изучению основ информатики.
Написал простенькие ф-ии :
Код:
#include <String.au3>
$bBin="10110110"
ConsoleWrite($bBin& @LF)
$iDec=BinToDec($bBin)
ConsoleWrite($iDec& @LF)
$bBin=DecToBin($iDec)
ConsoleWrite($bBin& @LF)
;========================================
Func BinToDec($b)
$ilen=StringLen($b)
Local $iRez=0
For $i=1 To $ilen
$iI=StringMid($b,$i,1)
$iRez+=$iI*2^($ilen-$i)
Next
Return $iRez
EndFunc
;========================================
Func DecToBin($iDec)
Local $bRez
Do
$bb=Mod($iDec,2)
$iDec=($iDec-$bb)/2
$bRez&=$bb
Until $iDec<1
Return _StringReverse($bRez)
EndFunc
и терзаюсь сомнениями не изобрел ли я велосипед ?
Может я плохо искал ? Просьба подсказать.