메뉴 건너뛰기

자유롭게 이야기를 적는 공간

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



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

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

=====================================================
조회 수 :
106
등록일 :
2005.08.22
18:06:44 (*.55.4)
엮인글 :
게시글 주소 :
https://hondoom.com/zbxe/index.php?mid=free&document_srl=108512
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 (대피소) 혼돈과 어둠의 디스코드 노루발 2023-09-05 104
공지 글 작성을 위해서는 회원 가입이 필요합니다. 노루발 2016-02-22 4667
3763 잠시 서버 점검이 있었대유. [4] 혼돈 2005-08-23 142
3762 퀴즈물 미스테리 학원 [1] file 라컨 2005-08-22 113
3761 노래 [1] 부르청객 2005-08-22 119
3760 캐치플라이 소스 허클베리핀 2005-08-22 101
3759 진짜완성 캐치플라이 file 허클베리핀 2005-08-22 104
3758 룰루루를,.ㅁㅇㄴㄹ,ㅁㄹ [1] TR_1_PG 2005-08-22 100
3757 역전재판 [2] 슈퍼타이 2005-08-22 95
» 게임 김검묘지에서 [잡기게임] file 라컨 2005-08-22 106
3755 ㅋㅋ완성했다 잡기게임 [2] 허클베리핀 2005-08-22 115
3754 백업운동합시다 아리포 2005-08-22 138
3753 백업맨이 돼야지 [1] 라컨 2005-08-22 94
3752 대충 슥슥 [2] file 초싸릿골인 2005-08-22 107
3751 간지태진아 [2] file 김Anthrax 2005-08-22 106
3750 [3] file 김Anthrax 2005-08-22 100
3749 도트를 찍어보았습니다. [3] file 검은미알 2005-08-22 102
3748 검정고무신 [1] file 라컨 2005-08-22 146
3747 RPG는 [1] DeltaSK 2005-08-22 103
3746 이제부터 영양가 있는 글도 좀 올려야겠네요. DeltaSK 2005-08-22 98
3745 ^^ DeltaSK 2005-08-22 102
3744 김밥 DeltaSK 2005-08-22 95