Program Lampu Lalu Lintas Visual Basic

Seperti yang kita ketahui lampu lalu lintas berfungsi untuk mengatur jalannya lalu lintas di jalan raya, yang mempunyai 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 membuat sebuah program Lampu Lalu Lintas, berikut tutorialnya :

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

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

Tool Box	Properties	Keterangan
Form 1	Border Style	1. Fixed Single
	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		100

Sehingga seperti 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 adalah Hijau Muda
Shape3.BackColor = &HFFFF& 'Warna dari shape3 adalah Kuning Tua
Shape4.BackColor = &HC0C0FF 'warna dari shape4 adalah 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 adalah Hijau Muda Shape3.BackColor = &HFFFF& 'Warna dari shape3 adalah Kuning Tua Shape4.BackColor = &HC0C0FF 'warna dari shape4 adalah 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

5. Jika sudah, jalankan program dan lihat hasilnya
Kombinasi warna yang akan terjadi ketika label1 = 11 adalah Persiapan untuk Berhenti

Kombinasi warna yang akan terjadi ketika label1 = 1 adalah Persiapan untuk Jalan

Kombinasi warna yang akan terjadi ketika label1 = 7 adalah Tanda untuk Berhenti

Kombinasi warna yang akan terjadi ketika label1 = 7 adalah Tanda untuk Jalan

Sekian tutorial kali ini, Selamat Mencoba
Terimakasih