Tutorial Membuat Lampu Lalu Lintas dengan Program Visual Basic 6.0

Kali ini admin akan berbagi tentang cara membuat lampu lalu lintas menggunakan Visual Basic 6.0. Program kali ini masih bersifat sederhana karena hanya menggunakan beberapa komponen, salah satunya pengaturan waktu. Langsung saja kita ikuti langkah-langkahnya berikut ini.

1.   Buka program Visual Basic 6.0, kemudian akan muncul kotak dialog maka pilihlah “Standard EXE”  lalu Open. Maka akan muncul tampilan utama lembar kerja visual basic 6.0. Seperti pada gambar berikut : 2.      Untuk membuat lampu lalu lintas, pertama-tama ambil komponen “Frame” pada “ToolBox” yang berada sebelah kiri layar. Klik kiri komponen “Frame”, kemudian pada lembar kerja klik kiri tahan, atur lebar dan panjangnya sesuai keinginan. Setelah itu hapus tulisan “Frame1” pada komponen frame tersebut, yaitu dengan cara: klik dulu komponen Frame-nya, pada sebelah kanan lembar kerja terdapat menu “Properties” lalu carilah nama “Caption” dan hapuslah tulisan “Frame1”. Seperti gambar berikut ini   3.     Ambil komponen “Shape” pada ToolBox dan letakkan komponen Shape tersebut dalam kotak Frame. Hasilnya akan berbentuk persegi atau kotak, maka ganti menjadi lingkaran dengan cara : Pada Properties cari “Shape” ganti menjadi 3 – Circle. Sehingga hasilnya akan seperti gambar berikut ini Setelah itu, pada bagian “Properties” juga, nama (Name) Shape1 diganti menjadi ShapeMerah untuk lampu lalu lintas warna merah. BackStyle ganti menjadi 1-Opaque. BorderColornya pilih warna merah.                                                  Hasilnya seperti gambar di bawah ini 4.      Ambil komponen “Shape” lagi pada ToolBox dan letakkan komponen Shape tersebut dalam kotak Frame. Hasilnya akan berbentuk persegi atau kotak, maka ganti menjadi lingkaran. Langkahnya sama seperti langkah ke empat di atas tadi. Setelah itu, namanya diganti menjadi ShapeKuning untuk lampu lalu lintas warna Kuning. BackStyle nya ganti menjadi 1-Opaque. BorderColor nya pilih warna Kuning. 5.      Langkah selanjutnya juga hampir sama seperti langkah ke empat. Ambil komponen “Shape” lagi pada ToolBox dan letakkan komponen Shape tersebut dalam kotak Frame. Hasilnya akan berbentuk persegi atau kotak, maka ganti menjadi lingkaran. Setelah itu, namanya diganti menjadi ShapeHijau untuk lampu lalu lintas warna Hijau. BackStyle nya ganti menjadi 1-Opaque. BorderColor nya pilih warna Hijau. Hasilnya akan seperti gambar berikut ini 6.   Beri warna hitam pada Frame dengan cara : Klik Frame, kemudian pada Properties, cari BackColor dan pilih warna hitam. 7.    Tambahkan tiang penyangganya, dengan cara: ambil kembali komponen “Shape” yang berada di menu Toolbox dan buatlah sebuah tiang panjang lalu letakkan pas di bawah lampu tersebut. Ganti BackStyle nya menjadi 1 – Opaque dan pada BackColornya pilih warna hitam. Seperti pada gambar berikut : 8.     Ambil Shape lagi, letakkan di samping kanan lampu bagian atas untuk tempat waktunya. Pada Properties, pada Shape nya ganti menjadi 4 – Rounded Rectangle. Pada BackColor nya pilih warna yang di inginkan. Kemudian ganti BackStylenya menjadi 1 – Opaque. Hasilnya seperti berikut ini 9.     Ambil “Label” pada ToolBox, letakkan dalam “Shape” sebelumnya. Pada Properties, ganti Caption menjadi 00. Kemudian Pilih Font, atur ukuran dan bentuknya sesuai yang di inginkan. Ganti namanya (Name) yang semula Label1 menjadi LabelHitung. Pada BackStylenya pilih 0 – Transparent. Seperti berikut ini 10.  Ambil Timer pada Toolbox, letakkan di samping kanan lampu lalu lintas. Pada Properties ganti namanya (Name) yang semula Timer1 menjadi TimerHitung dan Intervalnya ganti menjadi 1000.          11.  Selanjutnya beri script pada lampu lalu lintas tersebut dengan cara : ·         Klik 2x pada ShapeMerah, maka akan muncul lembar kerja coding (code) seperti dibawah ini ·         Kemudian berikan Script seperti di bawah ini: 'MERAH > HIJAU > KUNING > MERAH Dim WaktuMerah As Integer, WaktuKuning As Integer, WaktuHijau As  Integer Dim Penghitung As Integer ·         Setelah selesai memberikan script tersebut, tutup kembali lembar kerja code (dengan cara di close). ·         Klik 2x pada Form (di luar komponen lampu lalu lintas tersebut), di sana sudah ada tulisan: Private Sub Form_Load() End Sub ·         Berikan Script seperti tulisan yang bercetak miring di bawah ini : Private Sub Form_Load() WaktuMerah = 10 WaktuKuning = 5 WaktuHijau = 10 ShapeMerah.BackColor = vbRed LabelHitung.ForeColor = vbRed LabelHitung.Caption = WaktuMerah End Sub ·         Setelah selesai, close kembali ·         Klik 2x pada TimeHitung, kemudian berikan Script seperti di bawah ini Private Sub TimerHitung_Timer() Penghitung = Penghitung + 1 If ShapeMerah.BackColor = vbRed Then If Penghitung = WaktuMerah Then ShapeMerah.BackColor = vbButtonFace ShapeHijau.BackColor = vbGreen LabelHitung.ForeColor = vbGreen LabelHitung.Caption = WaktuHijau Penghitung = 0 Else LabelHitung.Caption = WaktuMerah - Penghitung End If         ElseIf ShapeHijau.BackColor = vbGreen Then If Penghitung = WaktuHijau Then ShapeHijau.BackColor = vbButtonFace ShapeKuning.BackColor = vbYellow LabelHitung.Caption = "" Penghitung = 0             Else LabelHitung.Caption = WaktuHijau - Penghitung End If ElseIf ShapeKuning.BackColor = vbYellow Then If Penghitung = WaktuKuning Then ShapeKuning.BackColor = vbButtonFace ShapeMerah.BackColor = vbRed             LabelHitung.ForeColor = vbRed             LabelHitung.Caption = WaktuMerah             Penghitung = 0 End If End If End Sub 12.  Setelah selesai, save program yang telah di buat tersebut. 13.  Jalankan programnya dengan menekan tombol “F5” atau klik tombol play (start) yang berada di atas. (by: Rahyuni) Selamat mencoba..