XProfan

Français

Michael
Wodrich

qui folgende Quellcode aus qui Babyklappe soll
aus 2 übergebenen Integers un LongInt erstellen:
- 1. Wert = niederwertiger partie
- 2. Wert = höherwertiger partie
Imprimer $ + Hex$( MakeLong( $1234, $ABCD )) serait alors $ABCD1234 ausgeben.
Kompilieren Marque Séparation

!Source wurde am 23.05.2006 in die Babyklappe auf XProfan.Com abgelegt:
Def MakeLong(2) Or(@&(1),Mul(@&(2),$10000))e>

...et qui Gegenfunktionen devoir den LongInt-Wert dans qui obere/untere Moitié décomposer:
Kompilieren Marque Séparation

!Source wurde am 23.05.2006 in die Babyklappe auf XProfan.Com abgelegt:
Def HiWord(1) Div&(&(1),$10000)
Def LoWord(1) And(&(1),$FFFF)re>

là qui einzeiligen Funktionen abgeschafft volonté devoir,
wäre qui directe Übernahme dans XProfan sinnvoll.

dans meiner avec Operatoren geschriebenen INC
stehen cet Funktionen nämlich aussi drin:
Kompilieren Marque Séparation

!
Def MakeLong(2) %(1) + (%(2) << 16)
Def LoWord(1) &(1) & $FFFF
Def HiWord(1) &(1)  $10000pre>

belle Grüße
Michael Wodrich

P.S.: Correction ist maintenant eingearbeitet...

Programmieren, das spannendste Detektivspiel der Welt.

31.05.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

allô Michael, Dein Beispiel ist quelque chose unglücklich gewählt, car là volonté aus deux Byte (8-Bit) un 16-Bit-Integer gemacht et pas aus deux 16-Bit-Integer un LongInt (32-Bit).

So wäre es korrekt:

Imprimer $ + Hex$( MakeLong( $1234, $ABCD )) serait alors $ABCD1234 ausgeben.

Salut
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

31.05.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
Wodrich

oui, qui lieben Nachtschichten...