Cara Membuat Animasi Text Dengan Visual Basic 6.0

Cara Membuat Animasi Text Dengan Visual Basic 6.0 | Visual Basic Magazine - Posting kali ini kita akan membahas cara membuat text dengan efek animasi menggunankan Visual Basic 6.0. Kalau sebelumnya kita pernah membahas pemrograman dengan script yang ribet dan panjang, untuk kali ini kita sedikit santai dengan script yang lumayan pendek.

Tujuannya membuat animasi text ini gunanya untuk membuat tampilan form menjadi lebih bagus dan menarik. Untuk lebih jelasnya, silakan sobat ikuti langkah-langkah berikut :

• Bukalah sebuah project di Visual Basic 6.0 dan tambahkan satu buah form
• Tambahkan DirectAnimation Library pada tools dengan cara : klik menu Project >> Pilih Components dan cari DirectAnimation Library pada list yang tersedia, kemudian beri tanda check list dan klik tombol OK.

• Kemudian letakkan DAViewerControlWindowed di form

• Buka bagian coding dari disain tersebut dan masukkan script berikut ini :

Option Explicit Dim Teks As String Dim i As Integer Dim digit As Integer Private Sub Form_Load() Form1.BackColor = vbWhite Dim kanvas, half, Font, clr, bgr Dim TxtAnimasi, pos, scl, xf Set kanvas = DAViewerControlWindowed1.MeterLibrary 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 _ ("Efek Animasi Text Dengan Visual Basic 6.0", 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) DAViewerControlWindowed1.BackgroundImage = _ kanvas.SolidColorImage(kanvas.White) DAViewerControlWindowed1.Image = TxtAnimasi DAViewerControlWindowed1.Start End Sub

• Perhatikan script diatas, sobat bisa mengganti kata-kata yang berada didalam tanda kutip ("") pada ("Efek Animasi Text Dengan Visual Basic 6.0", Font) sesuai dengan selera sobat

Bagaimana, mudah bukan...??

Project ini bisa sobat download disini :

Sekian dulu tutorial saya yang berjudul Cara Membuat Animasi Text Dengan Visual Basic 6.0. Selamat mencoba dan semoga bermanfaat.