Program Lampu Kemudian Lintas Visual Basic

Seperti yang kita ketahui lampu kemudian lintas berfungsi untuk mengatur jalannya kemudian lintas di jalan raya, yang memiliki 3 lampu dengan warna yang berbeda, Hijau untuk jalan, Kuning tanda hati hati, dan Merah untuk Berhenti, dimana ketiga lampu tersebut hanya akan ada satu yang menyala, dan bergantian berdasarkam kondisi tertentu, kali ini kita akan menciptakan sebuah aktivitas Lampu Lalu Lintas, berikut tutorialnya :

1. Jalanakan VB dengan project standar EXE
2. Tambahkan 2 timer, 4 Shape dan 2 label, aturlah sehingga ibarat ini :

3. Ubahlah beberapa properties dari toolbox yang di gunakan, dengan kriteria :

Tool Box	Properties	Keterangan
Form 1	Border Style	1. Fixed Single
Form 1	Start Up Position	2. Center Screen
Label 1	Caption	20
	Font Size	50
	Font Style	Bold
	Visible	False
Label 2	Caption	10
Shape 1	Back Style	1. Opaque
	Back Color	&H00000000&
	Shape	Rectangle
Shape 2	Back Style	1. Opaque
	Back Color	&H00C0FFC0&
	Shape	Circle
Shape 3	Back Style	1. Opaque
	Back Color	&H00C0FFFF&
	Shape	Circle
Shape 4	Back Style	1. Opaque
	Back Color	&H00C0C0FF&
	Shape	Circle
Timer 1	Interval	1000
Timer 2	Interval	100

Sehingga ibarat ini :

4. Lalu tuliskan script berikut pada :
Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) - 1 'Nilai dari label 1 = nilai label 1 di kurangi 1
If Label1.Caption = "-1" Then 'Jika nilai label1 = min 1, maka
Label1.Caption = "15" 'Nilai label1 akan menjadi 15
End If
End Sub

Label2.Caption = Val(Label2.Caption) - 1
If Label2.Caption = "0" Then
Label2.Caption = "10"
End If
End Sub

Private Sub Timer2_Timer()
If Label1.Caption = "11" Then 'Jika nilai label1 = 8 maka
Shape2.BackColor = &HC0FFC0 'Warna dari shape2 yaitu Hijau Muda
Shape3.BackColor = &HFFFF& 'Warna dari shape3 yaitu Kuning Tua
Shape4.BackColor = &HC0C0FF 'warna dari shape4 yaitu Merah Muda
End If

If Label1.Caption = "10" Then
Shape2.BackColor = &HC0FFC0 'Warna Hijau Muda
Shape3.BackColor = &HC0FFFF 'Warna Kuning Muda
Shape4.BackColor = &HFF& 'Warna Merah Tua
End If

If Label1.Caption = "20" Then
Shape2.BackColor = &HFF00& 'Warna Hijau Tua
Shape3.BackColor = &HC0FFFF 'Warna Kuning Muda
Shape4.BackColor = &HC0C0FF 'Warna Merah Muda
End If

If Label1.Caption = "1" Then
Shape2.BackColor = &HC0FFC0
Shape3.BackColor = &HFFFF&
Shape4.BackColor = &HC0C0FF
End If
End Sub

Private Sub Timer1_Timer() Label1.Caption = Val(Label1.Caption) - 1  'Nilai dari label 1 = nilai label 1 di kurangi 1 If Label1.Caption = "-1" Then  'Jika nilai label1 = min 1, maka Label1.Caption = "15"   'Nilai label1 akan menjadi 15 End If End Sub  Label2.Caption = Val(Label2.Caption) - 1 If Label2.Caption = "0" Then Label2.Caption = "10" End If End Sub  Private Sub Timer2_Timer() If Label1.Caption = "11" Then 'Jika nilai label1 = 8 maka Shape2.BackColor = &HC0FFC0 'Warna dari shape2 yaitu Hijau Muda Shape3.BackColor = &HFFFF& 'Warna dari shape3 yaitu Kuning Tua Shape4.BackColor = &HC0C0FF 'warna dari shape4 yaitu Merah Muda End If  If Label1.Caption = "10" Then Shape2.BackColor = &HC0FFC0 'Warna Hijau Muda Shape3.BackColor = &HC0FFFF 'Warna Kuning Muda Shape4.BackColor = &HFF& 'Warna Merah Tua End If  If Label1.Caption = "20" Then  Shape2.BackColor = &HFF00& 'Warna Hijau Tua Shape3.BackColor = &HC0FFFF 'Warna Kuning Muda Shape4.BackColor = &HC0C0FF 'Warna Merah Muda End If  If Label1.Caption = "1" Then Shape2.BackColor = &HC0FFC0 Shape3.BackColor = &HFFFF& Shape4.BackColor = &HC0C0FF End If End Sub