Pada pertemuan kali tipandtrickunikvb akan membagikan sebuah trik unik dimana kita akan membuat sebuah gambar gif menjadi bergerak.
Pada trik kali ini saya akan menggunakan 8 buah gambar dengan extension Gif, yaitu delapan buah gambar kupu-kupu yang masing-masing mempunyai sudut pandang yang berbeda.
Animasi bergerak ini akan di proses oleh sebuah Control timer yang dibangkitkan oleh sebuah interval dengan kecepatan 0. 0 adalah ukuran default yang berarti ukuran ini adalah 0 milidetik yang berarti tidak bergerak. Supaya gambar kupu-kupu ini bergerak kita perlu mengaturnya pada bagian interval misalnya 1 yang artinya 1 milidetik yang berarti nilai 1000 mewakili 1 detik,
Dalam membuat animasi kepakan kupu-kupu ini nilai interval sebuah timer akan menentukan kecepatan pada sebuah animasi. Dalam contoh berikut, kami menggunakan teknik yang sangat sederhana untuk menampilkan animasi dengan menggunakan properti Visible=False dan Visible=true untuk menampilkan dan menyembunyikan beberapa gambar secara bergantian.
Seperti yang saya sebutkan diatas kita membutuhkan 8 buah gambar gif yang akan kita tanamkan dalam sebuah Image dan setiap image satu gambar gif yang nantinya kedelepan gambar tersebut kita jadikan satu, seperti satu kesatuan yang utuh. Untuk lebih jelasnya perhatikan gambar desain form dibawah ini :
 |
| Form Desain |
Kalau Anda sudah mendesain form seperti gambar diatas dan telah menyusun gambar dengan benar sekarang kita tinggal menambahkan kecepatan kepakan kupu-kupu. Semakin kecil interval semakin cepat. Dalam form ini kami memberikan interval =75.
Langkah berikutnya kita akan memberikan kode seperti dibawah ini :
Sub move_up()
If Image1.Visible = True Then
Image1.Visible = False
Image2.Visible = True
Image2.Top = Image2.Top - 100
ElseIf Image2.Visible = True Then
Image2.Visible = False
Image3.Visible = True
Image3.Top = Image3.Top - 100
ElseIf Image3.Visible = True Then
Image3.Visible = False
Image4.Visible = True
Image4.Top = Image4.Top - 100
ElseIf Image4.Visible = True Then
Image4.Visible = False
Image5.Visible = True
Image5.Top = Image5.Top - 100
ElseIf Image5.Visible = True Then
Image5.Visible = False
Image6.Visible = True
Image6.Top = Image6.Top - 100
ElseIf Image6.Visible = True Then
Image6.Visible = False
Image7.Visible = True
Image7.Top = Image7.Top - 100
ElseIf Image7.Visible = True Then
Image7.Visible = False
Image8.Visible = True
Image8.Top = Image8.Top - 100
ElseIf Image8.Visible = True Then
Image8.Visible = False
Image1.Visible = True
Image1.Top = Image1.Top - 100
End If
End Sub
Private Sub Form_Load()
move_up
End Sub
Private Sub Timer1_Timer()
If Image1.Visible = True Then
Image1.Visible = False
Image2.Visible = True
ElseIf Image2.Visible = True Then
Image2.Visible = False
Image3.Visible = True
ElseIf Image3.Visible = True Then
Image3.Visible = False
Image4.Visible = True
ElseIf Image4.Visible = True Then
Image4.Visible = False
Image5.Visible = True
ElseIf Image5.Visible = True Then
Image5.Visible = False
Image6.Visible = True
ElseIf Image6.Visible = True Then
Image6.Visible = False
Image7.Visible = True
ElseIf Image7.Visible = True Then
Image7.Visible = False
Image8.Visible = True
ElseIf Image8.Visible = True Then
Image8.Visible = False
Image1.Visible = True
End If
End Sub
Jika anda ingin berkenan membuatnya siapkan bahannya :
1. 8 buah gambar kupu-kupu
2. 8 buah Control Image
3. 1 Control Timer dengan interval 75 (sesuai dengan keinginan)
 |
  |  |
 |
 |
 |
 |
No comments:
Post a Comment