Re: [.NET] 請問如何用Timer做紅綠燈變換

[alumrof123e (alumrof123e)]

※ 引述《humanfly (laguna)》之銘言：
: 1. 你會不會使用Timer ? 至少要了解 enabled & interval 兩個屬性
: 2. 你應該至少要用到一個counter
:    設interval=1000ms
:    每個tick counter+=1
: counter 1 2 3 4 5  6 7 8  9 10 11 12 13 14
: counter = 1~5 時  燈=紅  ， 讀秒=counter
: counter = 6-8 時  燈=黃  ， 讀秒=counter -?
: counter = 9-14時  燈=綠  ， 讀秒=counter -?
: if counter= 14 後 再設counter=1
: 無限循環...
: 這是一種想法 GL
: ※ 引述《fjf1980 (VAIO才是NB的王道呀！)》之銘言：
: : 我要做一個練習題，可是想不到怎麼做。
: : 開一個form專案，然後在form上有紅綠燈，旁邊有數字讀秒。
: : 紅燈亮五秒，後黃燈亮三秒，後綠燈亮六秒。一直循環，亮的時候旁邊讀秒重新從1開始
: : 這應該要用Timer做吧！ 但我想不到怎麼做。
: : 有沒有高手能給點方向。 感謝！！
 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        m = m + 1
        Label2.Text = m
        If m <= 5 Then
            TextBox1.BackColor = Color.Red
            c = c + 1
            Label1.Text = c
            If m = 5 Then c = 0
        End If
        If 5 < m And m <= 8 Then
            TextBox1.BackColor = Color.Yellow
            c = c + 1
            Label1.Text = c
            If m = 8 Then c = 0
        End If
        If 8 < m And m <= 14 Then
            TextBox1.BackColor = Color.Green
            c = c + 1
            Label1.Text = c
            If m = 14 Then c = 0
            If m = 14 Then m = 0
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = ""
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = 1000
        Timer1.Enabled = True
    End Sub



--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 122.124.68.58