FiveTech Software tech support forums

Estimado Dario,

[x]Harbour no admite $XOR$

Prueba a usar hb_bitXor() ó nXor() de FWH

... } return(vl_iLRC); }; // SEGUN FORO DE FIVEWIN function LRC( cText ) local nCheckSum := 0 local n for n = 1 to Len( cText ) nCheckSum = nXor( nCheckSum, Asc( SubStr( cText, n, 1 ) ) ) next return (nCheckSum) // valores esperados vs obtenidos con metodo fivewin LRC() // valor esperado ...

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

... checksum esta apartir de "*" nSum2 := Asc( Substr( cCad, 1, 1 ) ) // cogemos el primer caracter a sumar FOR c := 2 TO nLen -1 nSum2 := nXor( nSum2, Asc( Substr( cCad, c, 1 ) ) ) NEXT RETURN IIF( nSum1 == nSum2, .t., .f. ) ////////////////////////////////////////// // // Actualiza los ...

... checksum esta apartir de "*" nSum2 := Asc( Substr( cCad, 1, 1 ) ) // cogemos el primer caracter a sumar FOR c := 2 TO nLen -1 nSum2 := nXor( nSum2, Asc( Substr( cCad, c, 1 ) ) ) NEXT RETURN IIF( nSum1 == nSum2, .t., .f. ) ////////////////////////////////////////// // // Actualiza los ...

Dutch,

Once you create your MDICHILD window, do this:

#define GWL_STYLE -16

SetWindowLong( oWndChild:hWnd, GWL_STYLE, nXor( GetWindowLong( oWndChild:hWnd, GWL_STYLE ), WS_SYSMENU ) )

... cRecno := '' FOR n=1 TO 6 nRecno += 'Val( NumToHex( Asc("' + StrChar(cCad , n) + '")))' if n < 6 nRecno += ', ' endif NEXT MsgInfo ( nXor ( nRecno ) ) => 0 está mal MsgInfo( nXor( Val( NumToHex( Asc( "1" ) ) ), ; Val( numtohex( Asc( "2" ) ) ), ; Val( numtohex( ...

Manuel,

Prueba asi:

Code: Select all  Expand view

function Test()

   MsgInfo( nXor( Val( hb_numtohex( Asc( "1" ) ) ), Val( hb_numtohex( Asc( "2" ) ) ) ) )

   MsgInfo( nXor( 31, 32 ) )

return nil

alert (numtohex ("1")) => 31 alert (numtohex ("2")) => 32 pero alert ( nXor( NUMTOHEX("1"), NUMTOHEX("2") ) => 0 (valor incorrecto) alert ( nXor( (StrToHex("1")), (StrToHex("2") ) )) => 0 (valor incorrecto) ...

... nRGBGreen() nRGBRed() nSerialA() nSerialHD() nStrCrc() nStrHash() nTcwRow() NtxPos() nTxtLines() nWindows() nWndChrHeight() nWRow() nWRows() nXOr() Saludos, Carlos Gallego

Thanks for confirmation,
Dutch

yes

Dear All,

After test, I found all function return the same value.

It means
Xor(funcky) == nXor(FWH) == NumXor(xHarbour) == .T.

Is it correct?

Regards,
Dutch

Dear All,

I try to convert my Clipper to 32bits. Xor() function is equal to which function?

Xor(funcky) == nXor(FWH)
or
Xor(funcky) == NumXor(xHarbour)

Which one is equal to?

Regards,
Dutch

...               nStyle = ParseDlgStyle( AllTrim( SubStr( cLine, 6 ) ) )               if lAnd( nStyle, WS_CHILD )                  nStyle = nXor( nStyle, WS_CHILD )               endif               if nAnd( nStyle, WS_CAPTION ) != WS_CAPTION                  nStyle = nOr( nStyle, WS_CAPTION ...