alguien sabe como podemos hacer las operaciones de bitshift que equivalen al asm de SAL y SAR ?
gracias
Esto debería funcionar:
Public Function SAL(ByVal a As Long, ByVal n As Byte) As Long
SAL = a * (2 ^ (n Mod 32))
End Function
Public Function SAR(ByVal a As Long, ByVal n As Byte) As Long
SAR = a \ (2 ^ (n Mod 32))
End Function
ok gracias
no tenemos por aquí alguna recopilación de operaciones de este tipo?
Recopilacion de Funciones con operaciones Binarias. (http://foro.elhacker.net/vb/recopilacion_de_funciones_con_operaciones_binarias-t329680.0.html)