Cara Membuat Animasi Pergerakan Gelombang di Visual Basic 6.0

Pada artikel kali ini tip dan trik unik visual basic akan membuat sebuah tips bagaimana menampilkan program animasi di Visual Basic. Kenapa di visual baic?.Untuk membuat program tidak selalu terpaku pada sebuah form atau database saja, kita perlu mendesain program tersebut harus lebih menarik lagi agar tampilan program terlihat lebih profesional yaitu dengan cara menambahkan sebuah animasi , tentunya animasi tersebut juga disesuaikan dengan program yang kita buat.

Dalam trik kali ini saya kan membuat sebuah animasi yang sangat sederhana yaitu membuat sebuah animasi pergerakan gelombang atau wave. Dengan memanfaatkan Picture Line dan beberapa komponen yaitu 2 komponen PictureBox dan 1 Timer kita sudah bisa membuat animasi.

Cara Membuat Animasi Gelombang di Visual Basic 6.0

Seperti biasa buka Form Visual basic Anda, tambahkan 2 buah PictureBox yaitu PictureBox1 dan PictureBox2 di dalam Form, lalu kedua form tersebut di posisikan dengan sama rata dengan background yang sama sehingga seolah-olah membentuk satu form yang utuh. Lihatlah pada gambar dibawah ini :

Desain Form Animasi Gelombang

Langkah selanjutnya tambahkan komponen Timer dengan Interval bernilai 1, setelah itu doubel klik Timer1 tambahkan kode dibawah ini :

Private Sub Timer1_Timer()

'timer gelombang

Dim x, y, offset

Picture1.AutoRedraw = True

Picture1.Cls

Static inte

inte = inte + 0.043

offset = inte * (462 / 49#)

Picture1.Scale (-23, 23)-(23, -23)

Picture1.Cls

For x = -13 / 1.2 To 13 / 1.2 Step 1.2

For y = -13 / 1.2 To 11.9 / 1.2 Step 0.9

Picture1.Line (-x * (4.949 / 7#) + y * (4.949 / 7#), -x * (4.949 / 7#) - y * (4.949 / 7#) + 1.5 * Sin(Sqr(x ^ 2 + y ^ 2) - offset))-(-x * (4.949 / 7#) + (y + 0.9) * (4.949 / 7#), -x * (4.949 / 7#) - (y + 0.9) * (4.949 / 7#) + 1.5 * Sin(Sqr(x ^ 2 + (y + 0.9) ^ 2) - offset)), vb3DLight

Next y

Next x

For y = -13 / 1.2 To 13 / 1.2 Step 1.2

For x = -13 / 1.2 To 11.9 / 1.2 Step 0.9

Picture1.Line (-x * (4.949 / 7#) + y * (4.949 / 7#), -x * (4.949 / 7#) - y * (4.949 / 7#) + 1.5 * Sin(Sqr(x ^ 2 + y ^ 2) - offset))-(-(x + 0.9) * (4.949 / 7#) + (y) * (4.949 / 7#), -(x + 0.9) * (4.949 / 7#) - (y) * (4.949 / 7#) + 1.5 * Sin(Sqr((x + 0.9) ^ 2 + y ^ 2) - offset)), vbRed

Next x

Next y

Picture1.AutoRedraw = True

End Sub

Tambahkan di Form Load kode berikut :

Private Sub Form_Load()

Picture2.Visible = False

End Sub

Setelah itu jalankan program jika berhasil akan muncul disebuah PictureBox animasi berupa gelombang yang yang bergerak seperti gelombang air yang mendidih.

Ouput Form

Itulah sekilas tentang Cara Membuat Animasi Pergerakan Gelombang di Visual Basic 6.0,selamat mencoba semiga berhasil.

Related Post: Animasi