gathoth aje

Okelah kalaw begitu, langsung aja… sebenarnya ni adalah program pertama ane saat baru belajar pemograman VB, jadi bagi boy-boy yang baru belajar VB (newbies… sama kyak ane… ) mungkin program ne bsa di jadiin alternatif….

Disini kita akan membuat program animasi bergerak-gerak, kesamping, keatas, kebawah, kekanan, tw ke kiri tw kmana jaboy-boy mw.. Untuk lebih jelasnya silahkan ja boy-boy ikutin langkah-langkah pembuatan nya……….

1.Bukalah program VB 6.0, kemudian buatlah project baru…(new project)

2.Desain form dengan memasukkan sebuah timer, dua bh command button dan bh image, bukan image bh loh…

3. Kemudian sempurnakan desain form nya dengan menambahkan gambar kedalam control image nya… terserah ja gambarnya…disini ane memasukkan gambar-gambar emotion,,

4. OK… sampai disini pekerjaan desain form dh selesai.. selanjutnya listing program…

( hal yang paling membosankan…) kalaw g mw bosan, silahkan copy paste ja listing program dibawah ne…

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

Image1.Visible = True

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End Sub

Private Sub Form_Load()

Timer1.Interval = 350

Timer1.Enabled = False

Form1.BackColor = vbWhite

Command1.Caption = "START"

Command2.Caption = "STOP"

Image1.Visible = True

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End Sub

Private Sub Timer1_Timer()

If Image1.Visible = True Then

Image1.Visible = False

Image2.Visible = True

Image3.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

ElseIf Image2.Visible = True Then

Image1.Visible = False

Image2.Visible = False

Image3.Visible = True

Image4.Visible = False

Image5.Visible = False

ElseIf Image3.Visible = True Then

Image1.Visible = False

Image2.Visible = False

Image3.Visible = False

Image4.Visible = True

Image5.Visible = False

ElseIf Image4.Visible = True Then

Image1.Visible = False

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = True

ElseIf Image5.Visible = True Then

Image1.Visible = True

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

End Sub

5. TAMAT (kayak film ja…) tinggal di run ja program ny dengan menekan F5…

                                                        Tampilan program

Oy,, ,hampir lupa… untuk megganti kecepatan animasinya anda bisa mengubah interval timer nya sesuai keinginan Anda….klw pengen cepat perkecil interval timer nya dan sebaliknya…