메뉴 건너뛰기

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

Dim 출현, 잡은수, 놓친수


Private Sub 벌레_Click()
잡은수 = 잡은수 + 1
Label2.Caption = "잡은수:" + Str(잡은수)
If 잡은수 >= 10 Then
MsgBox ("축하합니다. 게임에서 승리하셧습니다.")
리게임 = InputBox("다시 하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
Else
MsgBox ("-the end-")
End If
End If

End Sub



Private Sub 잡지마1_Click()
놓친수 = 놓친수 + 1
Label3.Caption = "놓친수:" + Str(놓친수)
If 잡은수 >= 10 Then
MsgBox ("축하합니다. 게임에서 승리하셧습니다.")
리게임 = InputBox("다시 하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
Else
MsgBox ("-the end-")
End If
End If
End Sub



Private Sub 잡지마2_Click()
놓친수 = 놓친수 + 1
Label3.Caption = "놓친수:" + Str(놓친수)
If 놓친수 >= 20 Then
MsgBox ("좀더 분발하시길!!")
리게임 = InputBox("다시 도전하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
End If

ElseIf 잡은수 >= 10 Then
MsgBox ("축하합니다. 게임에서 승리하셧습니다.")
리게임 = InputBox("다시 하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
Else
MsgBox ("-the end-")


End If
End If
End Sub



Private Sub 잡지마3_Click()
놓친수 = 놓친수 + 1
Label3.Caption = "놓친수:" + Str(놓친수)
If 놓친수 >= 20 Then
MsgBox ("좀더 분발하시길!!")
리게임 = InputBox("다시 도전하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
End If

ElseIf 잡은수 >= 10 Then
MsgBox ("축하합니다. 게임에서 승리하셧습니다.")
리게임 = InputBox("다시 하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
Else
MsgBox ("-the end-")


End If
End If
End Sub

Private Sub Form_Click()
놓친수 = 놓친수 + 1
Label3.Caption = "놓친수:" + Str(놓친수)
If 놓친수 >= 20 Then
MsgBox ("좀더 분발하시길!!")
리게임 = InputBox("다시 도전하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
End If

ElseIf 잡은수 >= 10 Then
MsgBox ("축하합니다. 게임에서 승리하셧습니다.")
리게임 = InputBox("다시 하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
Else
MsgBox ("-the end-")


End If
End If
End Sub




Private Sub Image1_Click()
게임스타트 = InputBox("게임을 시작하시겠습니까? 예/아니오")
If 게임스타트 = "예" Then
Image1.Left = 10000
Image1.Top = 10000
End If
End Sub

Private Sub Timer1_Timer()
벌레.Left = Rnd * 5700
벌레.Top = Rnd * 2200
출현 = 출현 + 1
Label1.Caption = "출현:" + Str(출현)
잡지마3.Left = Rnd * 5700
잡지마3.Top = Rnd * 2200
잡지마1.Left = Rnd * 5700
잡지마1.Top = Rnd * 2200
잡지마2.Left = Rnd * 5700
잡지마2.Top = Rnd * 2200
End Sub


조회 수 :
101
등록일 :
2005.08.22
21:18:34 (*.147.)
엮인글 :
게시글 주소 :
https://hondoom.com/zbxe/index.php?mid=free&document_srl=108530
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
» 캐치플라이 소스 허클베리핀 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
3756 게임 김검묘지에서 [잡기게임] 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