Wednesday 10 June 2009

Membuat Efek Vibrate Pada Form (VB)


http://erge32.blogspot.com Masih tentang Tips Visual Basic tentu nya .. kali ini eRGe mencoba berbagi lagi tentang Membuat Efek Vibrate pada Form . sebenarnya tips ini tidak terlalu penting, tapi sekedar mencoba share ilmu tentang VB aja buat sobat-sobat VB Developer tentunya yang masih junior. Tips ini untuk membuat unik Form sewaktu di run atau ditampilkan, maksud Efek Vibrate ini adalah efek getaran jadi sewaktu form di tampilan Form akan bergetar-getar seperti cacing kepanasan (wekekekeke .. kiding sob), untuk effect ini codingnya tidak panjang tidak capek ngetik nya, nah untuk mempersingkat waktu kita langsung to the point aja (wekeke..). bagi yang berminat silakan ikuti langkah-langkah berikut

Persiapan yang di lakukan :
Buat Project baru stardart exe .. lalu ketik coding berikut pada form sobat



Private Sub Vibrate(frm As Form, rScale As Integer, Times As Integer)
Dim Lft As Long, Tp As Long
Dim i
Lft = frm.Left
Tp = frm.Top
For i = 1 To Times
frm.Move Lft + Sgn(rScale)
Pause 20
frm.Move Lft + rScale
Pause 20
frm.Move Lft, Tp + Sgn(rScale), frm.Width, frm.Height
Pause 20
frm.Move Lft, Tp + rScale, frm.Width, frm.Height
Pause 20
Next i
End Sub

Private Sub Pause(ms)
Dim secs
Dim g
secs = ms / 1000
g = Timer
Do While Timer - g < secs
DoEvents
Loop
End Sub

Private Sub Form_Activate()
Vibrate Me, 100, 20
End Sub

Gak panjang kan, nah kalo udah selesai coba sobat jalankan (Run) atau tekan F5 , apa bener form nya bergetar-getar seperti cacing kepanasan ... (wekekeke ....), selamat mencoba aja yah.

mudah-mudahan ada mamfaat nya bagi kita semua dan khusus nya bagi VB Developer Junior semoga dapat menambah referensinya, sebelumnya terimakasih buat sobat-sobat yang sudah sudi mengkomentari artikel ini ... salam.

89 Komentar: Membuat Efek Vibrate Pada Form (VB)


asep canda on 10 June 2009 at 03:31 said...

vibratte itu apa apa semacam getaran gitu

Terima Kasih Sob asep canda Atas Komentarnya.
asep canda on 10 June 2009 at 03:37 said...

kaya hp ya bergetar wah mantab nih info nya sob keren buat jangan lupa klik ini ya HOSITAL

Terima Kasih Sob asep canda Atas Komentarnya.
Panca on 10 June 2009 at 03:58 said...

pusing aku, ngga ngerti soal VB...mudeng..

Terima Kasih Sob Panca Atas Komentarnya.
yoyok on 10 June 2009 at 04:33 said...

ehmmm...brother beraksi lagi dengan tutorialnya yang ok punya....
sukses brothr...jangn pernah bosan untuk berbagi,,,karena berbagi itu sangat indah.
SALAM

BROTHER

Terima Kasih Sob yoyok Atas Komentarnya.
FMA on 10 June 2009 at 07:33 said...

sob keren-keren nich ilmunya
hebat banget sob....kul di ilmu komputer yah???
sering diamalkan okek sob??
ditunggu jawabannya sob di komentar yah jangan disoutbox sobb...biar tambah-tambah komentar
seret banget nichh heheh...
walaupun dah di ganti jadi dofollow juga..
thanks yah sobb....sering-sering berkunjung and ngasih komen yah sob...

Terima Kasih Sob FMA Atas Komentarnya.
Rinto on 10 June 2009 at 09:11 said...

ayo bangun dunia di dalam perbedaan, bila tetap satu kita akan bersinar...info yg mantap Bos...meski banyak tema blog..tp kita tetap 1...hidup blogger Indonesia

Terima Kasih Sob Rinto Atas Komentarnya.
Kang suroto on 10 June 2009 at 10:27 said...

Infonya sangat berguna sobat,..

Terima Kasih Sob Kang suroto Atas Komentarnya.
ems on 10 June 2009 at 18:39 said...

oh, ternyata form ada vibrasi nya ya.. baru tau aku,,,hihihi

