iklan

Iklan

Cara Membuat animasi vb Bag.2




Animasi menggunakan Timer
Semua contoh sebelumnya animasi yang telah Anda pelajari dalam pelajaran 23 dan pelajaran 24 hanya melibatkan animasi manual, yang berarti Anda harus terus mengklik tombol perintah tertentu atau menekan tombol untuk membuat sebuah objek bernyawa. Dalam rangka untuk membuatnya bergerak secara otomatis, Anda perlu menggunakan timer. Langkah pertama dalam membuat animasi otomatis untuk menyeret timer dari toolbox ke dalam formulir dan mengatur interval untuk nilai tertentu selain 0. Nilai 1 adalah 1 milidetik yang berarti nilai 1000 merupakan 1 detik. Nilai interval waktu akan menentukan kecepatan pada animasi.


Pada contoh berikut, saya menggunakan teknik yang sangat sederhana untuk menunjukkan animasi dengan menggunakan properti Visible = False dan Visible = true untuk menampilkan dan menyembunyikan dua gambar secara bergantian. Ketika Anda klik pada program ini, Anda harus melihat animasi berikut.
1.  Private Sub Timer1_Timer()  
2.    
3.  If Image1.Visible = True Then  
4.  Image1.Visible = False  
5.  Image2.Visible = True  
6.  ElseIf Image2.Visible = True Then  
7.  Image2.Visible = False  
8.  Image1.Visible = True  
9.  End If  
10.   
11. End Sub  

Contoh berikutnya menunjukkan siklus lengkap dari sebuah gerak seperti kupu-kupu mengepakkan sayapnya. Contoh sebelumnya hanya menampilkan animasi panduan sementara contoh ini akan menampilkan animasi otomatis setelah Anda memulai program atau dengan mengklik tombol perintah. Mirip dengan contoh di bawah 24,2 pelajaran, Anda harus memasukkan kelompok delapan gambar kupu-kupu mengepakkan sayapnya pada tahapan yang berbeda. Selanjutnya, masukkan timer ke dalam formulir dan mengatur interval untuk 10 atau nilai yang Anda suka. Ingatlah untuk membuat image1 terlihat saat gambar lainnya tak terlihat saat start-up. Akhirnya, menyisipkan tombol perintah, mengubah nama keterangan sebagai Menghidupkan dan kunci dalam pernyataan berikut dengan mengklik ganda pada tombol ini. Ingatlah bahwa Anda harus memasukkan pernyataan untuk menyembunyikan dan menampilkan gambar di bawah subrutin timer1_timer jika animasi akan bekerja. Mengklik pada tombol bernyawa membuat memulai timer berdetak dan acara akan berjalan setelah setiap selang waktu 10 milidetik atau apa pun interval yang Anda telah mengatur pada saat desain. Dalam pelajaran masa depan, saya akan menunjukkan Anda bagaimana untuk menyesuaikan interval saat runtime dengan menggunakan slider bar atau bar gulir.
Ketika Anda menjalankan program, Anda harus melihat animasi berikut ini:


1.  Private Sub Form_Load()  
2.  Image1.Visible = True  
3.  x = 0  
4.  End Sub  
5.    
6.  Private Sub Command1_Click()  
7.  Timer1.Enabled = True  
8.  End Sub  
9.    
10. Private Sub Timer1_Timer()  
11. If Image1.Visible = True Then  
12. Image1.Visible = False  
13. Image2.Visible = True  
14.   
15. ElseIf Image2.Visible = True Then  
16. Image2.Visible = False  
17. Image3.Visible = True  
1.  ElseIf Image3.Visible = True Then  
2.  Image3.Visible = False  
3.  Image4.Visible = True  
4.  ElseIf Image4.Visible = True Then  
5.  Image4.Visible = False  
6.  Image5.Visible = True  
7.  ElseIf Image5.Visible = True Then  
8.  Image5.Visible = False  
9.  Image6.Visible = True  
10. ElseIf Image6.Visible = True Then  
11. Image6.Visible = False  
12. Image7.Visible = True  
13. ElseIf Image7.Visible = True Then  
14. Image7.Visible = False  
15. Image8.Visible = True  
16. ElseIf Image8.Visible = True Then  
17. Image8.Visible = False  
18. Image1.Visible = True  
19. End If  
20. End Sub