Bin <-> Dez

#NewScriptBegin Convert
 
Sub ToBin(Dez)
  i=23
  tval=val(Dez)
  do
    if tval \ 2^i > 0  then
      strout=strout & 1
      tval=tval-2^i
    else
      strout=strout & 0
    end if
    if i mod 4 = 0 and i > 0 then strout=strout & "-"
    i=i-1
  loop until i < 0
  ToBin=strout
End Sub
 
Sub FromBin(BinZahl)
  ZahlLen = len(BinZahl)
  i=ZahlLen
  outval=0
  do
    outval=outval+val(mid(BinZahl,i,1))*2^(ZahlLen-i)
    i=i-1
  loop until i = 0
  FromBin=outval
End Sub

Eigene Werkzeuge