Apabila Menggunakan aplikasi Macromedia Flash, Kita dapat dengan mudah membuat animasi teks dengan gaya sesuka kita. Perlu Anda ketahui, bahwa di dalam Visual Basic 6.0 juga menyediakan komponen untuk membuat animasi teks yang menarik.

1. Bukalah proyek baru menggunakan Standard.Exe
2. Aktifkan Komponen DirectAnimation Library, dari menu Projects kemudian klik menu Componen.
3. Tambahkan objek DAViewerControlWindowed ( ) kedalam form, kemudian aturlah property name-nya dengan DAVCW
4. Sekarang masuklah pada halaman kode (klik View > Code) Kemudian tulislah program lengkap sebagai berikut.

Private Sub Form_Load()

Dim kanvas, half, Font, clr, bgr

Dim TxtAnimasi, pos, scl, xf

Set kanvas = DAVCW.MaterLibrary

Set half = kanvas.DANumber ( 0.5 )

Set clr = kanvas.ColorHslAnim(kanvas.Mul(kanvas.LocalTime,kanvas.DANumber (0.345)), half, half)

Set Font = Kanvas.Font (“comic sans ms”, 9 , clr)

Set TxtAnimasi = kanvas.StringImage(“Bunafit and Sister ’ s “, Font)

Set pos = kanvas.Mul( kanvas.Sin(kanvas.LocalTime),kanvas, DANumber (0.02))Set scl = kanvas.Add( kanvas.DANumber(2),kanvas.Abs(kanvas.Mul(kanvas.Sin(kanvas.LocalTime), kanvas.DANumber (3))))

Set xf = kanvas.Compose2(kanvas.Translate2Anim(kanvas.DANumber (0), pos), kanvas.Scale2UniformAnim(scl))

Set TxtAnimasi = TxtAnimasi.Transform(xf)

Set bgr = kanvas.Rotate3RateDegrees(kanvas.Vector3(1,1,1),45).ParallelTransform2

Set TxtAnimasi = TxtAnimasi.Transform (bgr)

DAVCW.backgroundImage= kanvas.SolidColorImage (kanvas.Yellow)

DAVCW.Image = TxtAnimasi

DAVCW.Start

End Sub

1. Setelah program dibuat, Anda dapat mencoba animasi di atas dengan menjalankannya. Apabila berhasil, maka teks “ Bunafi and Sister ‘s “ akan tampak berputar – putar seperti 3D.

Sumber :

Buku Aplikasi MultiMedia dengan Visual Basic 6.0

Bunafit Nugroho

Penerbit : Elex Media Komputindo

Catatan:

"Jika progam anda tidak jalan, kemungkinan ada kesalahan saat anda mengetikkan kodenya, jadi lebih telitilah dalam mengetikkan kodenya

Label : pimmy ride | property | car body design |