Animasi Lalulintas

dari pada libur gak ada kerjaan mendingan ngisi waktu positif buat animasi lewat vb6 sebelum buat saya akan menjelaskan apa sih animasi yg akan saya buat. animasi yg saya buat adalah untuk deskripsi dari keadaan lalulintas yaitu kendaraan akan berjalan lambat pd lampu kuning, berhenti pada lampu merah dan jalan pada lampu hijau jisertai oleh polisi yang akan mengatur lalulintas agar tidak terjadi tabrakan anatara mobil dan kereta. okeh segitu aj gak usah basa-basi lagi cekidot:
komponen2 yang di perlukan antara lain:
1. shape(disini saya menggunakan 24 shape tp yg aktif hanya 10)
2. image
3. label
4. dan yang paling penting timer

dan ini listingnya silahkan pelajari:

Private Sub Timer1_Timer()
If Shape1.Visible Then
Shape2.Visible = True
Shape1.Visible = False
Shape3.Visible = False
Timer6 = False
Timer2 = True
Timer3 = True
Timer7 = True
Timer2.Interval = 20
Timer3.Interval = 30
Timer7.Interval = 35

ElseIf Shape2.Visible Then

Shape3.Visible = True
Shape2.Visible = False
Shape1.Visible = False
Timer6 = False
Timer4 = False
Timer2 = True
Timer3 = True
Timer7 = True
Timer2.Interval = 500
Timer3.Interval = 500
Timer7.Interval = 500

Else
Shape1.Visible = True
Shape2.Visible = False
Shape3.Visible = False
Timer2 = False
Timer3 = False
Timer7 = False
Timer4 = True
Timer6 = True
Timer6.Interval = 30
Timer4.Interval = 80
End If
End Sub


Private Sub Timer2_Timer()
Image1.Left = Image1.Left + 200
If Image1.Left > 9000 Then
Image1.Left = -2500
End If
End Sub

Private Sub Timer3_Timer()
Image2(0).Left = Image2(0).Left + 200
If Image2(0).Left > 9000 Then
Image2(0).Left = -2500
End If


End Sub

Private Sub Timer4_Timer()
Image3(0).Top = Image3(0).Top + 200
If Image3(0).Top > 5000 Then
Image3(0).Top = 5000
End If

If Shape2.Visible Then
Image3(0).Top = 1000
End If


End Sub

Private Sub Timer5_Timer()
Label1.Caption = Time
End Sub

Private Sub Timer6_Timer()
Shape7.FillColor = QBColor(Rnd() * 15)
Shape12.FillColor = QBColor(Rnd() * 15)
Shape13.FillColor = QBColor(Rnd() * 15)
Shape14.FillColor = QBColor(Rnd() * 15)
Shape8.Top = Shape8.Top + 200
If Shape8.Top > 10000 Then
Shape8.Top = -2500
End If
Shape9.Top = Shape9.Top + 200
If Shape9.Top > 10000 Then
Shape9.Top = -2500
End If
Shape10.Top = Shape10.Top + 200
If Shape10.Top > 10000 Then
Shape10.Top = -2500
End If
Shape11.Top = Shape11.Top + 200
If Shape11.Top > 10000 Then
Shape11.Top = -2500
End If

End Sub

Private Sub Timer7_Timer()
Image3(1).Left = Image3(1).Left + 200
If Image3(1).Left > 9000 Then
Image3(1).Left = -2500
End If
End Sub

semoga bermanfaat silahkan download
http://www.ziddu.com/download/14839541/coba2.rar.html