建站
咨詢
售后
建站咨詢
新聞中心
用VB編個(gè)紅綠燈的程序，要求紅燈停留5秒在跳黃燈，黃燈停留三秒跳綠燈，綠燈停留五秒再跳紅燈，無限循環(huán)
貼三張照片，紅黃綠燈各一張
創(chuàng)新互聯(lián)公司是一家專注于網(wǎng)站制作、成都網(wǎng)站制作與策劃設(shè)計(jì),邊壩網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)公司做網(wǎng)站,專注于網(wǎng)站建設(shè)十年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:邊壩等地區(qū)。邊壩做網(wǎng)站價(jià)格咨詢:18982081108
紅image1(0)
黃image2(1)
綠image3(2)
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) '聲明
Private Sub Form_activate()
image1(0).visible=true
image1(1).visible=false
image1(2).visible=false
i=1
doevents
sleep (5)
do while true
if i2 then i=i-3
image1(i-1).visible=not image1(i-1).visible
image1(i).visible=not image1(i).visible
doevents
sleep(5)
i=i+1
loop
end sub
用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.net怎么實(shí)現(xiàn)單擊數(shù)字區(qū)域的按鈕使按鈕變紅色，單擊運(yùn)算符按鈕變藍(lán)色同時(shí)數(shù)字區(qū)按鈕還原？緊急在線等…
您好，這種方法可以通過按鈕的MouseDown和MouseUp事件來實(shí)現(xiàn)，比如說，當(dāng)單擊按鈕RedColor（RedColor為這個(gè)按鈕的Name屬性的屬性值）的時(shí)候，要使按鈕的顏色變成紅色，這可以在代碼視圖中的控件選擇下拉列表中選擇RedColor這個(gè)控件，然后在右邊的事件下拉列表中選擇MouseDown事件（當(dāng)按下鼠標(biāo)時(shí)發(fā)生），這時(shí)，Visual Studio會(huì)自動(dòng)生成如下代碼：
Private Sub RedColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RedColor.MouseDown
End Sub
接下來就在當(dāng)前生成的代碼中寫入如下代碼：
RedColor.BackColor = Color.FromArgb(255, 0, 0)
這句代碼的作用是利用Color下的FromArgb方法來設(shè)置RGB顏色參數(shù)，在RGB顏色系統(tǒng)中，R代表紅色，G代表綠色，B代表藍(lán)色，根據(jù)這三種顏色的不同程度的調(diào)和，就會(huì)得到不同的顏色，如果您要得到深色的天藍(lán)色，則可以設(shè)置FromArgb(0, 191, 255)，這個(gè)顏色轉(zhuǎn)換為HTML中的RGB顏色就是#00BFFF。
當(dāng)然顏色還原最好是寫在MouseUp事件里面，這樣就不必在單擊其他按鈕時(shí)來還原上一次按下的按鈕的顏色，在這里，為了方便描述，我們假設(shè)按鈕的默認(rèn)顏色為白色，也就是FromArgb方法設(shè)置為FromArgb(255, 255, 255)的時(shí)候，所標(biāo)示的顏色就是白色
所以選擇了RedColor按鈕的MouseUp事件后，Visual Studio會(huì)自動(dòng)生成下列代碼：
Private Sub RedColor_MouseUp(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RedColor.MouseUp
End Sub
MouseUp的含義是當(dāng)鼠標(biāo)彈起時(shí)發(fā)生，所以在這個(gè)事件就可以設(shè)置按鈕顏色的還原，即添加下列代碼來實(shí)現(xiàn)：
RedColor.BackColor = Color.FromArgb(255, 255, 255)
當(dāng)然，這就編寫好了一個(gè)按鈕按下時(shí)變色，回彈時(shí)還原的功能，至于另外一個(gè)按鈕的功能，這與這個(gè)按鈕的功能一樣，只是代碼有一些細(xì)微的差別而已，假設(shè)這個(gè)按鈕的Name屬性的屬性值為BlueColor，相應(yīng)的代碼對(duì)應(yīng)如下：
Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BlueColor.MouseDown
BlueColor.BackColor = Color.FromArgb(0, 0, 255) '藍(lán)色的FromArgb
End Sub
Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BlueColor.MouseDown
BlueColor.BackColor = Color.FromArgb(255, 255, 255)
End Sub
另外，為了避免代碼的冗余，可以將RedColor和BlueColor的MouseUp事件進(jìn)行合并，這合并后的代碼如下：
Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BlueColor.MouseDown, RedColor.MouseUp
BlueColor.BackColor = Color.FromArgb(255, 255, 255)
RedColor.BackColor = Color.FromArgb(255, 255, 255)
End Sub
當(dāng)然，這個(gè)你只要分析了控件事件代碼的基本結(jié)構(gòu)，一切就一目了然了，控件事件代碼的基本結(jié)構(gòu)如下：
[作用域] Sub 事件名([參數(shù)列表]) Handles 控件事件1 [, 控件事件2, 控件事件3...]
[事件代碼區(qū)域]
End Sub
如果此回答對(duì)您有幫助，別忘了采納哦，如果沒有解決您的問題，您可以在互聯(lián)網(wǎng)上尋找更多關(guān)于此問題的解決方案，謝謝！
VB紅綠燈代碼
Private Sub Form_Load()
Timer1.Interval = 30000
End Sub
Private Sub Timer1_Timer()
Static a As Integer
a = a + 1
If a = 1 Then
Shape1.FillColor = vbRed
ElseIf a = 2 Then
Shape1.FillColor = vbYellow
ElseIf a = 3 Then
Shape1.FillColor = vbGreen
ElseIf a = 4 Then
Shape1.FillColor = vbYellow
ElseIf a 4 Or a = 1 Then
a = a - 4
Shape1.FillColor = vbRed
End If
End Sub
用VB.net模擬十字路口紅綠燈交通信號(hào)的切換
實(shí)在不難，就是不知道你寫了代碼沒有？
答案補(bǔ)充：
Dim xuhao As Integer
Const wenjianjia = "" '自己寫好了
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
xuhao = xuhao + 1
If xuhao = 4 Then xuhao = 1
Picture1.Picture = LoadPicture(wenjianjia "\" xuhao ".ico")
End Sub
新聞名稱：vb.net紅綠燈代碼 vbs整人代碼
轉(zhuǎn)載注明：http://www.dlmjj.cn/article/dooheii.html