Terima Kasih Sob ems Atas Komentarnya.
Deni on 10 June 2009 at 21:00 said...

Nice info

Terima Kasih Sob Deni Atas Komentarnya.
firmanzr on 10 June 2009 at 21:09 said...

keren..keren..jd ingin nyobain nih..

Terima Kasih Sob firmanzr Atas Komentarnya.
rayhan on 10 June 2009 at 22:34 said...

mas,
numpang tanya nih, di mana saya bisa download VB ??

Terima Kasih Sob rayhan Atas Komentarnya.
Kang suroto on 10 June 2009 at 23:03 said...

Tambah manteb aja tutorialnya sobat, sukses terus untuk berbagi ilmunya..

Terima Kasih Sob Kang suroto Atas Komentarnya.
aan on 10 June 2009 at 23:28 said...

oke deh brother..... mantabbbbb tutorialnya

sukses selalu buat brother yang satu ini

salam brother

Terima Kasih Sob aan Atas Komentarnya.
rezza on 11 June 2009 at 00:21 said...

aku tau pasti keren,tapi aku gag mudeng VB cuma mudeng FB

Terima Kasih Sob rezza Atas Komentarnya.
Unknown on 11 June 2009 at 01:26 said...

nice info sob..sukses

Terima Kasih Sob Unknown Atas Komentarnya.
AnJeLaNeT Palangkaraya on 11 June 2009 at 01:59 said...

Bisa dicoba nih brother..
makasih 'share'nya..

Terima Kasih Sob AnJeLaNeT Palangkaraya Atas Komentarnya.
Bang Fajar on 11 June 2009 at 02:12 said...

walau aku ga' "ngeh" masalah VB, tapi tetap...aku kasih komentar...keep share ya sob...

Terima Kasih Sob Bang Fajar Atas Komentarnya.
Belajar SEO on 11 June 2009 at 02:16 said...

back to basic neh... hehehhhe.. keep share bos

Terima Kasih Sob Belajar SEO Atas Komentarnya.
desain grafis on 11 June 2009 at 02:31 said...

mantab sedot scriptnya

makasih bang

Terima Kasih Sob desain grafis Atas Komentarnya.
Muksinjamaludin on 11 June 2009 at 03:06 said...

sumpeh mantab neh info.. dari dulu neh baru tahu... mantab bos info nya... newbie neh mau izin sedot elmu vb nya boss... bravo, sekalian izin follow ya

Terima Kasih Sob Muksinjamaludin Atas Komentarnya.
KREDIT MOTOR BARU on 11 June 2009 at 03:09 said...

Saya akan coba terapkan nih ilmunya... thanks

Terima Kasih Sob KREDIT MOTOR BARU Atas Komentarnya.
NOMOR CANTIK PERDANA MURAH on 11 June 2009 at 03:10 said...

TQ for sharing with me....

Terima Kasih Sob NOMOR CANTIK PERDANA MURAH Atas Komentarnya.
Muksinjamaludin on 11 June 2009 at 03:33 said...

aduh dimana follow nya... mau izin bookmark aja deh bos... sorry ya di bookmark

Terima Kasih Sob Muksinjamaludin Atas Komentarnya.
TOMATO.Inc on 11 June 2009 at 20:19 said...

keren kalo teorinya tapi om erge ane puyeng soal prakteknya X_X

Terima Kasih Sob TOMATO.Inc Atas Komentarnya.
ifat on 11 June 2009 at 20:24 said...

nice post erge

Terima Kasih Sob ifat Atas Komentarnya.
Rusli Zainal Sang Visioner on 12 June 2009 at 21:17 said...

Wow Very Nice info..........Like it

Terima Kasih Sob Rusli Zainal Sang Visioner Atas Komentarnya.
Rusli Zainal Sang Visioner on 12 June 2009 at 21:18 said...

Nice Info Friends..

Terima Kasih Sob Rusli Zainal Sang Visioner Atas Komentarnya.
D-viz on 12 June 2009 at 23:31 said...

Thank....!!!! bro...!!!!

Terima Kasih Sob D-viz Atas Komentarnya.
cipluk on 15 June 2009 at 09:47 said...

Vibrate??biar bergetarrrr gitu yahhh...

Terima Kasih Sob cipluk Atas Komentarnya.
Visioner on 17 June 2009 at 21:11 said...

postingan yang sangat membantu sob...
terima kasih banyak ya sobatku...
teruskan karya mu...

