XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Zahlenumwandlung (Dezimalzahl dans Hexadezimalzahl)
Lauffähig ab Profan-Version 5.0
IntToHex
(c) 1996 Thomas Bois, Johann-Hus-Str. 8, 57078 Siegen
contact: thoelzer@tehsoft.de
http://www.prfellow.de
Einen (Long)-Integerwert dans Hex transformer (comment Hex$ ab Profan 5)
paramètre: 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) Ajouter$(Mid $(0123456789ABCDEF,Ajouter(Div&(%(1),16),1),1),
Mid $(0123456789ABCDEF,Ajouter(Mod(%(1),16),1),1))

Proc IntToHex

    Paramètres z&
    Déclarer hx$,hiw&,low&

    Proc Word2Hex

        Paramètres z%
        Retour  Ajouter$(Byte2Hex(HiByte(z%)),Byte2Hex(LoByte(z%)))

    ENDPROC

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

    Si hiw&

        Word2Hex hiw&
        Laisser hx$=$(0)

    D'autre

        Laisser hx$=0000

    EndIf

    Si low&

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

    D'autre

        Laisser hx$=hx$;0000

    EndIf

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

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

    Wend

    Laisser hx$=$;hx$
    Cas Equ(Len(hx$),1): Laisser hx$=$0
    Retour hx$

ENDPROC

Beispiel
Déclarer test$
Cls

WhileNot Equ(%button,2)

    Laisser test$=Contribution$(Dezimalzahl eingeben - Hex erscheint im Titel,$(0),)
    Cas Equ(%button,1): IntToHex test$

Wend