메뉴 건너뛰기

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

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
번호 제목 글쓴이 조회 수 추천 수 날짜 최근 수정일sort
공지 (대피소) 혼돈과 어둠의 디스코드 노루발 104   2023-09-05 2023-09-05 16:05
공지 글 작성을 위해서는 회원 가입이 필요합니다. 노루발 4667   2016-02-22 2021-07-06 09:43
3763 잠시 서버 점검이 있었대유. [4] 혼돈 142   2005-08-23 2008-03-21 06:29
자세한 것은 ilen.net으로 가보면 됨. 뭔가 문제 생기면 일단 아이렌  
3762 퀴즈물 미스테리 학원 [1] file 라컨 113   2005-08-22 2008-03-21 06:29
 
3761 노래 [1] 부르청객 119   2005-08-22 2008-03-21 06:29
내컴퓨터 누가 해킹했어 로그인도 안되지롱 프로그램들이 모두 언인스톨 됐어 젠장 누구냐고 #1 나의 소중한 자료들이 왜 어째서 모조리 날라갔냐고 대체 목적이 무어냐 얼굴좀보자 자 말해봐라 시간은 삼초주마 아이피 어떻게 알아냈지 공유기 사용중일텐데 ...  
» 캐치플라이 소스 허클베리핀 101   2005-08-22 2008-03-21 06:29
Dim 출현, 잡은수, 놓친수 Private Sub 벌레_Click() 잡은수 = 잡은수 + 1 Label2.Caption = "잡은수:" + Str(잡은수) If 잡은수 >= 10 Then MsgBox ("축하합니다. 게임에서 승리하셧습니다.") 리게임 = InputBox("다시 하시겠습니까? 예/아니오") If 리게임 =...  
3759 진짜완성 캐치플라이 file 허클베리핀 104   2005-08-22 2008-03-21 06:29
 
3758 룰루루를,.ㅁㅇㄴㄹ,ㅁㄹ [1] TR_1_PG 100   2005-08-22 2008-03-21 06:29
글쓰기 운도ㅇ  
3757 역전재판 [2] 슈퍼타이 95   2005-08-22 2008-03-21 06:29
재밋당.  
3756 게임 김검묘지에서 [잡기게임] file 라컨 106   2005-08-22 2008-03-21 06:29
 
3755 ㅋㅋ완성했다 잡기게임 [2] 허클베리핀 115   2005-08-22 2008-03-21 06:29
라컨님은 다 완성하셧나..  
3754 백업운동합시다 아리포 138   2005-08-22 2008-03-21 06:29
운영진분들은 일주일에 한번씩 데이터베이스(DB)백업하시고 걍 회원들은 니네들 자료 관수 잘해라  
3753 백업맨이 돼야지 [1] 라컨 94   2005-08-22 2008-03-21 06:29
혼둠서버가 잠시 정지 됬는데 순간 긴장햇었습니다 만일에 사태에 대비해 백업을 자주 해놓겠습니다 (보드는 백업 못함)  
3752 대충 슥슥 [2] file 초싸릿골인 107   2005-08-22 2008-03-21 06:29
 
3751 간지태진아 [2] file 김Anthrax 106   2005-08-22 2008-03-21 06:29
 
3750 [3] file 김Anthrax 100   2005-08-22 2008-03-21 06:29
 
3749 도트를 찍어보았습니다. [3] file 검은미알 102   2005-08-22 2008-03-21 06:29
 
3748 검정고무신 [1] file 라컨 146   2005-08-22 2008-03-21 06:29
 
3747 RPG는 [1] DeltaSK 103   2005-08-22 2008-03-21 06:29
Role Playing의 약자입니다 영양각있져  
3746 이제부터 영양가 있는 글도 좀 올려야겠네요. DeltaSK 98   2005-08-22 2008-03-21 06:29
한글은 한국의 언어에요. 영양가 있죠?  
3745 ^^ DeltaSK 102   2005-08-22 2008-03-21 06:29
^^  
3744 김밥 DeltaSK 95   2005-08-22 2008-03-21 06:29
김밥