Terima Kasih Sob Visioner Atas Komentarnya.
Kang suroto on 18 June 2009 at 06:18 said...

sukses selalu sahabat,,

Terima Kasih Sob Kang suroto Atas Komentarnya.
Pit-Onta™ a.k.a kAnzENk™ on 18 June 2009 at 07:49 said...

kembali ke laptop mantaf tenan bos artikelnya

Terima Kasih Sob Pit-Onta™ a.k.a kAnzENk™ Atas Komentarnya.
Opung on 18 June 2009 at 10:19 said...

salut neh buat erge..vb nya jago banget! sukses sob.

Terima Kasih Sob Opung Atas Komentarnya.
Visioner on 19 June 2009 at 02:33 said...

masternya Visual Basic nich...
kereeeeeennnnnn....

Terima Kasih Sob Visioner Atas Komentarnya.
ammadis on 20 June 2009 at 08:58 said...

VB itu pa yaa...???(ketauan dah gaptekya..)

Terima Kasih Sob ammadis Atas Komentarnya.
Opung on 21 June 2009 at 03:50 said...

bener2 deh si erge..hebat..salut buat bagi2 ilmunya..sukses sob!

Terima Kasih Sob Opung Atas Komentarnya.
Anonymous said...

very good of your blog, and very famous

Terima Kasih Sob Anonymous Atas Komentarnya.
Unknown on 21 June 2009 at 23:27 said...

Nambah ilmu lagi,.............makasih ka Erge.....
by http://fajarbukan.blogspot.com/

Terima Kasih Sob Unknown Atas Komentarnya.
kang_abeh on 22 June 2009 at 04:50 said...

wuih memang brother yang satu ini klo tentang VB ga diragukan lagi. T-O-P B G T deh

Terima Kasih Sob kang_abeh Atas Komentarnya.
Action on 22 June 2009 at 06:36 said...

sunguh postingan yang luar biasa...
boleh dites ni sob...

Terima Kasih Sob Action Atas Komentarnya.
anak nelayan on 23 June 2009 at 07:28 said...

maknyus banget nih sukses thanks friends

Terima Kasih Sob anak nelayan Atas Komentarnya.
Blogging tutorial on 23 June 2009 at 19:35 said...

Well, infonya back to basic... Nice post

Terima Kasih Sob Blogging tutorial Atas Komentarnya.
Imoel on 24 June 2009 at 08:25 said...

bagus banget artikelnya sob...
makasih ya ilmunya...

Terima Kasih Sob Imoel Atas Komentarnya.
hendrie k_bejo on 25 June 2009 at 22:30 said...

siiip menuju TKP bosss

Terima Kasih Sob hendrie k_bejo Atas Komentarnya.
2yiex on 26 June 2009 at 02:53 said...

oke banget infonya bro..

Terima Kasih Sob 2yiex Atas Komentarnya.
Muhammad Akhi on 26 June 2009 at 05:50 said...

Wahh... Bisa Dicoba nihh...
He..he..

Terima Kasih Sob Muhammad Akhi Atas Komentarnya.
mazblend on 28 June 2009 at 02:08 said...

info menarik.. nyoba dulu ah... salam kenal om.

Terima Kasih Sob mazblend Atas Komentarnya.
rinto on 28 June 2009 at 02:09 said...

Nice post...2 thumbs up for ya

Terima Kasih Sob rinto Atas Komentarnya.
otto on 28 June 2009 at 02:51 said...

oke juga post na bro, maju trs blogger

Terima Kasih Sob otto Atas Komentarnya.
kelik on 29 June 2009 at 22:50 said...

aduh aku buta VB.., seandainya bisa kan bisa sering2 ke blog ini.

Terima Kasih Sob kelik Atas Komentarnya.
animation,money n more on 4 July 2009 at 00:44 said...

mantabbs sob blajar ah lebih giat biat pinter kayak sobatku ini

Terima Kasih Sob animation,money n more Atas Komentarnya.
izoer on 7 July 2009 at 23:05 said...

Keren euy!!

Terima Kasih Sob izoer Atas Komentarnya.
o_0 on 11 July 2009 at 02:58 said...

iku memantaw... baca satu demi satu...

Terima Kasih Sob o_0 Atas Komentarnya.
zigot on 12 July 2009 at 21:04 said...

hadir sob.... tutorial yang mantab....

Terima Kasih Sob zigot Atas Komentarnya.
teror bom jakarta on 19 July 2009 at 06:17 said...

wuih keren tuh infonya,,,
thanks mas

Terima Kasih Sob teror bom jakarta Atas Komentarnya.
kumpulan bisnis on 19 July 2009 at 06:20 said...

makasih mas infonya,, benar2 menarik,,,

Terima Kasih Sob kumpulan bisnis Atas Komentarnya.
roomen on 19 July 2009 at 06:21 said...

selalu tentang VB,,
tp makasih dech buat tambh ilmu niy...

Terima Kasih Sob roomen Atas Komentarnya.
online business on 19 July 2009 at 06:23 said...

great info,,
thanks for sharing

Terima Kasih Sob online business Atas Komentarnya.
DOWNLOAD MP3 MICHAEL JACKSON on 19 July 2009 at 06:24 said...

wah keren tuh,,,
sekalian numpang tenar ,,,,

Terima Kasih Sob DOWNLOAD MP3 MICHAEL JACKSON Atas Komentarnya.
alone_ranger on 20 July 2009 at 20:50 said...

wah makasih mas infonya,, mantab dah. LANUTKAN,

Terima Kasih Sob alone_ranger Atas Komentarnya.
download mp3 gratis free on 28 July 2009 at 06:16 said...

sukses trus bos

Terima Kasih Sob download mp3 gratis free Atas Komentarnya.
electronic business on 28 July 2009 at 06:18 said...

belajar VB yg terbaik ya di blog ini

Terima Kasih Sob electronic business Atas Komentarnya.
info life insurance on 28 July 2009 at 06:18 said...

makasih infonya,,,

Terima Kasih Sob info life insurance Atas Komentarnya.
info mesothelioma online on 28 July 2009 at 06:20 said...

trims,,,,

Terima Kasih Sob info mesothelioma online Atas Komentarnya.
FOTO TANTE GIRANG on 4 August 2009 at 23:35 said...

bagus mas efeknya,, ada efek yg lain???

Terima Kasih Sob FOTO TANTE GIRANG Atas Komentarnya.
My XDA Blogspot on 6 August 2009 at 22:40 said...

mantaaaaaaaabbbb

mang keren nih :D

My XDA Blogspot

Terima Kasih Sob My XDA Blogspot Atas Komentarnya.
Anonymous said...

keren sob. . ..

Terima Kasih Sob Anonymous Atas Komentarnya.
FASHION MURAH BANDUNG on 16 August 2009 at 07:44 said...

mikum..
kawan, gimana ea caranya ngebuat banyak link?? apakah harus punya banyak lembar blog yang berbeda-beda gitu??

Terima Kasih Sob FASHION MURAH BANDUNG Atas Komentarnya.
IT Mild on 8 September 2009 at 02:39 said...

maksudnya vibrate tu kayak di buzz di YM tu bukan ya?

Terima Kasih Sob IT Mild Atas Komentarnya.
download video porno 3gp on 9 September 2009 at 03:05 said...

thanks uda berbagi mas,, lanjutkan !!!

Terima Kasih Sob download video porno 3gp Atas Komentarnya.
download video porno 3gp on 9 September 2009 at 03:06 said...

keren niy infonya,,, tetep posting ya ms

Terima Kasih Sob download video porno 3gp Atas Komentarnya.
antonfkip on 20 October 2009 at 11:44 said...

wadaw saya ga mudeng maslah vb neh mas.....
visit pandeglang
Kenali Dan Kunjungi Objek Wisata Di Pandeglang

Terima Kasih Sob antonfkip Atas Komentarnya.
KARTU-PULSAKU.COM SOLUSI BISNIS ONLINE ANDA on 17 November 2009 at 18:25 said...

sippp,, trik nya mantabzs

Terima Kasih Sob KARTU-PULSAKU.COM SOLUSI BISNIS ONLINE ANDA Atas Komentarnya.
microsoft word download on 22 November 2009 at 16:49 said...

mas ini memang programmer VB ya, hebat mas. saya mah nggak ngerti bahasa pemrograman. dulu pernah belajar tapi susah.. nggak pernah mudeng
mampir microsoft word free download

Terima Kasih Sob microsoft word download Atas Komentarnya.
Bekasi Peduli Aids on 1 December 2009 at 22:40 said...

wah tips nya asli keren, tinggal aku copas doang. gak usah nulis koding lagi yang rumit. thanks bro

