Minggu, 29 Desember 2013

Animasi File AVI Menggunakan Komponen Animation pada Microsoft Visual Basic 6.0

Langkah - langkahnya membuat program Animasi File AVI Menggunakan Komponen Animation pada Microsoft Visual Basic 6.0 :

1. Buka proyek Standard EXE yang baru
2. Klik menu
Project => Components (Ctrl + T). Ceklis / centang “Microsoft Common Dialog Control 6.0 (SP3)” pada jendela Components kemudian klik Apply lalu klik OK






Gbr1


3. Masukkan objek Animation, CommonDialog dan 2 buah CommandButton ke dalam form seperti gambar di bawah ini :



Gbr2


4. Atur Properties masing - masing objek seperti di bawah ini :


Kontrol
Properties
Pengaturan
CommandButton1
Name        
Caption    
CmdOpen
Open
CommandButton2
Name        
Caption    
CmdPlay
Play
Animation1
Autoplay
False


5. Klik 2x (double click) pada CommandButton Open lalu ketik koding di bawah ini :

With Me.CommonDialog1

.Filter = "*.avi|*.avi|"

.ShowOpen

End With



6. Klik 2x (double click) pada CommandButton Play lalu ketik koding di bawah ini :

If Me.CmdPlay.Caption = "Play" Then

Me.Animation1.Open Me.CommonDialog1.FileTitle

Me.Animation1.Visible = True

Me.Animation1.Play

Me.CmdPlay.Caption = "Stop"

Else

Me.CmdPlay.Caption = "Play"

Me.Animation1.Stop

End If



7. Jalankan program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run => Start



Gbr3


Download Source Code : Disini atau Disini