用bitarray類和BitVector32類實(shí)現(xiàn)
成都創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于做網(wǎng)站、成都做網(wǎng)站、婺源網(wǎng)絡(luò)推廣、小程序定制開發(fā)、婺源網(wǎng)絡(luò)營銷、婺源企業(yè)策劃、婺源品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；成都創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供婺源建站搭建服務(wù)，24小時(shí)服務(wù)熱線：18980820575，官方網(wǎng)址：www.cdcxhl.com
VB實(shí)現(xiàn)大致如下：
Imports?System.Collections.Specialized
...
Dim?bvData?as?BitVector32
Dim?sec1?As?BitVector32.Section?=?BitVector32.CreateSection(255)
Dim?sec2?As?BitVector32.Section?=?BitVector32.CreateSection(255,sec1)
Dim?sec3?As?BitVector32.Section?=?BitVector32.CreateSection(255,sec2)
Dim?sec4?As?BitVector32.Section?=?BitVector32.CreateSection(255,sec3)
Dim?Buf(4096)?as?Byte?'receive?byte?size?matched?with?DSP?send?data:?1024*4Byte
Dim?recCount?as?Integer
Dim?Data(1024)?as?long
....
For?recCount?=?0?To?1023
bvData(sec4)?=?buf(recByte*4)
bvData(sec3)?=?buf(recByte*4+1)
bvData(sec2)?=?buf(recByte*4+2)
bvData(sec1)?=?buf(recByte*4+3)
Data(recCount)?=?bvData.Data?'這樣數(shù)據(jù)肯定是-398
Next
....
value And H2 取第二位狀態(tài)（按二進(jìn)制，0或1）
x \ H2 \ 是整除，整除2，意味著將剛才取到的第二位右移一位
vb6.0中也有，
數(shù)字 就是讓這個(gè)數(shù)字為long型（隱式聲明Long 數(shù)據(jù)類型）
這就顯然是令數(shù)字0為long型的意思
如果不加就會(huì)默認(rèn)是integer型
有很多作用
c=a b 就是把a(bǔ)和b以字符串形式連接起來并賦給c
如果只是要將其它類型數(shù)據(jù)轉(zhuǎn)換為字符串只要用cstr(變量)就行了
dim x 在定義的時(shí)候就是把變量x定義為long型,就像 dim x as long 一樣的效果
H十六進(jìn)制數(shù) 的H表示后面的是十六進(jìn)制數(shù),還有O是表示后面的是八進(jìn)制數(shù)
VB中不能用。
VB也可以按位與運(yùn)算的。
x=15 and 8的值就是8。
VB中的And可以表示按位與，也可以表示邏輯與，就看參與運(yùn)算的量是什么類型的了。
1、and ，在VB中And，Or，Not即可以做按位運(yùn)算也可以做邏輯運(yùn)算。
2、而and在vb中是一個(gè)運(yùn)算符，作用就是比較and兩邊的表達(dá)式是否為true
例如：
a = true
b = false
那么 a and b結(jié)果就是false
and 需要兩邊的表達(dá)式均為true時(shí)結(jié)果才是true，否則就為false
AndAlso是短路的邏輯與運(yùn)算符，And有兩個(gè)含義：非短路的邏輯與運(yùn)算符；按位與運(yùn)算符
Dim c=a AndAlso b表達(dá)式中，若表達(dá)式a的計(jì)算結(jié)果是False，無論表達(dá)式b是什么樣，都不再進(jìn)行計(jì)算，直接返回c的值
Dim c=a And b表達(dá)式中，無論a和b是怎樣的表達(dá)式，都要全部計(jì)算完成后再返回c的值
AndAlso相比And的區(qū)別，除了性能優(yōu)勢(shì)外，更重要的是，從語義上來說
If a Then
If b Then
End If
End If
等價(jià)于If a AndAlso b Then而不等價(jià)于If a And b Then
考慮這種情況：
Dim m As ClassM=****
Dim c=m IsNot Nothing AndAlso m.Succeeded
這種實(shí)際編程中經(jīng)常遇到的判斷，如果把AndAlso替換成And，在m Is Nothing的情況下會(huì)引發(fā)NullReferenceException空引用異常，而AndAlso能確保不會(huì)引發(fā)空引用異常
進(jìn)行邏輯運(yùn)算的時(shí)候，And只在一種情況下有價(jià)值：不僅想要得到c的值，而且無論如何都希望執(zhí)行b過程，并且自己能確保a=False不會(huì)影響b的執(zhí)行。其他情況下務(wù)必使用AndAlso
OrElse和Or同理，作為上面那句的逆判斷
Dim c=m Is Nothing OrElse m.Failed
也是經(jīng)常使用的。當(dāng)然在進(jìn)行位運(yùn)算時(shí)，只能用And和Or，AndAlso和OrElse沒有位運(yùn)算功能
注意只能對(duì)整型執(zhí)行按位運(yùn)算。浮點(diǎn)值必須轉(zhuǎn)換為整型后，才能執(zhí)行按位運(yùn)算。按位運(yùn)算采用二進(jìn)制（以 2 為基）形式計(jì)算兩個(gè)整數(shù)值。它們比較對(duì)應(yīng)位置上的位，然后基于比較的結(jié)果賦值。下面的示例演示了 And 運(yùn)算符。復(fù)制Dim x As Integerx = 3 And 5 前面的示例將 x 的值設(shè)置為 1。發(fā)生這種情況的原因如下：這些值以二進(jìn)制形式處理：二進(jìn)制格式的 3 為 011二進(jìn)制格式的 5 為 101And 運(yùn)算符比較這些二進(jìn)制表示方式，一次比較一個(gè)二進(jìn)制位置（位）。如果給定位置的兩個(gè)位都為 1，則將 1 放在結(jié)果中的該位置。如果任何一個(gè)位是 0，則將 0 放在結(jié)果中的該位置。在前面的示例中，按如下所示計(jì)算結(jié)果：011（二進(jìn)制格式的 3）101（二進(jìn)制格式的 5）001（二進(jìn)制格式的計(jì)算結(jié)果）計(jì)算結(jié)果以十進(jìn)制形式處理。值 001 是 1 的二進(jìn)制表示形式，因此 x = 1。除了在任何一個(gè)比較位是 1 或兩個(gè)比較位都是 1 的情況下將 1 賦予結(jié)果位以外，按位 Or 運(yùn)算與此類似。Xor 在比較的位正好只有一個(gè)是 1（而不是兩者都是 1）時(shí)將 1 賦給結(jié)果位。Not 采用單個(gè)操作數(shù)并反轉(zhuǎn)所有位（包括符號(hào)位），然后將該值賦予結(jié)果。這意味著，對(duì)于有符號(hào)正數(shù)，Not 始終返回負(fù)值，而對(duì)于負(fù)數(shù)，Not 始終返回正值或零。AndAlso 和OrElse 運(yùn)算符不支持按位運(yùn)算。 追問： 好復(fù)雜啊...還是不會(huì),還有整數(shù)怎么轉(zhuǎn)換為二進(jìn)制數(shù)? 回答： 為什么一定要用位運(yùn)算呢，你那個(gè)乘法只能通過左移操作符“ ”來進(jìn)行，而左移一次代表乘以2，要是乘以一個(gè)小數(shù)，就必須先化成2的n次方，不夠再用加減法調(diào)整，很麻煩啊，沒必要用位運(yùn)算啊。。。 追問： 因?yàn)槲乙M(jìn)行大量的運(yùn)算,但速度要快,所有用位運(yùn)算...我也不想啊.. 回答： 那就不該用VB 啊，c/c++在執(zhí)行效率上是沒話說的。 追問： 問題就是不會(huì)嘛... 回答： 那你上csdn上發(fā)帖效果應(yīng)該不錯(cuò) 追問： CSDN發(fā)了,我發(fā)在高性能運(yùn)算,沒人... 回答： 耐心一些，或者你應(yīng)該發(fā)到VB.NET論壇那里。。。 追問： 額..只能這樣了... 提問者 的感言： 太復(fù)雜了..算了 2010-11-08
重慶分公司
重慶分公司
