Membuat Efek Animasi Form dengan Gerakan Slowmotion di VB6

Ditulis olehMC Project -
Artikel Terkait Tutorial VB6
Cara Membuat Efek Animasi Form Bertabur Bintang  di VB6 - Pada pertemuan malam kali ini tip dan trik visual basic ingin memberikan sebuah tip yaitu cara membuat sebuah efek pada form bertaburan bintang dengan gerakan slow motion. Animasi yang ditampilkan pada tip ini mirip sebuah bintang di luar angkasa yang bertebaran seolah-olah bergerak memutari orbitnya.
Membuat Efek Animasi vb6, membuat animasi di vb6, membuat slowmotion di vb6
Form merupakan salah wadah untuk menempatkan kontrol-kontrol tertentu untuk membuat sebuah program aplikasi,Form di ibaratkan sebuah kanvas kosong dimana Anda bisa memoles form tersebut menjadi lebih interaktif dan tentu saja dengan penampilan yang menarik.Banyak cara untuk merubah form agar tampil menarik salah satunya adalah dengan membuat sebuah animasi form bertabur bintang. Bagi Anda pencinta animasi atau game tip ini perlu Anda coba untuk memperindah tampilan project yang Anda buat.Biasanya animasi ini cocok untuk background tampilan sebuah game yang menekan pada pergerakan objek terbang.

Untuk membuat animasi ini sangatlah mudah tidak banyak menggunakan kontrol-kontrol didalamnya. Bagi Anda yang penasaran bagaimana cara membuatnya mari ikuti langkah-langkah berikut dibawah ini :

Cara Membuat Efek Animasi Bertabur Bintang di VB6

1. Buka Form Standar VB6 Anda dan tambahkan satu Control Timer di form Anda.
2. Klik ganda area form kosong maka akan muncul jendela kode kemudian Anda ketik kode dibawah
    ini :

Dim X(100), Y(100), Z(100) As Integer
Dim tmpX(100), tmpY(100), tmpZ(100) As Integer
Dim K As Integer
Dim Zoom As Integer
Dim Speed As Integer

Private Sub Form_Activate()
    Speed = -1
    K = 2038
    Zoom = 256
    Timer1.Interval = 1

    For i = 0 To 100
        X(i) = Int(Rnd * 1024) - 512
        Y(i) = Int(Rnd * 1024) - 512
        Z(i) = Int(Rnd * 512) - 256
    Next i
End Sub

Private Sub Timer1_Timer()
    For i = 0 To 100
        Circle (tmpX(i), tmpY(i)), 5, BackColor
        Z(i) = Z(i) + Speed
        If Z(i) > 255 Then Z(i) = -255
        If Z(i) < -255 Then Z(i) = 255
        tmpZ(i) = Z(i) + Zoom
        tmpX(i) = (X(i) * K / tmpZ(i)) + (Form1.Width / 2)
        tmpY(i) = (Y(i) * K / tmpZ(i)) + (Form1.Height / 2)
        Radius = 1
        StarColor = 256 - Z(i)
        Circle (tmpX(i), tmpY(i)), 5, RGB(StarColor, StarColor, StarColor)
    Next i
End Sub

3. Setelah Anda selesai mengetik kode, jangan lupa simpan hasil pekerjaan Anda dan jalankan
    program.
   
Demikian tip dan trik Cara Membuat Efek Animasi Bertabur Bintang di VB6,semoga tip ini bermanfaat.Selamat mencoba semoga berhasil.

Tag : Membuat Efek Animasi vb6, membuat animasi di vb6, membuat slowmotion di vb6


Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :


Rekomendasi Web Hosting
  1. 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini (apache).
  2. 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini (litespeed).
  3. 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini (apache).
Tag