Tutorial Visual Basic Duplikat Gambar, untuk animasi gambar berulang

DUPLIKAT GAMBAR

Tutorial kali ini kita akan menciptakan efek gambar seolah – olah terbang dengan melakukan duplikat gambar dan memindahkan posisi objek, trik ini juga dapat anda gunakan untuk menduplikat komponen lainnya.

1.      Bukalah program visual basic dan mulailah dengan form baru, kemudian ubahlah propertis BackColor form menjadi Hitam.

2.      Masukkan sebuah komponen Timer dan Image ke dalam area form, kemudian Index komponen Image menjadi 1 dan masukkan juga gambar yang anda sukai.

  

  

3.      Selanjutnya klik ganda di dalam area form dan ketiklah perintah di bawah ini pad aForm­Load.

1 2 3 4 5 6 7 8

Private Sub Form_Load() Dim i As Integer For i = 1 To 10     Load Image(i + 1)     Image(i + 1).Visible = True Next i Randomize End Sub

Keterangan Kode

2 3-4 6-7

Mendeklarasikan variabel I dengan tipe data Integer. Melakukan pengulangan sebanyak 10kali dan melakukan duplikat komponen Image dengan pembeda index pada masing – masing komponen. Menampikan emua komponen Image baru dan membuat perintah supaya nilai pengacakan lebih acak.

4.      Kembali ketampilan desain form, kemudian klik ganda komponen Timer dan ketiklah perintah di bawah ini :

1 2 3 4 5 6 7

Private Sub Timer1_Timer()     Dim i As Integer         For i = 1 To 11         Image(1).Move Image(i).Left + ScaleWidth * (Rnd - 0.5) / 30, Image(i).Top + ScaleHeight * (Rnd - 0.5) / 30     Next End Sub

Keterangan Kode

2 3-5

Mendeklarasikan variabel i dengan  tipe data integer. Melakukan pengulangan sebanyak jumlah komponen Image untuk mengubah posisi Left dan Top masing – masing komponen secara acak sesuai dengan lebar dan tinggi form.

5.      Unuk mencobah hasilnya tekan tombol F5 pada keyboard anda.