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 BoxPropertiesKeterangan
Form 1Border Style1. Fixed Single
Start Up Position2. Center Screen
Label 1Caption20
Font Size50
Font StyleBold
VisibleFalse
Label 2Caption10
Shape 1Back Style1. Opaque
Back Color&H00000000&
ShapeRectangle
Shape 2Back Style1. Opaque
Back Color&H00C0FFC0&
ShapeCircle
Shape 3Back Style1. Opaque
Back Color&H00C0FFFF&
ShapeCircle
Shape 4Back Style1. Opaque
Back Color&H00C0C0FF&
ShapeCircle
Timer 1Interval1000
Timer 2100
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


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

1 Response to "Program Lampu Lalu Lintas Visual Basic"