I'm Just A Kids


Game Iseng Bwt Jailin Orang..
February 10, 2009, 3:54 am
Filed under: Karya Bodoh

Nih ada program kecil2an.. buat isengin orang ajaa.. hehe..
step by step :

1.Bikin 1 buah project baru dan 1 buah form di dalem nya..
2.Edit form menjadi ukuran 13200 x 1380..
3.Bikin 1 Buah Command Button dengan caption “Klik Kalo Bisa!”
4.Tambahin 1 buah timer dengan interval 500 dan enabled = false
5.Bikin 1 buah module baru dan ketik coding ini :

Public Type RECT
  left As Integer
  top As Integer
  right As Integer
  bottom As Integer
End Type

Public Type POINT
  x As Long
  y As Long
End Type

Declare Sub ClipCursor Lib “user32” (lpRect As Any)
Declare Sub GetClientRect Lib “user32” (ByVal hWnd As Long, lpRect As RECT)
Declare Sub ClientToScreen Lib “user32” (ByVal hWnd As Long, lpPoint As POINT)
Declare Sub OffsetRect Lib “user32” (lpRect As RECT, ByVal x As Long, ByVal y As Long)

6.Ketik Coding ini untuk form yang telah di buat..

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Command1.Move Rnd * Form1.Width
End Sub
Private Sub Form_Load()
Dim client As RECT
Dim upperleft As POINT
  GetClientRect Me.hWnd, client
  upperleft.x = client.left
  upperleft.y = client.top
  ClientToScreen Me.hWnd, upperleft
  OffsetRect client, upperleft.x, upperleft.y
  ClipCursor client
Timer1.Enabled = True
End Sub

Private Sub command1_click()
Unload Me
End Sub

Private Sub timer1_timer()
merah = Rnd * 255
biru = Rnd * 255
hijau = Rnd * 255
Form1.BackColor = RGB(merah, biru, hijau)
End Sub

selesai deh.. buat kerjain orang, enak banget.. hehe.. bikin gondok !!! haha..

Find any Bugs..? Email to courze2nd@yahoo.com


Leave a Comment so far
Leave a comment



Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s



%d bloggers like this: