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

[Yaiba (緋心刀刃)]

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:用清朝的劍殺明朝古人？
→ MOONRAKER:VB6死好，還用VB6，小心當土海盜
→ Yaiba:對VB6是一種情感...雖然很多問題..但忘了那些的話還是很好用
→ Yaiba:因為VB後面改版有加入一些元素~ C要改版成VB2005說不定容易?
→ MOONRAKER:VB.NET的確跟C幹了很多東東 其實不見得是好事
→ MOONRAKER:但是VB6不免費阿，就算教學版也應該都已經超過授權範圍
→ MOONRAKER:轉到.NET前都覺得很難，可真的轉了好像也沒有那麼難
→ yauhh:who cares? 你一個專案用VB6寫,會思考2005有什麼指令嗎?
→ yauhh:而且一個專案選擇VB6來做,不會是因為對它有感情這麼簡單.