Membuat Objek (Shape) Bergerak Dari Kiri Ke Kanan VB

Hai sobat Blues Pedia, pada tutorial kali ini kita akan membuat sebuah tool box bergerak secara horizontal dari kiri ke kanan, untuk toolbox yang akan kita pakai adalah shape dan timer sebagai kunci program, untuk membuatnya silahkan pelajari tutorial berikut :

1. Jalankan VB dengan program Standar EXE.
2. Lalu tambahkan 1 buah shape dan 1 buah timer
untuk peletakan dan ukuran dari shape itu bebas, bisa anda atur sendiri sesuai keingin, tapi untuk peletakan shape akan kita atur menggunakan script, berikut properti yang harus anda ubah

Tool BoxPropertiesKeterangan
Form 1Statr Up PositionCenter Screen
Shape 1NameShape
ShapeCircle
Back ColorBiru
Back StyleOpaque
Timer 1NameTimer
Interval10


3. Lalu tuliskan script berikut :

Dim x, y As Integer

Private Sub Form_Load()
Form1.ScaleWidth = 400 'Skala jendela form adalah 400 x 100
Form1.ScaleHeight = 100
x = 20: y = 50 'Posisi shape ketika program di jalankan ada di (20, 50)
Shape.Top = y
Shape.Left = x
Timer.Enabled = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
Timer.Enabled = False
End Sub

Private Sub Timer_Timer()
x = x + 1 'Posisi x shape akan terus di tambah 1
If x > 380 Then x = 0 'Jika posisi shape x lebih dari 380 maka posisi shape x akan kembali ke 0
End If
Shape.Top = y
Shape.Left = x
Shape.Refresh
End Sub
4. Jalankan program
posisi awal (1)
Pergerakan (2)
Pergerakan (3)
Akhir dari pergerakan (4) dan kembali lagi ke 1

Ketika program di jalankan maka posisi shape akan berada di tepi garis kiri form, dan bergerak ke arah kanan dengan kecepatan (perubahan posisi x) 10 interval (atau 1 / 100 detik),
ketika shape sampai di garis tepi kanan form, posisi x shape akan kembali lagi ke posisi awalnya

Itulah tutorial mengenai cara membuat shape bergerak di visual basic, anda bisa mengganti tool boxnya (shape) dengan toolbox lainya, seperti Picture Box / image, dan anda hanya tinggal mengganti kata "Shape" di script dengan name dari toolbox yang di gunakan.

Sekian tutorial kali ini, semoga bermanfaat



Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+

0 Response to "Membuat Objek (Shape) Bergerak Dari Kiri Ke Kanan VB"

Post a Comment