Terima Kasih Sob Bekasi Peduli Aids Atas Komentarnya.
chocolate health benefits on 16 December 2009 at 14:30 said...

mantap deh, thanks atas tutorialnya

Terima Kasih Sob chocolate health benefits Atas Komentarnya.
hidup untuk berbagi on 26 December 2009 at 04:53 said...

wah,,, informasinya menarik banget,,, makasih banyak mas atas ilmu2nya,,,

Terima Kasih Sob hidup untuk berbagi Atas Komentarnya.
mbah gendeng on 30 December 2009 at 00:47 said...

masternya vb niy,, makasih dah bagi2

Terima Kasih Sob mbah gendeng Atas Komentarnya.
benny on 30 December 2009 at 19:56 said...

hahaha LUCU mas aku jadi mau ikutan an
ikutan ah mau shering

tapi ini bikin geter cara clasik
butuh 6 comand buton dan 1 form doang

====
Private Sub Command1_Click()
MsgBox Form1.Left, vbInformation, "Kiri - Kanan"
MsgBox Form1.Top, vbInformation, "Atas - Bawah"
End Sub

Private Sub Command2_Click()
Dim x As Integer
x = Form1.Left
Form1.Left = x - 200
End Sub

Private Sub Command3_Click()
Dim x As Integer
x = Form1.Left
Form1.Left = x + 200
End Sub

Private Sub Command4_Click()
Dim x As Integer
x = Form1.Top
Form1.Top = x - 200
End Sub

Private Sub Command5_Click()
Dim x As Integer
x = Form1.Top
Form1.Top = x + 200
End Sub

Private Sub Command6_Click()
Dim geter As Integer
geter = 0
Do Until geter >= 50 ''bergetar 50 X
Command2_Click
Command4_Click
Command3_Click
Command5_Click
geter = geter + 1
Loop
End Sub

Private Sub Form_Activate()
Form1.SetFocus
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 29 Then
KeyAscii = 29
End If
End Sub
========

Terima Kasih Sob benny Atas Komentarnya.
Aku Cuma Seorang Blogger Yang Cinta Seo on 7 January 2010 at 04:31 said...

nyepam dulu,, hahahahaha

Terima Kasih Sob Aku Cuma Seorang Blogger Yang Cinta Seo Atas Komentarnya.
Anonymous said...

mantap.......................

Terima Kasih Sob Anonymous Atas Komentarnya.
Anonymous said...

makasi sob tutorialnya..
sbagai pemula, tutorialnya ngebantu bgt
skali lg thnks y

Terima Kasih Sob Anonymous Atas Komentarnya.
ajuz said...

mantab nehg...
sedep bgd bang...

lanjutkan ya bang...
^_^

Terima Kasih Sob ajuz Atas Komentarnya.
BOSS on 30 September 2010 at 05:42 said...

bang erge gw nie BL69 yang d N3,add me ya di blog hehehe

Terima Kasih Sob BOSS Atas Komentarnya.
Anonymous said...

hatur nuhun kang

Terima Kasih Sob Anonymous Atas Komentarnya.
Steve on 27 February 2011 at 11:36 said...

thanks berat om eRGe atas tutorial tentang membuat efek vibrate nya :)

Terima Kasih Sob Steve Atas Komentarnya.
sayyed ahmad assagaf on 26 September 2011 at 18:36 said...

ini yg baruu

Terima Kasih Sob sayyed ahmad assagaf Atas Komentarnya.
Anonymous said...

gan numpang copas cobtoh vibrate ini, thx...

Terima Kasih Sob Anonymous Atas Komentarnya.
Unknown on 4 June 2012 at 03:05 said...

Ada yang salah sepertinya dengan Posting ini...
karena, pas saya run .. dia g bisa (eror)
mohon bantuanya,,,,

Terima Kasih Sob Unknown Atas Komentarnya.

Tanggapan Sobat

Zona Bebas Komentar tapi jangan nyepam.

Kalo nyepam minta maaf nih, dengan terpaksa dilaporkan pada kantor polisi terdekat dihapus, monggo sobat silakan komentar jangan malu-malu.

ABOUT ME

Empu Blog ini

SUPPORT BLOG INI




Submit

Display Pagerank Yahoo bot last visit powered by MyPagerank.Net

IKUTI VIA EMAIL

Enter your email address:

Delivered by FeedBurner

My Blog Do Follow

5 Komentar Terbaru