Download source code vb6, source code delphi7, tutorial vb, tutorial delphi, tutorial php

Cara Membuat animasi vb Bag.2

Share on :
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  

Klik Like/share jika anda menyukai tulisan Share

1 komentar:

Dara Aceh mengatakan... 30 November 2012 pukul 00.28

bisa ga di uploud cara pembuatannya yg lengkap?

Post a Comment and Don't Spam!

Terimakasih Sudah Berkomentar di artikel ini