作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 关於VB6位元左移问题
时间Sun Feb 5 13:52:51 2012
'左移
'Length 位元数量，预设给8bits(1bytes)
Public Function ShiftL(ByVal Num As Long, _
Optional Length As Integer = 8) As Long
Dim Max As Long
Max = 2 ^ (Length - 1) '最高位元的10进位值
If Num >= Max Then '先减去最高位元
Num = Num - Max
End If
ShiftL = Num * 2
End Function
'右移
Public Function ShiftR(ByVal Num As Long) As Long
ShiftR = Fix(Num / 2) '除以2，取整数即可
End Function
※ 引述《yauhh (哟)》之铭言：
: ※ 引述《sanlinchang (<---剩男)》之铭言：
: : arry[i]/2 |= arry[i]-48 << 4
: : arry(i)\2 = (arry(i) or ((arry(i)-48)+16))
: ^ 应该是乘16
: VB6有错误处理机制,可以on error goto 指定的程式段落.
: 左移运算可以这样子做:
: environ.bas
: ---------------------------
: Option Explicit
: Public Function ShiftL(Num As Long) As Long
: On Error GoTo handle_overflow
: ShiftL = Num * 2 '绝大部分只要一个乘二即可,如果嫌乘法慢,可以写Num+Num.
: Exit Function
: handle_overflow:
: HandleOverflow Num
: End Function
: 'HandleOverflow Num 时,知道Num一定是二进位值为1xxxxxxxxx...x,
: '这时候要看你要实作算术左移或是普通左移,或者是循环左移.
: '以下做普通左移:
: Private Function HandleOverflow(Num as Long) As Long
: Dim bit_len As Integer
: Dim temp As Long
: Dim mask as Long
: temp = Num
: bit_len = 0
: While temp <> 1
: temp = temp \ 2
: bit_len = bit_len + 1
: Wend
: '我需要&H7FFFF...F将Num含第二位元之後的值取出.
: mask = CLng("&H7" & String((bit_len-3)/4, "F"))
: HandleOverflow = (Num And mask) * 2
: End Function
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 180.176.149.188
1F：推 yauhh:是正确,但就是不要这样做,每次左移都做那麽多动作. 02/05 14:14
2F：→ yauhh:等最後溢位才来处理溢位,才比较省工 02/05 14:15
3F：→ chinoyan:请问移BYTE的目地是什麽呢? 02/05 20:58
4F：推 Marty:移位元很多地方用的到 例如:解BCD Code.... 02/05 23:06
5F：→ MOONRAKER:跟游泳跑步的目的是一样的。 02/06 00:19