用bitarray類和BitVector32類實(shí)現(xiàn)
創(chuàng)新互聯(lián)建站主要從事成都做網(wǎng)站、網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)立山,十余年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):13518219792
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
....
對位模式執(zhí)行數(shù)學(xué)左移位。
result = pattern amount
各部分說明
result
必選。整型數(shù)值。對該位模式進(jìn)行移位的結(jié)果。數(shù)據(jù)類型與 pattern 的數(shù)據(jù)類型相同。
pattern
必選。整型數(shù)值表達(dá)式。要進(jìn)行移位的位模式。數(shù)據(jù)類型必須為整型(SByte、Byte、Short、UShort、Integer、UInteger、Long 或 ULong)。
amount
必選。數(shù)值表達(dá)式。要將該位模式移位的位數(shù)。數(shù)據(jù)類型必須為 Integer 或擴(kuò)展到 Integer。
備注
數(shù)學(xué)移位不是循環(huán)的,即不會將在結(jié)果的一端移出的數(shù)位從另一端重新移入。在數(shù)學(xué)左移位運(yùn)算中,丟棄移出結(jié)果數(shù)據(jù)類型范圍的數(shù)位,而將右端空出的數(shù)位位置設(shè)置為零。
為防止移位的結(jié)果超出它所支持的位數(shù),Visual Basic 使用與 pattern 的數(shù)據(jù)類型相對應(yīng)的大小掩碼來屏蔽 amount 的值??墒褂眠@些值的二進(jìn)制與運(yùn)算結(jié)果作為移位量。大小掩碼如下所示:
pattern數(shù)據(jù)類型 掩碼(十進(jìn)制)掩碼(十六進(jìn)制)
SByte, Byte 7 H00000007
Short, UShort 15 H0000000F
Integer, UInteger 31 H0000001F
Long, ULong 63 H0000003F
如果 amount 為零,則 result 的值與 pattern 的值相同。如果 amount 為負(fù)值,則將把它作為無符號的值,并使用相應(yīng)的大小掩碼進(jìn)行屏蔽。
數(shù)學(xué)移位絕不會產(chǎn)生溢出異常。
Dim i As Integer
For i = 0 To Me.Width - Button1.Width 'me為容器,典型的是form1
Button1.Left += 1
Windows.Forms.Application.DoEvents()
Next
原理:不斷地變化button1的X軸,使其向右移,同樣,只要控制好其x,y軸,就可以變化button的變化
如果是做小游戲,建議弄成類吧,把其中的左(右)移或?qū)瞧渌苿优善浣涌?,以便操作?/p>
由于涉及內(nèi)容太多,不再詳述。原理都一樣