Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:bindez [2005/07/08 21:21]
192.168.0.50 angelegt
nettalk:scripting:bindez [2005/07/08 21:30] (aktuell)
192.168.0.50
Zeile 1: Zeile 1:
 +====== Bin <-> Dez ======
  
 +<code vb>
 +#​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
 +</​code>​

Eigene Werkzeuge