Animasi VB Form keliling Layar

Hmmmm... udah ga ada ide mau buat apa lagi untuk kali ini, tapi iseng ajah deh ini buat animasi tentang visual basic 6. Sebelum nya banyak artikel mengenai animasi menggunakan visual basic 6 yang telah saya berikan di web ini.
Kali ini animasi yang dibahas adalah animasi form pada visual basci 6, dimana form bergerak mengelilingi layar monitor laptop atau komputer kalian, semoga aja ga kesasar ke monitor lain :p

Persiapan dalam project :

1. Buat project baru "Standart.exe"
2. Sediakan satu buah Timer
3. Dan 1 buah Button (untuk keluar/berhenti)
4. Segelas kopi susu biar tetep melek depan coding :p

Untuk Coding preview nya :

1. '---------------------------------------------------------------------------------------  
2. ' Module    : Form1  
3. ' Author    : indrawan  
4. ' Date      : 28/04/2012  
5. ' Purpose   : www.indrawan21.com  
6. '---------------------------------------------------------------------------------------  
7.   
8. Dim ZigZagY As Integer  
9. Dim ZigZagX As Integer  
10. Sub keliling()  
11. Me.Move Me.Left + ZigZagX, Me.Top + ZigZagY  
12.             If Me.Left < 0 Then  
13.                 ZigZagX = 20  
14.             ElseIf Me.Left + Me.Width > Screen.Width + 0 Then  
15.                 ZigZagX = -20  
16.             ElseIf Me.Top <= 0 Then  
17.                 ZigZagY = 20  
18.             ElseIf Me.Top + Me.Height > Screen.Height + 0 Then  
19.                 ZigZagY = -20  
20.             End If  
21. End Sub  
22.   
23. Private Sub Cexit_Click()  
24. End  
25. End Sub  
26.   
27. Private Sub Form_Load()  
28. ZigZagY = 20  
29. ZigZagX = 20  
30. Timer1.Enabled = True  
31. End Sub  
32.   
33. Private Sub Timer1_Timer()  
34. keliling  
35. End Sub  

Penjelasan sedikit...

'---------------------------------------------------------------------------------------
' Module    : Form1
' Author    : indrawan
' Date      : 28/04/2012
' Purpose   : www.indrawan21.com
'---------------------------------------------------------------------------------------

*numpang eksis sedikit pada coding, ga ngaruh apa2... dihapus atau dganti juga gpp kok #Hidup Open Source :p

---

1. Dim ZigZagY As Integer  
2. Dim ZigZagX As Integer  
3. Sub keliling()  
4. Me.Move Me.Left + ZigZagX, Me.Top + ZigZagY  
5.             If Me.Left < 0 Then  
6.                 ZigZagX = 20  
7.             ElseIf Me.Left + Me.Width > Screen.Width + 0 Then  
8.                 ZigZagX = -20  
9.             ElseIf Me.Top <= 0 Then  
10.                 ZigZagY = 20  
11.             ElseIf Me.Top + Me.Height > Screen.Height + 0 Then  
12.                 ZigZagY = -20  
13.             End If  
14. End Sub  

*Pendeklarasian Variable, dalam hal ini saya menggunakan ZigZagY dan ZigZagX yang ber-tipe data integer(penggunaan variable bebas dan disesuaikan)

---

1. Private Sub Form_Load()  
2. ZigZagY = 20  
3. ZigZagX = 20  
4. Timer1.Enabled = True  
5. End Sub  

*Pemberian value terhadap variable tsb, saya berikan nilai 20

---

1. Private Sub Timer1_Timer()  
2. keliling  
3. End Sub  

*Pemanggilan Sub animasi nya,menggunakan Timer, Untuk Timer itu sendiri silahkan kalian Set Interval-nya(misal 50). Semakin kecil Interval-nya, maka semakin cepat form tsb bergerak.

Download Source nya:

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...  

---