µÎ´õÁö°ÔÀÓÀ» ¹Þ¾ÆºÃ´Âµ¥...ÇöÀç ÄÚµå¿Í »çÁøÀº ¾Æ·¡¿Í °°½À´Ï´Ù
<ÄÚµå>
Dim keep
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdPause_Click()
tmr1.Enabled = False
img1.Visible = False
End Sub
Private Sub cmdRestart_Click()
lbl4.Caption = " "
lbl5.Caption = " "
cmdStart_Click
End Sub
Private Sub cmdStart_Click()
Dim x As Single, y As Single
Dim i As Integer
tmr1.Enabled = True
img1.Visible = True
lbl1.Caption = "Àß Á» ÇØ ºÁ¿ä!!"
x = Rnd() * 6960
y = Rnd() * 5580
If keep = 1 Then
img1.Move x, y
Else
keep = 1
img1.Move x, y
End If
End Sub
Private Sub Form_Load()
Randomize
tmr1.Interval = 1000
End Sub
Private Sub img1_Click()
If img1.Visible = True Then
img1.Visible = False
img2.Left = img1.Left
img2.Top = img1.Top
img2.Visible = True
lbl5.Caption = Str(Val(lbl5.Caption) + 1)
End If
End Sub
Private Sub optEasy_Click()
tmr1.Interval = 1200
End Sub
Private Sub optExpert_Click()
tmr1.Interval = 400
End Sub
Private Sub optMid_Click()
tmr1.Interval = 800
End Sub
Private Sub tmr1_Timer()
If keep = 1 Then
lbl4.Caption = Str(Val(lbl4.Caption) + 1)
keep = 0
cmdStart_Click
If img2.Visible = True Then
img2.Visible = False
img1.Left = img2.Left
img1.Top = img2.Top
img1.Visible = True
lbl1.Caption = " ¸Þ·Õ~~~~~~!!"
End If
End If
End Sub
<±¸µ¿»çÁøµé>
ÀÌ·¸°Ô ¼³Á¤Çߴµ¥...±îÅ»½º·± Á¶¿øÀÌ Â¯±¸ ¸»°í ´Ù¸¥ ¾ÆÀÌÄÜÀ» Áý¾î³Ö°í...ÁÙ°ú ÄÀ» ±×¾î¼ ±× Ä¿¡ µ¹¾Æ´Ù´Ò¼ö ÀÖ°Ô ¼³Á¤ÇØ ´Þ¶ó°í Çϴµ¥...
¾î¶»°Ô ÇÏ´ÂÁö ¸ð¸£°Ú³×¿ä ¤Ð¤Ð ¾î¶»°Ô »õ·Î¿î ±×¸² ¾ÆÀÌÄÜÀ» Àû¿ëÇÒ¼ö ÀÖÀ»±î¿ä?
ÄÚµù °í¼ö ºÒÆæºÐµéÀÇ Á¶¾ð ¸¹ÀÌ ºÎŹµå¸³´Ï´Ù ¤Ð¤Ð (_ _)