Cara membuat animasi form bergerak ke atas, ke bawah, ke kanan dan ke kiri pada Visual Basic 6.0 (VB6)

Suatu program akan lebih menarik apabila dibuat dengan disain dan penggunaan warna yang menarik serta menampilkan animasi. Dalam postingan ini, akan dibahas bagaimana cara membuat  animasi form bergerak ke atas, ke bawah, ke kanan dan ke kiri. animasi ini sangat cocok digabungkan dengan program lain agar tampilannya lebih menarik dimana sebelum program yang sedang dijalankan ditutup (end), form akan bergerak ke atas atau ke bawah atau ke kanan atau ke kiri. Tanpa banyak basa - basi, kita langsung saja masuk ke dalam langkah – langkah pembuatan program :

·           Buka proyek Standard EXE yang baru

·           Disain tampilan form seperti gambar berikut dengan menggunakan CommandButton dan objek Timer sebanyak 4 buah.

 

  Gbr 1

·      Atur Properties masing - masing kontrol seperti dibawah ini :

Kontrol	Properties	Pengaturan
Timer1	Name Interval	tmr_atas 100
Timer2	Name Interval	tmr_bawah 100
Timer3	Name Interval	tmr_kanan 100
Timer4	Name Interval	tmr_kiri 100
CommandButton1	Name Caption	cmd_atas Form Bergerak Ke Atas
CommandButton2	Name Caption	cmd_bawah Form Bergerak Ke Bawah
CommandButton3	Name Caption	cmd_kanan Form Bergerak Ke Kanan
CommandButton4	Name Caption	cmd_kiri Form Bergerak Ke Kiri

·           Klik menu View  =>  Code, lalu copy paste (copas) kode program di bawah ini :

Private Sub cmd_atas_Click()

Me.tmr_atas.Enabled = True

End Sub

Private Sub cmd_bawah_Click()

Me.tmr_bawah.Enabled = True

End Sub

Private Sub cmd_kanan_Click()

Me.tmr_kanan.Enabled = True

End Sub

Private Sub cmd_kiri_Click()

Me.tmr_kiri.Enabled = True

End Sub

Private Sub Form_Load()

Me.tmr_atas.Enabled = False

Me.tmr_bawah.Enabled = False

Me.tmr_kanan.Enabled = False

Me.tmr_kiri.Enabled = False

End Sub

Private Sub tmr_atas_Timer()

DoEvents

    For i = 1 To Form1.Top

        If Form1.Top < Screen.Width Then

            Form1.Top = Trim(Str(Int(Form1.Top) - 10))

        End If

    Next i

    End

End Sub

Private Sub tmr_bawah_Timer()

DoEvents

    For i = 1 To Screen.Width

        If Form1.Top < Screen.Width Then

            Form1.Top = Trim(Str(Int(Form1.Top) + 10))

        End If

    Next i

    End

End Sub

Private Sub tmr_kanan_Timer()

DoEvents

    For i = 1 To Screen.Width

        If Form1.Left < (Screen.Height * 2) Then

            Form1.Left = Trim(Str(Int(Form1.Left) + 10))

        End If

    Next i

    End

End Sub

Private Sub tmr_kiri_Timer()

DoEvents

    For i = 1 To Form1.Left

        If Form1.Left < Screen.Height Then

            Form1.Left = Trim(Str(Int(Form1.Left) - 10))

        End If

    Next i

    End

End Sub

·           Jalankan Program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run  => Start

Source Code

atau