No.
|
Kontrol
|
Properties
|
1
|
RectangleShape1
|
BackColor = Black
BackStyle = Opaque
|
2
|
OvalShape1
|
BackColor = Red
BackStyle = Opaque
|
3
|
OvalShape2
|
BackColor = Yellow
BackStyle = Opaque
|
4
|
OvalShape3
|
BackColor = Green
BackStyle = Opaque
|
5
|
LineShape1
|
|
6
|
Label1
|
BackColor = Black
BorderStyle =
FixedSingle
|
7
|
Timer1
|
Enabled = True
Interval = 1000
|
Public Class Form1
Dim status As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
status = "merah"
OvalShape2.BackColor = Color.White
OvalShape3.BackColor = Color.White
Label1.Text = "20"
Timer1.Start()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If Val(Label1.Text) > 0 Then
Label1.Text = Val(Label1.Text) - 1
Else
If status = "merah" Then
status = "kuning"
Label1.Text = "3"
OvalShape1.BackColor = Color.White
OvalShape2.BackColor = Color.Yellow
OvalShape3.BackColor = Color.White
ElseIf status = "kuning" Then
status = "hijau"
Label1.Text = "10"
OvalShape1.BackColor = Color.White
OvalShape2.BackColor = Color.White
OvalShape3.BackColor = Color.Green
Else
status = "merah"
Label1.Text = "20"
OvalShape1.BackColor = Color.Red
OvalShape2.BackColor = Color.White
OvalShape3.BackColor = Color.White
End If
End If
End Sub
End Class
0 komentar:
Posting Komentar