XProfan

Español

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Zahlenumwandlung (Dezimalzahl en Hexadezimalzahl)
Lauffähig de Profano-Versión 5.0
IntToHex
(c) 1996 Thomas Hölzer, Johann-Hus-Str. 8, 57078 Siegen
Kontakt: thoelzer@tehsoft.de
http://www.prfellow.de
Einen (Largo)-Integerwert en Hex umwandeln (como Hex$ de Profano 5)
Parámetro: Vorzeichenloser Longint
Def HiByte(1) Div&(&(1),$100)
Def LoByte(1) And(&(1),$FF)
Def HiWord(1) Div&(&(1),$10000)
Def LoWord(1) And(&(1),$FFFF)
Def Byte2Hex(1) Add$(Mid$(0123456789ABCDEF,Add(Div&(%(1),16),1),1),
Mid$(0123456789ABCDEF,Add(Mod(%(1),16),1),1))

Proc IntToHex

    Parámetros z&
    Declarar hx$,hiw&,low&

    Proc Word2Hex

        Parámetros z%
        Volver  Add$(Byte2Hex(HiByte(z%)),Byte2Hex(LoByte(z%)))

    ENDPROC

    Let low&=LoWord(z&)
    Let hiw&=HiWord(z&)

    If hiw&

        Word2Hex hiw&
        Let hx$=$(0)

    Más

        Let hx$=0000

    EndIf

    If low&

        Word2Hex low&
        Let hx$=hx$;$(0)

    Más

        Let hx$=hx$;0000

    EndIf

    Mientras que Equ$(Mid$(hx$,1,1),0)

        Let hx$=Del$(hx$,1,1)

    Wend

    Let hx$=$;hx$
    Case Equ(Len(hx$),1): Let hx$=$0
    Volver hx$

ENDPROC

Ejemplo
Declarar test$
Cls

Sinestar encargado Equ(%button,2)

    Let test$=Entrada$(Dezimalzahl eingeben - Hex erscheint en el Titel,$(0),)
    Case Equ(%button,1): IntToHex test$

Wend