[請益] 請各位幫幫我.....(剛學VB6.0= =)
老師要我們寫一個程式 有關紅綠燈的
就是在綠燈亮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
推
192.83.195.244 05/18, , 1F
192.83.195.244 05/18, 1F
→
192.83.195.244 05/18, , 2F
192.83.195.244 05/18, 2F
討論串 (同標題文章)
完整討論串 (本文為第 1 之 2 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
