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

[alumrof123e (alumrof123e)]

※ 引述《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
:  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
 Dim c, m As Integer
    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