Cara Membuat Lampu Lalulintas Automatis Di Visual Basic 6

Sebelumya saya sudah memberikan Cara membuat lampu lalulintas Manual di visual basic 6
Namun barang kali anda ingin mengembangkanya maka saya akan berikan beberapa tips merubah atau merobak yang manual menjadi auto.
Perbedaanya jika kita menggnakan yang manual maka lampu akan hidup jika kita tekan command button namun jika auto lampu akan menyala secara bergantian dengan di tetapkannya waktu atau jeda antara lampu satu dan lampu yang lainnya

Hal yang kalian siapkan untuk membuat project ini adalah 

• Timer1  
• 3 buah Command
• Sistem On = Menjalankan timer 1
• Sistem Off = Mematikan Mematikan timer1
• Sistem Reset = Mengembalikan ke semua 
• 3 buah shape untuk lampunya ( Lampu merah , Lampu kuning , Lamou hijau )
  

Note : Untuk timer1 rubah propertisnya seperti gambar dibawah ini
 

Keterangan :
 
Enable – jika true. Maka timer akan aktif saat run program anda namun saya false kan karena timer itu atau program ini berjalan jika ada yang mengaktifkanya ( enable ) jika anda lihat codingannya yang mengaktifkanya adalah command6 ( sistem ON )

Interval – Merupakan waktu nya . jika 1000 maka sama saja 1 detik, jika 100 maka 0,5 detik
Untuk lebih memperjelas penempatanya anda bias melihat gambar dibawah ini

Jika sudah sesuai maka anda bias memasukan kodingan di bawah ini, namun perlu diperhatikan untuk tata letak anda bisa membuatnya sesuai selera anda sendiri dan pastikan anda tidak keliru

Coding

---

Private Sub Command4_Click()
Timer1.Enabled = True
End Sub
 
Private Sub Command5_Click()
Timer1.Enabled = False
End Sub
 
Private Sub Command6_Click()
Timer1.Enabled = False
Shape8.BackColor = vbWhite
Shape9.BackColor = vbWhite
Shape10.BackColor = vbWhite
Label6.Caption = "0"
End Sub
 
Private Sub Timer1_Timer()
Label6.Caption = Label6.Caption + 1
Select Case Label6.Caption
 
Case (Text1.Text)
Shape8.BackColor = vbWhite
Shape9.BackColor = vbWhite
Shape10.BackColor = vbRed
 
Case (Text1.Text) * "2"
Shape9.BackColor = vbWhite
Shape8.BackColor = vbYellow
Shape10.BackColor = vbWhite
 
Case (Text1.Text) * "3"
Shape8.BackColor = vbWhite
Shape9.BackColor = vbGreen
Shape10.BackColor = vbWhite
Label6.Caption = "0"
End Select
End Sub

Keterangan :
Disitu saya masukan untuk mensetting waktu jeda anda bisa merubahnya
Namun jika anda ingin setiap lampu berbeda jeda waktunya
Contohnya lampu satu 2 detik dan lampu kedua 4 detik dan lampu ketiga 10 detik, Maka Anda diharuskan merubah di codingan di timer1
 
Saya ambil sampel
Select Case Label6.Caption = target yang dipilih pada progam tersebut adalah label 6
Case (Text1.Text) * "2"
Case = memilih
(Text1.Text) * "2" = text yang ada di text1 dikalikan dengan 2 ( jeda 2 detik ) namun jika ingin memasukan jeda yang berbeda yang anda rubah hanyalah timer1 menjadi :
 

Private Sub Timer1_Timer()
Label6.Caption = Label6.Caption + 1
Select Case Label6.Caption
 
Case “2” ( Jeda 2 Detik )
Shape8.BackColor = vbWhite
Shape9.BackColor = vbWhite
Shape10.BackColor = vbRed
 
Case “10” ( Jeda 10 Detik )
Shape9.BackColor = vbWhite
Shape8.BackColor = vbYellow
Shape10.BackColor = vbWhite

Case “20” ( Jeda 20 Detik )
Shape8.BackColor = vbWhite
Shape9.BackColor = vbGreen
Shape10.BackColor = vbWhite
Label6.Caption = "0"
End Select
End Sub

Bagi anda yang butuh project silakan download gratis aplikasi simulasi lampu lalulintas

Download Project

Sekian tutorial kali ini jika ingin meminta projectnya bisa tulis email anda di komentar di bawah ini