자유롭게 이야기를 적는 공간
글 수 15,194
흑곰 님이 강의 해주신 소스를 개조해봤습니다.
김검묘지에서 네모를 잡는겁니다 방해꾼 무더지를 조심 ㅂ
소스공개
=====================================================================
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
=====================================================
김검묘지에서 네모를 잡는겁니다 방해꾼 무더지를 조심 ㅂ
소스공개
=====================================================================
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
=====================================================