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

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

TIPS Agar Flashdisk Aman Dari Pencuri ( Di Beri Password )

 Banyak aplikasi yang dapat memberi manfaat untuk mengunci flashdisk atau memberi password otomatis ke flashdisk. Tetapi beda lagi dengan postingan kali ini.
Cara ini sangat mudah dan bermanfaat apalagi seperti saya bermain di warnet sebelah rumah yang pakai flashdisk harus di comokin dulu di komputer sever. jadi bahaya dong bisa dibuka dari client lainnya

Cara ini akan otomatis meminta password ketika flashdisk dimasukan ke PC dan jika password salah, maka komputer akan shutdown secara otomatis.
Berikut Langkah langkahnya
1. Buka Notepad ,lalu copy paste script kode dibawah ini ke notepad

on error goto 0
dim s,quest,sd,m,winpath,fs
set sd=createobject(“Wscript.shell”)
set fs=createobject(“Scripting.FileSystemObject”)
set winpath=fs.getspecialfolder(0)
set s=wscript.createobject(“wscript.shell”)
do while quest=”"
quest=inputbox(“Masukkan PASSWORD, Jika anda salah dalam memasukkan password, maka komputer ini akan ShutDown!!!”,”http://hackcenter.wordpress.com”)
if quest=”" then
m=MsgBox(“Maaf anda belum memasukkan password…!”, 0+0+48, “http://hackcenter.wordpress.com”)
end if
loop
if quest=”TULIS PASSWORD DISINI” then
s.run “shutdown -a”
sd.run winpath & “\explorer.exe /e,/select, ” & Wscript.ScriptFullname
else
s.run “shutdown -s -t 0?
end if

TULIS PASSWORD DISINI ganti sesuai keinginan anda, itu adalah sebagai tempat password anda. Pemakaian huruf kapital sangat berpengaruh. saya sarankan memakai angka yang sudah diingat di luar kepala.
lalu save as dengan nama dengan passwordlock.vbs sebelum di save as pastikan pilih all files.
2. setelah selesai diatas.
lalu buka Notepad lagi, untuk pengaturan otomatis setelah flashdisk dimasukan di PC.
copy paste script kode dibawah ini ke notepad.

[Autorun]
shellexecute=wscript.exe passwordlock.vbs
action=FLASHDISK TELAH DILENGKAPI CODE 

anda dapat merubah kata “FLASHDISK TELAH DILENGKAPI CODE” sesuai kata-kata mutiara keinginan anda sendiri.
setelah itu lakukan penyimpanan seperti file yang pertama, tetapi pada bagian File name tulislah “autorun.inf” tanpa tanda kutip, sebelum di save as pastikan pilih all files.
Kemudian pindahkan kedua file yang telah anda buat tadi (autorun.inf dan passwordlock.vbs) ke dalam flashdisk anda.
langkah terakhir silahkan anda hidden autorun.inf dan passwordlock.vbs yang telah dibuat tadi.
Cara hidden : klik kanan pada masing- masing autorun.inf dan passwordlock.vbs lalu pilih properties centang kotak yang ada di tanda hidden. selesai . . . .
@info
-  kompitabel dengan win XP.
- dimohon jangan sampai lupa password sendiri (saya tidak bertanggung jawab atas kesalahan password sendiri)
masih kesulitan ?
bisa tinggalkan komentar dibawah .
selamat mencoba.

Tutorial "Memasukan Senjata Ke Folder CS"

Bagi Yang Sudah Download Skin Tapi Belum Tau Cara Mengubah Nya Ini TUTOR Nya
Maap Saya Tidak Akan Berpanjang Lebar X Tinggi : 2 Karena Pusing Langsung Saja Ke T....K....P