fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Nützliche Functionen, die bis jetzt Fehlten

Uploader:	AndT
Datum/Zeit:	05.11.2007 12:25:27

function val2bin (vaule as integer) as string

    dim tconv as string = bin(vaule)

    function = tconv

end function



function val2hex (vaule as integer) as string

        function = hex(vaule)

end function



function bin2val (binaer as string) as integer

    dim as string tconv = "&b" + binaer

    Function =  VAL(tconv)

end function



function bin2hex (binaer as string) as string

    dim as string tconv = "&b" + binaer

    function = val2hex(val(tconv))

end function



function hex2val (hexcode as string) as integer



    function = val("&h" + hexcode)

end function



function hex2bin (hexcode as string) as string

    dim as string tconv = "&h" + hexcode

    function = val2bin(val(tconv))

end function

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.