Contoh program Lampu Merah Dengan VB 6.0

 Berikut ini saya akan memberikan contoh program traffik light sederhana dengan menggunakan VB 6.0.


Langkah awal Buatlah Form seperti pada gambar di bawah ini:

Masukkan Listning program di bawah ini

Private Sub Timer1_Timer()
If Shape1.Visible Then

Shape2.Visible = True
Shape1.Visible = False
Shape3.Visible = False

ElseIf Shape2.Visible Then

Shape3.Visible = True
Shape2.Visible = False
Shape1.Visible = False

Else

Shape1.Visible = True
Shape2.Visible = False
Shape3.Visible = False

End If

End Sub

Silahkan Teman-teman kembangkan sendiri......!!!
Semoga bermanfaat......!!!