Loading halaman Tutorial Visual Basic, Delphi, PHP - Calon Programer : 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


2 Reply :

  1. kl picture or image'y z y keliling gmn??? thx b'4 ;-)

    BalasHapus
  2. @Anonim bisa dilihat pada listing terdapat
    Me.Move Me.Left Me.Top ,dan yg serupa.
    "Me."di situ adalah pengganti pemanggilan "Form" itu sendiri.
    jadi klo yg mau di buat animasi itu image,tinggal di ganti ajah jadi misal: image1.Move image1.Left image1.Top
    silahkan dicoba :)

    BalasHapus

Jika ada pertanyaan atau request,Komentar pada tab blogger akan lebih memudahkan saya untuk membalasnya karena lebih mudah melakukan pengecekan komentar.