iklan

Iklan

Cara Membuat animasi vb Bag.1




Animasi selalu merupakan bagian yang menarik dan menarik dari pemrograman. Meskipun visual dasar tidak dirancang untuk menangani animasi muka, Anda masih dapat membuat beberapa efek animasimenarik jika Anda menaruh di beberapa berpikir keras. Ada banyak cara untuk membuat efek animasi di VB6, tapi untuk memulai kita akan fokus pada beberapa metode yang mudah. 

Cara termudah untuk membuat
 animasi adalah untuk mengatur properti DILIHAT dari sekelompok gambar atau gambar atau teks dan label untuk benar atau salah dengan memicu serangkaian peristiwa seperti mengklik sebuah tombol. Mari kita periksa contoh berikut: 

Ini adalah program yang menciptakan ilusi bergerak pesawat jet di empat arah, Utara, Selatan, Timur, Barat. Untuk melakukan hal ini, masukkan lima gambar dari gambar yang sama ke dalam formulir. Mengatur properti terlihat dari gambar di pusat untuk benar sedangkan sisanya diset false. Pada start-up, pengguna hanya akan dapat melihat gambar di tengah. Selanjutnya, memasukkan empat tombol perintah ke dalam formulir dan mengubah label Pindah Utara, Timur Pindah, Pindah Pindah Barat dan Selatan masing-masing. Double klik pada tombol bergerak ke utara dan kunci dalam prosedur berikut:
 

1.     Sub Command1_click( )  
2.       
3.     Image1.Visible = False  
4.     Image3.Visible = True  
5.     Image2.Visible = False  
6.     Image4.Visible = False  
7.     Image5.Visible = False  
8.       
9.     End Sub  
Dengan mengklik tombol bergerak ke utara, hanya gambar 3 ditampilkan. Ini akan memberikan ilusi bahwa pesawat jet telah bergerak ke utara. Kunci dalam prosedur yang sama dengan mengklik ganda tombol perintah lainnya. Anda juga dapat memasukkan tombol perintah penambahan dan label sebagai Reset dan kunci dalam kode berikut: 
1.     Image1.Visible = True  
2.     Image3.Visible = False  
3.     Image2.Visible = False  
4.     Image4.Visible = False  
5.     Image5.Visible = False  

Mengklik pada tombol reset akan membuat gambar di tengah terlihat lagi sedangkan gambar lainnya menjadi tidak terlihat, ini akan memberikan kesan palsu bahwa pesawat jet telah pindah kembali ke posisi semula.

Anda juga dapat menjalankan perintah menggunakan textbox. Programnya adalah sebagai berikut:
1.     Private Sub Command1_Click()  
2.       
3.     If Text1.Text = "n" Then  
4.     Image1.Visible = False  
5.     Image3.Visible = True  
6.     Image2.Visible = False  
7.     Image4.Visible = False  
8.     Image5.Visible = False  
9.       
10.   ElseIf Text1.Text = "e" Then  
11.   Image1.Visible = False  
12.   Image4.Visible = True  
13.   Image2.Visible = False  
14.   Image3.Visible = False  
15.   Image5.Visible = False  
16.     
17.   ElseIf Text1.Text = "w" Then  
18.   Image1.Visible = False  
19.   Image3.Visible = False  
20.   Image2.Visible = False  
21.   Image4.Visible = False  
22.   Image5.Visible = True  
23.     
24.   ElseIf Text1.Text = "s" Then  
25.   Image1.Visible = False  
26.   Image3.Visible = False  
27.   Image2.Visible = True  
28.   Image4.Visible = False  
29.   Image5.Visible = False  
30.   End If  
31.     
32.   End Sub  
Cara lain yang sederhana untuk mensimulasikan animasi di VB6 adalah dengan menggunakan sifat Kiri dan Top dari sebuah objek. Image.Left memberikan jarak gambar dalam twips dari perbatasan sebelah kiri layar, dan Image.Top memberikan jarak gambar dalam twips dari perbatasan atas layar, di mana 1 twip adalah setara dengan 1 / 1440 inci. Menggunakan pernyataan seperti Image.Left-100 akan memindahkan gambar 100 twips ke kiri, Image.Left 100 akan memindahkan gambar 100 twip menjauh dari kiri (atau 100 twips ke kanan), Image.Top-100 akan memindahkan gambar 100 twips ke atas dan Image.Top 100 akan memindahkan gambar 100 twips jauh dari perbatasan atas (atau 100 twips bawah) Berikut ini adalah sebuah program yang dapat memindahkan objek ke atas, bawah.. kiri, dan kanan setiap kali Anda mengklik pada tombol perintah yang relevan.
 
 
1.     Private Sub Command1_Click()  
2.     Image1.Top = Image1.Top + 100  
3.     End Sub  
4.       
5.     Private Sub Command2_Click()  
6.     Image1.Top = Image1.Top - 100  
7.     End Sub  
8.       
9.     Private Sub Command3_Click()  
10.   Image1.Left = Image1.Left + 100  
11.   End Sub  
12.     
13.   Private Sub Command4_Click()  
14.   Image1.Left = Image1.Left - 100  
15.   End Sub  
Contoh keempat membiarkan pengguna memperbesar dan mengurangi suatu objekdengan mengubah tinggi dan lebar sifat objek. Hal ini sangat mirip dengan contoh sebelumnyaLaporan Image1.Height = Image1.Height + 100 dan Image1.Width =Image1.Width + 100 akan meningkatkan tinggi dan lebar dari sebuah objek dengan 100twips setiap kali pengguna mengklik pada tombol perintah yang relevanDi sisi lain,Laporan Image1.Height = Image1.Height - 100 dan Image1.Width = Image1.Width -100 akan mengurangi tinggi dan lebar dari sebuah objek dengan 100 twips setiap kali klikpengguna pada tombol perintah yang relevan 


1.     Private Sub Command1_Click()  
2.     Image1.Height = Image1.Height + 100  
3.     Image1.Width = Image1.Width + 100  
4.     End Sub  
5.       
6.     Private Sub Command2_Click()  
7.       
8.     Image1.Height = Image1.Height - 100  
9.     Image1.Width = Image1.Width - 100  
10.     
11.   End Sub