如何转换C代码中的高字和低字

王朝other·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

HiWords and LoWords from Long Values

When translating C code to VB, you quite often come across the HiWord and LoWord operators, used to pack two integers into a long value. A simple translation of HiWord code will run into difficulties when unsigned integer arithmetic is being

used in the C code and the highest bit of the long value can be set. Since VB doesn't support unsigned arithmetic we have to strip out the high bit and add it back again later to avoid overflows and misleading results.

(当把C代码翻译到VB时,你经常会遇到高字和低字的操作,通常是把两个整型值合成一个长整型。当在C代码中使用了无符号整型,这最高一位是可以被设置的,因此简单的直接转换高字将会遇到困难。由于VB不支持无符号算术符,我们只好剥去这最高一位,在稍后再把它加回来,以避免溢出和错误的结果。)

Start a new project then add a class module. Add the following code to the module:

(开始一个新工程,增添一个类模块。把以下代码写入模块:)

Public Property Get LoWord(ByRef lThis As Long) As Long

LoWord = (lThis And &HFFFF&)

End Property

Public Property Let LoWord(ByRef lThis As Long, ByVal lLoWord As Long)

lThis = lThis And Not &HFFFF& Or lLoWord

End Property

Public Property Get HiWord(ByRef lThis As Long) As Long

If (lThis And &H80000000) = &H80000000 Then

HiWord = ((lThis And &H7FFF0000) \ &H10000) Or &H8000&

Else

HiWord = (lThis And &HFFFF0000) \ &H10000

End If

End Property

Public Property Let HiWord(ByRef lThis As Long, ByVal lHiWord As Long)

If (lHiWord And &H8000&) = &H8000& Then

lThis = lThis And Not &HFFFF0000 Or ((lHiWord And &H7FFF&) * &H10000) Or &H80000000

Else

lThis = lThis And Not &HFFFF0000 Or (lHiWord * &H10000)

End If

End Property

调用时,假定类模块取名CHiLo

Dim chl As New CHiLo

Dim a As Long

chl.LoWord(a) = &HFFFF0

chl.HiWord(a) = &HFFFF1

Me.Caption = Hex(a)

如此便可以正确无误地将高字和低字合成在一起。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航