Traffic Lamp dengan Visual Basic 6.0

Hallo semua

maaf lama tak muncul,maklum sibuk !!! hehehe

ini ada ilmu sedikit yang bisa dicoba,untuk agan2 semua yang pengen belajar pemrograman visual basic 6.0

disini ane mau buat program traffic lamp (lampu lalu lintas) yang biasa kita liat dijalanan

yang kita perlukan

1 project

4 shape diantaranya (1 rounden rectangular 3 circle)

2 label

1 timer

3 commond button

1.pertama-tama kamu buka visual basic 6.0 nya

2.lalu kamu buat seperti gambar dibawah ini

3.untuk lampunya kita pake shape lalu pada properstisnya kita pilih circle.

lalu kita buat 3 bulatan pada kotaknya.
setting propertis pada lingkarannya:
   1.ubah backstyle menjadi transparent
   2.ubah bordercolor & fillcolor menjadi warna hitam
   3.ubah fillstyle menjadi solid

lalu kita akan buat timernya,fungsi timer untuk menentukan berapa jarak waktu lampu untuk berganti
kita pilih timer

klik pada timer,pada propertis kita setting :

ini berguna untuk mengatur kecepatan waktu untuk berganti.
lalu kita beri label untuk tempat waktu,untuk label kita buat kecil saja ada 2 label,klik pada label atur propertisnya ubah borderstyle nya menjadi none.

langkah selanjutnya kita buat 3 commond button diantaranya ada start,close & exit.

untuk langkah selanjutnya kamu bisa copas aja programnya

Dim detik, menit As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Label1.Caption = 0
Label2.Caption = 0
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Static i
detik = detik + 1
If detik > 60 Then
menit = menit + 1
detik = 0
If menit = 6 Then
    menit = 0
End If
End If
Label1.Caption = menit
Label2.Caption = detik
i = menit
If i = 6 Then
i = 0
End If
If i = 0 Then
    Shape2(2).FillColor = vbBlack
    Shape2(0).FillColor = vbRed
ElseIf i = 2 Then
    Shape2(0).FillColor = vbBlack
    Shape2(1).FillColor = vbYellow
ElseIf i = 4 Then
    Shape2(1).FillColor = vbBlack
    Shape2(2).FillColor = vbGreen
End If
End Sub

Hasilnya: