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 :
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 = 7 yaitu Tanda untuk Berhenti
Kombinasi warna yang akan terjadi dikala label1 = 7 yaitu Tanda untuk Jalan
Sekian tutorial kali ini, Selamat Mencoba
Terimakasih
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 |
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 |
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
Post a Comment