MEMBUAT LAMPU MERAH, KUNING, HIJAU DENGAN VB

Komponen yang disiapkan untuk membuat sebuah 3 lampu yang menyala secara bergantian adalah

Label 1 : Propertinya Tidak ada perubahan
Label 2 : Propertisnya pada Caption kita ganti angka 1
Label 3 : Propertisnya pada Caption kita kosongkan lalu pada BackColor kita pilih warna Merah
Label 4 : Propertisnya pada Caption kita kosongkan lalu pada Back Color kita pilih warna Kuning
Label 5 : Propertisnya pada Caption kita kosongkan lalu pada Back Color kita pilih warna Hijau
Timer1 : Propertisnya pada intervelnya kita tuliskan angka 1000
Lalu setelah itu tuliskan kode di dabah ini :

Private Sub Form_Load()
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
End Sub

Private Sub Label1_Change()
Label2.Caption = Label2 + 1
End Sub

Private Sub Label2_Change()
If Label2.Caption = “4″ Then
Label2.Caption = “1″
ElseIf Label2.Caption = “1″ Then
Label3.Visible = True
Label4.Visible = False
Label5.Visible = False
ElseIf Label2.Caption = “2″ Then
Label3.Visible = False
Label4.Visible = True
Label5.Visible = False
ElseIf Label2.Caption = “3″ Then
Label3.Visible = False
Label4.Visible = False
Label5.Visible = True
End If

End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub