Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:zahlensysteme [2005/07/14 14:52]
192.168.0.50
nettalk:scripting:zahlensysteme [2005/07/15 19:27] (aktuell)
192.168.0.50
Zeile 1: Zeile 1:
 +====== Zahlensysteme ======
  
 +<code vb>
 +#​NewScriptBegin Convert2
 +
 +Function FromDez(Dez,​ System)
 +  if val(System)=0 then System=2
 +  i=23
 +  tval=val(Dez)
 +  do
 +    strout=hex(tval mod System) & strout
 +    tval=tval \ System
 +  loop until tval < 1
 +  FromDez=strout
 +End Function
 +
 +Function ToDez(Zahl, System)
 +  if val(System)=0 then System=2
 +  ZahlLen = len(Zahl)
 +  i=ZahlLen
 +  outval=0
 +  do
 +    outval=outval+val("&​H"​+mid(Zahl,​i,​1))*System^(ZahlLen-i)
 +    i=i-1
 +  loop until i = 0
 +  ToDez=outval
 +End Function
 +</​code>​

Eigene Werkzeuge