value And H2 取第二位狀態(tài)(按二進(jìn)制,0或1)
成都創(chuàng)新互聯(lián)網(wǎng)站建設(shè)服務(wù)商,為中小企業(yè)提供成都網(wǎng)站設(shè)計、網(wǎng)站建設(shè)服務(wù),網(wǎng)站設(shè)計,網(wǎng)站托管維護(hù)等一站式綜合服務(wù)型公司,專業(yè)打造企業(yè)形象網(wǎng)站,讓您在眾多競爭對手中脫穎而出成都創(chuàng)新互聯(lián)。
x \ H2 \ 是整除,整除2,意味著將剛才取到的第二位右移一位
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)容太多,不再詳述。原理都一樣
1左移10位,1后面加10個0
結(jié)果就是:10000000000
五、按位運算符
注意不能在VB.Net中直接使用以下二進(jìn)制數(shù),使用時需轉(zhuǎn)換為相應(yīng)的十六或十進(jìn)制數(shù)字。
1. 表示按位左移,空缺處補(bǔ)0。如:101101 2 結(jié)果為 110100
2. 表示按位右移,如:101101 2 結(jié)果為 001011
見下面代碼,放置定時器,按鈕,標(biāo)簽各一個
Public?Class?Form1
Private?Sub?Timer1_Tick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick?'定時器
If?Label1.Right??Me.Width?Then
Label1.Left?+=?10'移動距離
Else
Label1.Left?=?0
End?If
End?Sub
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click?'開啟或者關(guān)閉定時器
Timer1.Interval?=?1000?'1秒
If?Timer1.Enabled?=?False?Then
Timer1.Start()?'開定時器
Else
Timer1.Stop()?'關(guān)定時器
End?If
End?Sub
End?Class