Re: [VB6 ] 關於VB6位元左移問題

看板Visual_Basic作者Yaiba (緋心刀刃)時間14年前 (2012/02/14 12:16)推噓0(0推 0噓 9→)

留言9則, 3人參與討論串4/4 (看更多)

VB 2005 已經支援左移了 http://msdn.microsoft.com/zh-tw/library/b6ex274z(v=vs.80).aspx Dim lResult, rResult As Integer Dim pattern As Integer = 12 ' The low-order bits of pattern are 0000 1100. lResult = pattern << 3 ' A left shift of 3 bits produces a value of 96. rResult = pattern >> 2 ' A right shift of 2 bits produces value of 3. 雖然是我的話也是用VB6寫...VB6不死!!!! ※ 引述《fumizuki (矇面加菲獅)》之銘言： : '左移 : '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 (喲)》之銘言： : : ^ 應該是乘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 -- 常發人好人名片　　　Yaiba：您好，我是好人　　　　　　幫正妹組電腦送到府　　　　　　　　　外加一年到府維護 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 42.74.1.2

→

MOONRAKER

02/14 14:54, , 1^F

02/14 14:54, 1^F

→

MOONRAKER

02/14 14:55, , 2^F

02/14 14:55, 2^F

→

Yaiba

02/14 15:09, , 3^F

02/14 15:09, 3^F