作者Yaiba (緋心刀刃)
看板Visual_Basic
標題Re: [VB6 ] 關於VB6位元左移問題
時間Tue Feb 14 12:16:53 2012
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
1F：→ MOONRAKER:用清朝的劍殺明朝古人？ 02/14 14:54
2F：→ MOONRAKER:VB6死好，還用VB6，小心當土海盜 02/14 14:55
3F：→ Yaiba:對VB6是一種情感...雖然很多問題..但忘了那些的話還是很好用 02/14 15:09
4F：→ Yaiba:因為VB後面改版有加入一些元素~ C要改版成VB2005說不定容易? 02/14 15:10
5F：→ MOONRAKER:VB.NET的確跟C幹了很多東東 其實不見得是好事 02/14 19:21
6F：→ MOONRAKER:但是VB6不免費阿，就算教學版也應該都已經超過授權範圍 02/14 19:22
7F：→ MOONRAKER:轉到.NET前都覺得很難，可真的轉了好像也沒有那麼難 02/14 19:23
8F：→ yauhh:who cares? 你一個專案用VB6寫,會思考2005有什麼指令嗎? 02/14 20:22
9F：→ yauhh:而且一個專案選擇VB6來做,不會是因為對它有感情這麼簡單. 02/14 20:22