用bitarray類和BitVector32類實現
創新互聯建站網站建設由有經驗的網站設計師、開發人員和項目經理組成的專業建站團隊,負責網站視覺設計、用戶體驗優化、交互設計和前端開發等方面的工作,以確保網站外觀精美、網站設計、成都做網站易于使用并且具有良好的響應性。
VB實現大致如下:
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?'這樣數據肯定是-398
Next
....
vb6.0中也有,
數字 就是讓這個數字為long型(隱式聲明Long 數據類型)
這就顯然是令數字0為long型的意思
如果不加就會默認是integer型
有很多作用
c=a b 就是把a和b以字符串形式連接起來并賦給c
如果只是要將其它類型數據轉換為字符串只要用cstr(變量)就行了
dim x 在定義的時候就是把變量x定義為long型,就像 dim x as long 一樣的效果
H十六進制數 的H表示后面的是十六進制數,還有O是表示后面的是八進制數
VB中不能用。
VB也可以按位與運算的。
x=15 and 8的值就是8。
VB中的And可以表示按位與,也可以表示邏輯與,就看參與運算的量是什么類型的了。
value And H2 取第二位狀態(按二進制,0或1)
x \ H2 \ 是整除,整除2,意味著將剛才取到的第二位右移一位
注意只能對整型執行按位運算。浮點值必須轉換為整型后,才能執行按位運算。按位運算采用二進制(以 2 為基)形式計算兩個整數值。它們比較對應位置上的位,然后基于比較的結果賦值。下面的示例演示了 And 運算符。復制Dim x As Integerx = 3 And 5 前面的示例將 x 的值設置為 1。發生這種情況的原因如下:這些值以二進制形式處理:二進制格式的 3 為 011二進制格式的 5 為 101And 運算符比較這些二進制表示方式,一次比較一個二進制位置(位)。如果給定位置的兩個位都為 1,則將 1 放在結果中的該位置。如果任何一個位是 0,則將 0 放在結果中的該位置。在前面的示例中,按如下所示計算結果:011(二進制格式的 3)101(二進制格式的 5)001(二進制格式的計算結果)計算結果以十進制形式處理。值 001 是 1 的二進制表示形式,因此 x = 1。除了在任何一個比較位是 1 或兩個比較位都是 1 的情況下將 1 賦予結果位以外,按位 Or 運算與此類似。Xor 在比較的位正好只有一個是 1(而不是兩者都是 1)時將 1 賦給結果位。Not 采用單個操作數并反轉所有位(包括符號位),然后將該值賦予結果。這意味著,對于有符號正數,Not 始終返回負值,而對于負數,Not 始終返回正值或零。AndAlso 和OrElse 運算符不支持按位運算。 追問: 好復雜啊...還是不會,還有整數怎么轉換為二進制數? 回答: 為什么一定要用位運算呢,你那個乘法只能通過左移操作符“ ”來進行,而左移一次代表乘以2,要是乘以一個小數,就必須先化成2的n次方,不夠再用加減法調整,很麻煩啊,沒必要用位運算啊。。。 追問: 因為我要進行大量的運算,但速度要快,所有用位運算...我也不想啊.. 回答: 那就不該用VB 啊,c/c++在執行效率上是沒話說的。 追問: 問題就是不會嘛... 回答: 那你上csdn上發帖效果應該不錯 追問: CSDN發了,我發在高性能運算,沒人... 回答: 耐心一些,或者你應該發到VB.NET論壇那里。。。 追問: 額..只能這樣了... 提問者 的感言: 太復雜了..算了 2010-11-08
分享標題:vb.net怎么按位與 vbnet dir
本文鏈接:http://m.newbst.com/article16/doihdgg.html
成都網站建設公司_創新互聯,為您提供ChatGPT、App開發、微信小程序、網頁設計公司、網站設計公司、商城網站
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