Problem Computer And Software

Cara membuat gambar bergerak seprti GIF pada VB6.0 tanpa Component External

| Sabtu, 16 Juni 2012
Kamu liat lingkaran yang berputar yang di lingkari oleh tanda merah?
apakah kamu berpikir itu mengunakan User Control Tambahan, menggunakan Component Flash??
pasti anda berfikir begitu, tetapi anda salah, ini hanya menggunakan Image dan Timer, hanya 2 control itu saja yang di butuhkan disini

Langsung to the step saja agar kalian mengerti


Step 1
pertama - tama buat gambar yang ingin bergerak ada 2 tipe disini ada tipe yang panjang < bersambungan  dalam 1 file > ada juga yang terpisah pisah

nah seperti ini contoh nya

lalu kita mulai.....

Pertama tama buka Microsoft Visual Basic 6.0 lalu pilih Standard EXE
lalu masukan masukan 1 objek image picture timer
Lihat tampak nya seperti ini
Fungsi Picture adalah menutupi bagian yang tidak ingin di perlihatkan sekaligus memberi kesan benar benar bergerak
< timer dengan enable = true >
lalu klik 2 kali pada timer dan ketikan code berikut

Private Sub Timer1_Timer()
Image1.Move Image1.Left - 360, Image1.Top
If Image1.Left < -3600 Then Image1.Left = 0
End Sub

Image1.Move = Menggerakan Image1
          Image1.Left - 360 = Menggerakan Image 1 ke kiri jengan jarak jangkau 360
          Image1.Top = Keberadaan top Image1

if image1.left < -3600  then image1.left = 0 = jika letak image1 lebih kecil dari lebar image1 atau jika seluruh bagian image1 letaknya di sebelah kiri picture lalu kembali ke letak utama image 1
lalu run dengan menekan Ctrl + F5
lihat objek itu seperti menggunakan flash
sebenarnya bergerak karena ini hanya Screenshot / gambar jadi seperti bohongan jika tidak percaya silahkan coba sendiri di Visual Basic 6.0

Cari Sesuatu?