Membuat Objek (Shape) Bergerak Dari Kiri Ke Kanan Vb

Hai teman Routeros Mikrotik, pada tutorial kali ini kita akan menciptakan sebuah tool box bergerak secara horizontal dari kiri ke kanan, untuk toolbox yang akan kita pakai ialah shape dan timer sebagai kunci program, untuk membuatnya silahkan pelajari tutorial berikut :

1. Jalankan VB dengan agenda Standar EXE.

2. Lalu tambahkan 1 buah shape dan 1 buah timer

untuk peletakan dan ukuran dari shape itu bebas, dapat anda atur sendiri sesuai keingin, tapi untuk peletakan shape akan kita atur memakai script, berikut properti yang harus anda ubah

Tool Box	Properties	Keterangan
Form 1	Statr Up Position	Center Screen
Shape 1	Name	Shape
	Shape	Circle
	Back Color	Biru
	Back Style	Opaque
Timer 1	Name	Timer
	Interval	10

3. Lalu tuliskan script berikut :

Dim x, y As Integer

Private Sub Form_Load()
Form1.ScaleWidth = 400 'Skala jendela form ialah 400 x 100
Form1.ScaleHeight = 100
x = 20: y = 50 'Posisi shape dikala agenda 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

Your Text Here

4. Jalankan program

posisi awal (1)	Pergerakan (2)
Pergerakan (3)	Akhir dari pergerakan (4) dan kembali lagi ke 1

Ketika agenda 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),
dikala shape hingga di garis tepi kanan form, posisi x shape akan kembali lagi ke posisi awalnya

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

Sekian tutorial kali ini, biar bermanfaat