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 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 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


5. Jika sudah, jalankan aktivitas dan lihat hasilnya
Kombinasi warna yang akan terjadi dikala label1 = 11 yaitu Persiapan untuk Berhenti
Kombinasi warna yang akan terjadi dikala label1 = 1 yaitu Persiapan untuk Jalan


Kombinasi warna yang akan terjadi dikala label1 = 7 yaitu Tanda untuk Berhenti

Kombinasi warna yang akan terjadi dikala label1 = 7 yaitu Tanda untuk Jalan


Sekian tutorial kali ini, Selamat Mencoba
Terimakasih

Comments