Animasi File AVI Menggunakan CCRPANI6.OCX pada Microsoft Visual Basic 6.0

Langkah - langkahnya :

·    Download file “ccrpani6.ocx” terlebih dahulu

·    Registrasi file  “ccrpani6.ocx” ke system. Silahkan  klik disini untuk mengetahui bagaimana cara registrasi file ocx dan dll ke Windows XP atau disini untuk Windows 7.

·    Buka proyek Standard EXE yang baru

·    Klik menu Project  =>  Components (Ctrl + T). Ceklis / centang “CCRP Animation Control (VB6)” dan “Microsoft Common Dialog Control 6.0 (SP3)” pada jendela Components kemudian klik Apply lalu klik OK

Gbr1

Gbr2

·  Masukkan objek ccrpAnimation, CommonDialog dan 2 buah CommandButton ke dalam form seperti gambar di bawah ini :

Gbr3

 Gbr4

·   Atur Properties masing - masing objek seperti di bawah ini :

Kontrol	Properties	Pengaturan
CommandButton1	Name         Caption	CmdOpen Open
CommandButton2	Name         Caption	CmdPlay Play
ccrpAnimation1	Appearance	0 - aniFlat
Form1	Caption	Animasi File Avi Menggunakan CCRPANI6.OCX

·    Klik 2x (double click) pada form1 lalu ketik koding di bawah ini :

Me.ccrpAnimation1.AutoPlay = False

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

With Me.CommonDialog1

    .CancelError = False

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

    .ShowOpen

    Me.ccrpAnimation1.OpenAVI .FileTitle

    Me.CmdPlay.Caption = "Play"

End With

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

If Me.CmdPlay.Caption = "Play" Then

    Me.ccrpAnimation1.Play

    Me.CmdPlay.Caption = "Stop"

Else

    Me.ccrpAnimation1.StopPlaying

    Me.CmdPlay.Caption = "Play"

End If

·    Jalankan Program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run  => Start

Gbr5

Download Source Code

atau