Membuat Objek Bergerak di Visual Basic

Selamat datang sob di blog saya ini.

Pada postingan kali ini saya akan membahas seputar  Program Visual Basic.

Visual Basic merupakan perangkat lunak (software) buatan Microsoft yang digunakan untuk membuat suatu software/program baru misalnya: Kalkulator, Game, Browser, Antivirus dan lain-lain sesuai keinginan kita. Microsoft Visual Basic yang banyak digunakan saat ini yaitu Visual Basic 6.0 dan saya pun menggunakan versi ini karena lebih mudah saat digunakan sedangkan untuk versi yang lain saya belum pernah pakai… hehehe.

Kali ini kita akan membuat program yang bisa menggerakkan suatu objek di visual basic. Namun program yang akan saya buat ini hanya sebagai contoh saja dan bisa dikembangkan agar lebih menarik dan sempurna. Adapun langkah-langkah membuatnya sebagai berikut :

1. Pertama-tama kita buka Program Visual Basic

    Klik Start à All Program à Microsoft Visual Studio 6.0 à Microsoft Visual Basic 6.0

2. Pilih Standard EXE à OK

Tampilan Visual Basic saat di-start

3. Pada jendela Form masukkan 3 Command Button dan 2 Timer

1 Command Button (CommandButton1) digunakan sebagai objek yang akan digerakkan, ini sifatnya optional artinya bisa diganti sesuai keinginan sobat namun codenya juga harus diubah kalau objeknya akan diganti. Posisikan objek di pinggiran jendela Form (Left=0)

2 Command Button lainnya (CommandButton2 dan CommandButton3) digunakan untuk mengaktifkan 2 Timer.

2 Timer digunakan untuk menggerakkan objek. Ubah interval kedua timer pada jendela propertis menjadi 100 dan Enabled-nya menjadi False.Ganti semua caption command button di jendela properties sesuai keinginan sobat atau sesuai gambar di bawah ini.

Jendela Form

4. Masukkan atau copy source code berikut ke jendela code (Klik 2x jendela Form1)

Private Sub Command2_Click()

Timer1.Enabled = True

Timer2.Enabled = False

End Sub

Private Sub Command3_Click()

Timer1.Enabled = False

Timer2.Enabled = True

End Sub

Private Sub Timer1_Timer()

If Command1.Left < 13320 Then

Command1.Left = Command1.Left + 100

End If

End Sub

Private Sub Timer2_Timer()

If Command1.Left > 0 Then

Command1.Left = Command1.Left - 100

End If
End Sub

Jendela Code

Angka 100 pada code bisa diganti sesuai keinginan sobat. Angka tersebut mempengaruhi kecepatan gerak dari objek.

Penjelasan Code :

1. Jika CommandButton2  ditekan maka Timer1 akan aktif dan Timer2 tidak aktif.
2. Jika CommandButton3 ditekan maka Timer1 akan tidak aktif dan Timer2 aktif.
3. Jika Timer1 aktif dengan posisi CommandButton1 lebih kecil dari 13320 maka akan maju atau bertambah 100.
4. Jika Timer2 aktif dengan posisi CommandButton1 lebih besar dari 0 maka akan mundur atau berkurang 100.

5. Program siap untuk dijalankan ( Tekan F5 atau Start di Toolbar ).

Program saat di-start

Selanjutnya tekan Maju agar objek bergerak maju atau tekan Mundur agar objek bergerak mundur.

6. Save Program yang telah dibuat (File à Save As atau Ctrl + S).

Demikian postingan saya kali ini tentang Menggerakan Objek di Visual Basic. Semoga bermanfaat.

Mohon tinggalkan komentar dan jika suka dengan posting ini silakan di-share.