作者jfriend (一杯綠奶茶的等待)
看板Visual_Basic
標題[請益] 請各位幫幫我.....(剛學VB6.0= =)
時間Tue May 17 23:06:56 2005
老師要我們寫一個程式 有關紅綠燈的
就是在綠燈亮5秒後 換成黃燈亮2秒 紅燈亮7秒
之後再換成綠燈5秒
我有做出來了 但是就是沒辦法讓每個燈變成老師所要求的秒數
然後 順序也完全跑掉 改了很多次 不知道自己到底哪裡錯
希望有人能夠幫我 謝謝!!!
以下是我寫的程式 希望有人能糾正我到底哪裡錯了...
(其實我不大懂 Timer1.Enabled = False 這的意思 >"< )
Dim Index As Integer
Private Sub Command1_Click()
Set Form1.Picture = Image1(Index).Picture
Index = Index + 1
If Index > 2 Then Index = 0
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Timer1_Timer()
Set Form1.Picture = Image1(0).Picture
Timer1.Enabled = False
Timer2.Enabled = True
End Sub
Private Sub Timer2_Timer()
Set Form1.Picture = Image1(1).Picture
Timer2.Enabled = False
Timer3.Enabled = True
End Sub
Private Sub Timer3_Timer()
Set Form1.Picture = Image1(2).Picture
Timer3.Enabled = False
Timer1.Enabled = True
End Sub
Private Sub Timer4_Timer()
Label1.Caption = Time
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.58.168.61
1F：推 BearWu:那個意思代表啟動TRUE、關閉FALSE，TIMER的功用 192.83.195.244 05/18
2F：→ BearWu:有原程式嗎!!有原程式的話，提供一下吧!!比較好解 192.83.195.244 05/18