Program Lampu Lalu Lintas pada Visual Basic

Pada kesempatan kali ini saya akan berbagi ilmu membuat sebuah program timer lalu lintas yaitu shape circle akan menyala dalam waktu yang sudah diatur dan saling bergantian dengan warna yang berbeda-beda seperti lampu lalu lintas pada umumnya.

Untuk membuat program ini pertama-tama kita buat desain programnya pada form visual basic yang sudah disediakan, buat desainnya seperti pada gambar berikut:

Pada desain program kali ini sedikit berbeda dengan program Stopwatch, karena pada program ini terdapat shape seperti shape berbentuk bulat, persegi panjang dan juga oval. Juga terdapat command button dan tentunya komponen timer sebanyak tiga. Karena tiap timer mewakili/melakukan perintah pada tiap shape yang berbentuk bulat tersebut .

Kemudian buat/ketikan kode program seperti ini :

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Shape2.BackColor = vbRed

Shape3.BackColor = vbWhite

Shape4.BackColor = vbWhite

Label1.Caption = Label1.Caption - 1

If Label1.Caption = 0 Then

Timer1.Enabled = False

Timer2.Enabled = True

Label1.Caption = 3

Shape2.BackColor = vbWhite

Shape3.BackColor = vbYellow

Shape4.BackColor = vbWhite

End If

End Sub

Private Sub Timer2_Timer()

Label1.Caption = Label1.Caption - 1

If Label1.Caption = 0 Then

Timer2.Enabled = False

Timer3.Enabled = True

Label1.Caption = 10

Shape2.BackColor = vbWhite

Shape3.BackColor = vbWhite

Shape4.BackColor = vbGreen

End If

End Sub

Private Sub Timer3_Timer()

Label1.Caption = Label1.Caption - 1

If Label1.Caption = 0 Then

Timer3.Enabled = False

Timer1.Enabled = True

Label1.Caption = 12

Shape2.BackColor = vbRed

Shape3.BackColor = vbWhite

Shape4.BackColor = vbWhite

End If

End Sub

Ketika listing program sudah diketikan/dibuat lalu run program tersebut maka output akan seperti ini

Ketika output di klik start maka program akan berjalan yaitu lampu merah akan menyala selama 10 detik/perhitungan , kemudian ketika telah mencapai 10 detik maka lampu kuning akan menyala selama 3 detik, kemudian lanjut dan lampu hijau akan menyala selama 12 detik. Sesuai dengan program kodingan yang kita buat.

Semoga bermanfaat....