作者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