Cara Menggerakan Image atau gambar dengan perintah Command Button di Visual Baic 6.0

 Apakah anda suka bermain Game? sudah barang tentu bermain game sangat menyenangkan baik untuk orang dewasa maupun anak-anak.

Pada pertemuan kali Saya akan membagikan sebuah trik bagaimana cara menggerakan sebuah image atau gambar dengan cara menekan tombol prtintah CommandButton supaya objek bisa bergerak sesuai yang kita inginkan seperti layaknya dalam sebuah game penyusun balok

Animasi memang selalu menjadi bagian yang menarik dan mengasyikkan dari pemrograman. Meskipun visual basic tidak dirancang untuk menangani animasi tingkat lanjut, Anda masih dapat membuat beberapa efek animasi yang menarik dan sederhana untuk sebagai bahan pembelajaran dan menambah wawasan dalam ilmu pemograman. 

Ada banyak cara untuk membuat efek animasi di VB6, tetapi sebagai permulaan, kita akan fokus pada beberapa metode mudah.

Cara paling sederhana untuk membuat animasi adalah dengan cara menambahkan kode pada image yaitu Image1.Width + 100 dari sekelompok image atau gambar.  

Contoh pada gambar dibawah ini adalah program yang dapat memindahkan objek ke atas, ke bawah. kiri, dan kanan setiap kali Anda mengklik tombol perintah yang relevan. Kita juga bisa dapat menambahkan efek Zoom In dan Zoom Out agar objek gambar bisa di perbesar atau diperkecil.

Cara Menggerakan Image atau gambar dengan perintah Command Button di Visual Baic 6.0

Berikut adalah langkah-langkahnya :

Buka VB6 Anda

Pilih File - NewProject - Standar EXE

Desain form Seperti gambar dibawah

Desain Form Animasi

Atur Propertinya sebagai berikut :

No	Toll Box	Properties
1	Command1	Caption : Zoom In
2	Command2	Caption : Zoom Out
3	Command3	Caption : move downt
4	Command4	Caption : move left
5	Command5	Caption : move up
6	Command6	Caption : move right

Tulis source codenya  sebagai berikut :

Private Sub Command1_Click()

Image1.Height = Image1.Height + 100

Image1.Width = Image1.Width + 100

End Sub

Private Sub Command2_Click()

Image1.Height = Image1.Height - 100

Image1.Width = Image1.Width - 100

End Sub

Private Sub Command3_Click()

Image1.Top = Image1.Top + 100

End Sub

Private Sub Command4_Click()

Image1.Left = Image1.Left - 100

End Sub

Private Sub Command5_Click()

Image1.Top = Image1.Top - 100

End Sub

Private Sub Command6_Click()

Image1.Left = Image1.Left + 100

End Sub

Simpan hasil pekerjaan Anda, lalu jalankan program

Intruksi :

Zoom In befungsi untuk memperbesar object atau gambar

Zoom Out berfungsi untuk memperkecil object atau gambar

Move Down berfungsi untuk menggerakan object atau gambar kebawah

Move Up berfungsi untuk menggerakan object atau gambar keatas

Demikian artikel tentang cara Menggerakan Image atau gambar dengan perintah Command Button di Visual Baic 6.0. Semoga bermanfaat selamat mencoba semoga berhasil

Related Post: Image