Membuat Animasi Teks 3D Berputar Dengan Visual Basic 6.0

Membuat Animasi Teks 3D Berputar Dengan Visual Basic 6.0
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.