Cara membuat form bergetar di VB - Untuk kali ini saya akan coba membahas mengenai bagaimana cara membuat form dengan efek vibrate atau bergetar di VB.
 |
| Form Bergetar |
Sebenarnya banyak sekali efek-efek untuk tampilan form yang ada di VB ini, salah satunya adalah membuat efek form dengan efek seperti meledak dan sebagainya. Akan tetapi untuk kal ini saya akan memberikan tip yang satu ini terlebih dahuluyaitu bagaimana cara membuat form yang bergetar di VB seperti layaknya gedung yang terkena gempa bumi. Untuk membuat efek ini sangat sederhana kita hanya cukup memasang form polos tanpa kontrol apapun di dalam form itu, kita juga bisa membuatnya di aplikasi kita yang sudah jadi.
Form bergetar ini biasanya digunakan dalam aplikasi Chatting, untuk mengingatkan lawan chattingnya apabila pesannya tidak dibalas-balas (buzz). Berikut cara membuatnya :
Cara membuat form bergetar di VB
Buat sebuah Form dengan sebuah Tombol / Button dan sebuah Timer (Enabled=False; Interval=10) didalamnya. Di bagian '(Declarations)' dari Form ketikkan :
Dim g As Integer
Di bagian Tombol / Button 'Click' ketikkan :
Timer1.Enabled = True
Di bagian Timer ketikkan : (khusus untuk VB .NET gantikan angka yang berwarna merah dengan angka 4)
If Me.WindowState <> 0 Then GoTo Ero
Select Case g
Case 0, 5
Me.Left = Me.Left - 60
Case 1, 6
Me.Top = Me.Top - 60
Me.Left = Me.Left + 60
Case 2, 7
Me.Top = Me.Top + 60
Me.Left = Me.Left + 60
Case 3, 8
Me.Top = Me.Top + 60
Me.Left = Me.Left - 60
Case 4, 9
Me.Top = Me.Top - 60
End Select
If g = 9 Then
Ero:
Timer1.Enabled = False
g = 0
Else
g = g + 1
End If
Jalankan aplikasi dan tekan tombolnya, cukup mudahkan apabila kita mau mencoba membuat form bergetar.
Selamat mencoba,.,