XProfan

Español

Michael
Wodrich

Der folgende Quellcode de el Babyklappe se
de 2 übergebenen Integers una LongInt redactar:
- 1. Valor = niederwertiger Teil
- 2. Valor = höherwertiger Teil
Imprimir $ + Hex$( MakeLong( $1234, $ABCD )) sería also $ABCD1234 ausgeben.
Kompilieren Marca Separación

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

...y el Gegenfunktionen debería el LongInt-Valor en el obere/untere Hälfte zerlegen:
Kompilieren Marca Separación

!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>

Como el einzeiligen Características abgeschafft voluntad debería,
wäre el direkte Übernahme en XProfan sinnvoll.

In meiner con Operatoren geschriebenen INC
posición esta Características nämlich auch drin:
Kompilieren Marca Separación

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

Schöne Grüße
Michael Wodrich

P.S.: Corrección es ahora eingearbeitet...

Programmieren, das spannendste Detektivspiel der Welt.

31.05.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

¡Hola Michael, Su Ejemplo es algo unglücklich gewählt, porque como voluntad de zwei Byte (8-Bit) una 16-Bit-Integer gemacht y no de zwei 16-Bit-Integer una LongInt (32-Bit).

So wäre lo korrekt:

Imprimir $ + Hex$( MakeLong( $1234, $ABCD )) sería also $ABCD1234 ausgeben.

Saludo
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 Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Wodrich

sí, el lieben Nachtschichten...