Public Class Form2
Dim lampu1, lampu2, lampu3, lampu4 As String
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
lampu1 = "hijau"
OSMerah1.BackColor = Color.Black
OSKuning1.BackColor = Color.Black
OSHijau1.BackColor = Color.Green
Label1.Text = "18"
lampu2 = "merah"
OSMerah2.BackColor = Color.Red
OSKuning2.BackColor = Color.Black
OSHijau2.BackColor = Color.Black
Label2.Text = "20"
lampu3 = "merah"
OSMerah3.BackColor = Color.Red
OSKuning3.BackColor = Color.Black
OSHijau3.BackColor = Color.Black
Label3.Text = "40"
lampu4 = "merah"
OSMerah4.BackColor = Color.Red
OSKuning4.BackColor = Color.Black
OSHijau4.BackColor = Color.Black
Label4.Text = "60"
Timer1.Start()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If lampu1 = "hijau" Then
lampu2 = "merah"
lampu3 = "merah"
lampu4 = "merah"
ElseIf lampu2 = "hijau" Then
lampu1 = "merah"
lampu3 = "merah"
lampu4 = "merah"
ElseIf lampu3 = "hijau" Then
lampu1 = "merah"
lampu2 = "merah"
lampu4 = "merah"
ElseIf lampu4 = "hijau" Then
lampu1 = "merah"
lampu2 = "merah"
lampu3 = "merah"
End If
If Val(Label1.Text) > 0 Then
Label1.Text = Val(Label1.Text) - 1
Else
If lampu1 = "merah" Then
lampu1 = "kuning"
Label1.Text = "2"
OSMerah1.BackColor = Color.Black
OSKuning1.BackColor = Color.Yellow
OSHijau1.BackColor = Color.Black
ElseIf lampu1 = "kuning" Then
lampu1 = "hijau"
Label1.Text = "18"
OSMerah1.BackColor = Color.Black
OSKuning1.BackColor = Color.Black
OSHijau1.BackColor = Color.Green
Else
lampu1 = "merah"
Label1.Text = "60"
OSMerah1.BackColor = Color.Red
OSKuning1.BackColor = Color.Black
OSHijau1.BackColor = Color.Black
End If
End If
If Val(Label2.Text) > 0 Then
Label2.Text = Val(Label2.Text) - 1
Else
If lampu2 = "merah" Then
lampu2 = "kuning"
Label2.Text = "2"
OSMerah2.BackColor = Color.Black
OSKuning2.BackColor = Color.Yellow
OSHijau2.BackColor = Color.Black
ElseIf lampu2 = "kuning" Then
lampu2 = "hijau"
Label2.Text = "18"
OSMerah2.BackColor = Color.Black
OSKuning2.BackColor = Color.Black
OSHijau2.BackColor = Color.Green
Else
lampu2 = "merah"
Label2.Text = "60"
OSMerah2.BackColor = Color.Red
OSKuning2.BackColor = Color.Black
OSHijau2.BackColor = Color.Black
End If
End If
If Val(Label3.Text) > 0 Then
Label3.Text = Val(Label3.Text) - 1
Else
If lampu3 = "merah" Then
lampu3 = "kuning"
Label3.Text = "2"
OSMerah3.BackColor = Color.Black
OSKuning3.BackColor = Color.Yellow
OSHijau3.BackColor = Color.Black
ElseIf lampu3 = "kuning" Then
lampu3 = "hijau"
Label3.Text = "18"
OSMerah3.BackColor = Color.Black
OSKuning3.BackColor = Color.Black
OSHijau3.BackColor = Color.Green
Else
lampu3 = "merah"
Label3.Text = "60"
OSMerah3.BackColor = Color.Red
OSKuning3.BackColor = Color.Black
OSHijau3.BackColor = Color.Black
End If
End If
If Val(Label4.Text) > 0 Then
Label4.Text = Val(Label4.Text) - 1
Else
If lampu4 = "merah" Then
lampu4 = "kuning"
Label4.Text = "2"
OSMerah4.BackColor = Color.Black
OSKuning4.BackColor = Color.Yellow
OSHijau4.BackColor = Color.Black
ElseIf lampu4 = "kuning" Then
lampu4 = "hijau"
Label4.Text = "18"
OSMerah4.BackColor = Color.Black
OSKuning4.BackColor = Color.Black
OSHijau4.BackColor = Color.Green
Else
lampu4 = "merah"
Label4.Text = "60"
OSMerah4.BackColor = Color.Red
OSKuning4.BackColor = Color.Black
OSHijau4.BackColor = Color.Black
End If
End If
End Sub
End Class 
0 komentar:
Posting Komentar