vb.net繪制燈 vb指示燈怎么畫
用VB.NET編寫一個(gè)交通燈的程序
下面這個(gè)希望可以幫到你~交通燈
北碚ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景，ssl證書未來(lái)市場(chǎng)廣闊！成為創(chuàng)新互聯(lián)建站的ssl證書銷售渠道，可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：028-86922220（備注：SSL證書合作）期待與您的合作！
實(shí)例說明在本實(shí)例中，我們將制作一個(gè)具有交通燈效果的應(yīng)用程序。程序運(yùn)行后，交通燈不斷地變化，可以通過按鈕運(yùn)行或停止程序。程序運(yùn)行結(jié)果如圖88-1所示。技術(shù)要點(diǎn)l 不斷變換圖片l 不斷更改時(shí)間間隔 type="text/javascript" type="text/javascript" src=" "
實(shí)現(xiàn)過程■ 新建項(xiàng)目打開Visual Studio.NET，選擇"新建項(xiàng)目"，在項(xiàng)目類型窗口中選擇"Visual Basic項(xiàng)目"，在模板窗口中選擇"Windows應(yīng)用程序"，在名稱域中輸入"Traffic"，然后選擇保存路徑。單擊"確認(rèn)"。■ 添加控件向當(dāng)前窗體添加一個(gè)Timer控件，用于控制交通燈變換的時(shí)間；三個(gè)Picture控件，分別裝入相應(yīng)的圖片；一個(gè)Button按鈕，用于控制交通燈。屬性保持默認(rèn)值?！?添加代碼Dim vv As BooleanDim updirec As BooleanPrivate Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Clickvv = Timer1.Enabledvv = Not vvTimer1.Enabled = vvIf vv ThenCommand1.Text = "開 始"ElseCommand1.Text = "停 止"End IfEnd SubPrivate Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.TickStatic i As ShortSelect Case iCase 0Timer1.Interval = 3000picicon0.Visible = Truepicicon1.Visible = Falsepicicon2.Visible = Falsei = i + 1updirec = FalseCase 1Timer1.Interval = 1000picicon0.Visible = Falsepicicon1.Visible = Truepicicon2.Visible = False'Me.Icon = picicon(i).ImageIf updirec Theni = i - 1Elsei = i + 1End IfCase 2Timer1.Interval = 3000picicon0.Visible = Falsepicicon1.Visible = Falsepicicon2.Visible = Truei = i - 1updirec = TrueEnd SelectEnd Sub■ 運(yùn)行程序單擊菜單"調(diào)試|啟動(dòng)"或單擊 圖標(biāo)運(yùn)行程序。
vb.net 串口點(diǎn)亮小燈
SCON = 0x50; //REN=1允許串行接受狀態(tài)，串口工作模式1 TMOD|= 0x20; 試下這個(gè)程序，PC發(fā)什么，它就回送什么，收到數(shù)據(jù)，點(diǎn)亮P2.0的LED。
用VB.NET編寫紅綠燈程序
給你思路把：當(dāng)汽車運(yùn)動(dòng)時(shí)，他的left和top和right(left+width)和bottom(top+height)碰到紅綠燈的范圍，就停止汽車運(yùn)動(dòng)的那個(gè)計(jì)時(shí)器，并將另一個(gè)計(jì)時(shí)器的時(shí)間設(shè)為延時(shí)秒數(shù)并開啟，里面的代碼是打開騎車運(yùn)動(dòng)的計(jì)時(shí)器。
用vb制作走馬燈 窗體代碼全過程
1、使用label(標(biāo)簽）來(lái)模擬燈，只要修改label背景就可以實(shí)現(xiàn)跑馬燈效果。
2、工具vb6
3、示例：
Private?WithEvents?NewTimer?As?Timer
Private?Sub?Form_Load()
Dim?i?As?Integer
For?i?=?1?To?10
Set?NewLabel?=?Controls.Add("vb.label",?"label"??i,?Me)
NewLabel.Move?i?*?200,?100,?100,?100
NewLabel.BackColor?=?vbWhite
NewLabel.Visible?=?True
Next
Set?NewTimer?=?Controls.Add("vb.timer",?"Timer1",?Me)
NewTimer.Interval?=?200
NewTimer.Enabled?=?True
End?Sub
Private?Sub?NewTimer_Timer()
Static?i?As?Integer
i?=?i?+?1
Me("label"??i).BackColor?=?vbRed
If?i?=?1?Then
If?i?=?1?Then?i?=?11
Me("label"??i?-?1).BackColor?=?vbWhite
If?i?=?11?Then?i?=?1
End?If
If?i?=?10?Then?i?=?0
End?Sub
4、注意：復(fù)制以上代碼到代碼窗體，不要加任何控件，直接運(yùn)行即可。
新聞標(biāo)題：vb.net繪制燈 vb指示燈怎么畫
URL地址：http://m.jiaotiyi.com/article/dohejej.html