VB6 Vibration Form

share ilmu sedikit, semoga bermanfaat saja...

Form bergetar biasanya digunakan dalam aplikasi Chatting, untuk mengingatkan lawan chattingnya apabila pesannya tidak dibalas-balas (buzz). Berikut cara membuatnya :

Buat sebuah Form dengan sebuah Tombol / Button dan sebuah Timer (Enabled=False; Interval=10) didalamnya.
Di bagian '(declarations)' dari Form ketikkan :

[code]
Dim g As Integer

atau mau di taruh di mana terserah situ...

Di bagian Tombol / Button 'Click' ketikkan :

[code]
Timer1.Enabled = True

Di bagian Timer ketikkan :(khusus untuk VB.NET gantikan angka 60 yg berwarna merah dgn angka 4)

[code]
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

sekarang silahkan coba aplikasinya dan tekan tombolnya

THE END