Animasi Portal dengan Visual Basic 6

Langkah 1 : Siapkan NIAT untuk mencoba aplikasi ini.
Langkah 2 : Buat gambar secukupnya, dimana gambar ini yang akan ditampilkan dengan Visual Basic 6. Dalam contoh ini digunakan gambar portal yang dibuat dengan Macromedia Firework MX 2004.
Berikut hasilnya :















Langkah 3 : Buka Visual Basic, trus tambahkan komponen2 form seperti berikut :



Langkah 4 : setting property image1 dan Timer seperti berikut :





Langkah 5 : Berikut ini adalah source code-nya :

Option Explicit
Private m_Index As Integer
Private m_NumImages As Integer

Private Sub cmdBuka_Click()
Timer3.Enabled = True
cmdTutup.Enabled = False
cmdStart.Enabled = False
End Sub

Private Sub cmdTutup_Click()
Timer4.Enabled = True
cmdBuka.Enabled = False
cmdStart.Enabled = False
End Sub

Private Sub cmdStart_Click()
Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End Sub

Private Sub cmdStop_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False

cmdStart.Enabled = True
cmdStop.Enabled = False
cmdBuka.Enabled = True
cmdTutup.Enabled = False
End Sub


Private Sub Form_Load()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False

cmdBuka.Enabled = True
cmdTutup.Enabled = False
cmdStart.Enabled = True
cmdStop.Enabled = False

Image1.Visible = True

m_NumImages = ImageList1.ListImages.Count
m_Index = 0
End Sub

Private Sub Timer1_Timer()
m_Index = m_Index + 1
Image1.Picture = ImageList1.ListImages(m_Index).Picture
cmdStart.Enabled = False
cmdStop.Enabled = True
cmdBuka.Enabled = False
cmdTutup.Enabled = False

If m_Index = 10 Then
Timer2.Enabled = True
Timer1.Enabled = False

End If
End Sub

Private Sub Timer2_Timer()
m_Index = m_Index - 1
Image1.Picture = ImageList1.ListImages(m_Index).Picture
cmdStart.Enabled = False
cmdStop.Enabled = True
cmdBuka.Enabled = False
cmdTutup.Enabled = False
If m_Index = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub

Private Sub Timer3_Timer()
m_Index = m_Index + 1
Image1.Picture = ImageList1.ListImages(m_Index).Picture
cmdStop.Enabled = True

If m_Index = 10 Then
Timer3.Enabled = False
cmdBuka.Enabled = False
cmdTutup.Enabled = True
cmdStop.Enabled = False
End If
End Sub

Private Sub Timer4_Timer()
m_Index = m_Index - 1
Image1.Picture = ImageList1.ListImages(m_Index).Picture
cmdStop.Enabled = True

If m_Index = 1 Then
Timer4.Enabled = False
cmdBuka.Enabled = True
cmdTutup.Enabled = False
cmdStop.Enabled = False
End If
End Sub


Langkah 6 : Tes RUN (tekan F5),...(moga berhasil)



Sebagian source code dikutip dari http://dho-zou.blogspot.com/2008/11/membuat-animasi-gambar-menggunakan.html