우성호 님이 강의 해주신 소스를 개조해봤습니다.
김검묘지에서 네모를 잡는겁니다 방해꾼 무더지를 조심 ㅂ



소스공개
=====================================================================

Dim 출현, 맞춤, 틀림, 점수

Private Sub 네모_Click()
맞춤 = 맞춤 + 1
점수 = 점수 + 맞춤
Label2.Caption = "맞춤:" + Str(맞춤)
Cls
Print Val(맞춤) + Val(점수)

                 If 점수 <= 1000 Then
                  Print "나이스 캣치!"
                  
                   ElseIf 점수 <= 3000 Then
                       Print "좋아 좋아!"
                      
                       ElseIf 점수 <= 5000 Then
                        Print "너무 잘하는거 아니야!"
                        
                         ElseIf 점수 <= 7000 Then
                          Print "당신은 이미 고수"

                                 ElseIf 점수 <= 10000 Then
                                 Print "게임을 끄셔도 좋습니다."
                                                 End If
End Sub

Private Sub 무더지_Click()
틀림 = 틀림 + 1
Label3.Caption = "틀림:" + Str(틀림)
Cls
Print Val(점수) - Val(출현)
End Sub

Private Sub Command1_Click()

End Sub

Private Sub Form_Click()
틀림 = 틀림 + 1
Label3.Caption = "틀림:" + Str(틀림)
Cls
Print Val(점수) - Val(출현)
End Sub



Private Sub Image1_Click()

End Sub

Private Sub Timer1_Timer()
네모.Left = Rnd * 3000
네모.Top = Rnd * 2500
출현 = 출현 + 1
Label1.Caption = "출현:" + Str(출현)
End Sub


Private Sub Timer2_Timer()
무더지.Left = Rnd * 3000
무더지.Top = Rnd * 2500
End Sub

=====================================================

* 흑곰님에 의해서 게시물 복사되었습니다 (2006-01-01 13:53)