메뉴 건너뛰기

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

글 수 15,185

캐치플라이 소스

허클베리핀
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
공지 (대피소) 혼돈과 어둠의 디스코드 노루발 107   2023-09-05 2023-09-05 16:05
공지 글 작성을 위해서는 회원 가입이 필요합니다. 노루발 4674   2016-02-22 2021-07-06 09:43
11445 ★───────글쓰기 운동───────★ DeltaSK 102   2005-08-22 2008-03-21 06:29
오늘 이시점부터 개소리든 도배든 다 허용합니다. 게시판에 글을 마음껏 남겨주시와요. 싸우면서 댓글도 늘려주셔도 좋습니다. 어쨋든 쓰세요. 흑곰님이 허락했으므로 글 지울일은 없을겁니다. 게시판이 너무 혼란스러워서 운영자님이 만족할 때 까지 글을 남...  
11444 asdas DeltaSK 82   2005-08-22 2008-03-21 06:29
asdasdsad 이글은 20점의 영양가가 있습니다.  
11443 ㅊ톺ㅊ토ㅓㅊㅌㅍ DeltaSK 212   2005-08-22 2008-03-21 06:29
ㄷㅁㄶㅍ츛ㅌ풏ㅌ퐃ㅌㅓㅗㅍㅍㅓㅌㅍ처ㅊㅌ퍼ㅜㅊㅌ 퍼ㅜㅌㅍㅊㅌㅊㅍㅊㅌ퓿ㅌ포  
11442 김밥 DeltaSK 95   2005-08-22 2008-03-21 06:29
김밥  
11441 ^^ DeltaSK 102   2005-08-22 2008-03-21 06:29
^^  
11440 이제부터 영양가 있는 글도 좀 올려야겠네요. DeltaSK 98   2005-08-22 2008-03-21 06:29
한글은 한국의 언어에요. 영양가 있죠?  
11439 RPG는 [1] DeltaSK 103   2005-08-22 2008-03-21 06:29
Role Playing의 약자입니다 영양각있져  
11438 검정고무신 [1] file 라컨 146   2005-08-22 2008-03-21 06:29
 
11437 도트를 찍어보았습니다. [3] file 검은미알 102   2005-08-22 2008-03-21 06:29
 
11436 송 [3] file 김Anthrax 100   2005-08-22 2008-03-21 06:29
 
11435 간지태진아 [2] file 김Anthrax 106   2005-08-22 2008-03-21 06:29
 
11434 대충 슥슥 [2] file 초싸릿골인 107   2005-08-22 2008-03-21 06:29
 
11433 백업맨이 돼야지 [1] 라컨 94   2005-08-22 2008-03-21 06:29
혼둠서버가 잠시 정지 됬는데 순간 긴장햇었습니다 만일에 사태에 대비해 백업을 자주 해놓겠습니다 (보드는 백업 못함)  
11432 백업운동합시다 아리포 138   2005-08-22 2008-03-21 06:29
운영진분들은 일주일에 한번씩 데이터베이스(DB)백업하시고 걍 회원들은 니네들 자료 관수 잘해라  
11431 ㅋㅋ완성했다 잡기게임 [2] 허클베리핀 115   2005-08-22 2008-03-21 06:29
라컨님은 다 완성하셧나..  
11430 게임 김검묘지에서 [잡기게임] file 라컨 106   2005-08-22 2008-03-21 06:29
 
11429 역전재판 [2] 슈퍼타이 95   2005-08-22 2008-03-21 06:29
재밋당.  
11428 룰루루를,.ㅁㅇㄴㄹ,ㅁㄹ [1] TR_1_PG 100   2005-08-22 2008-03-21 06:29
글쓰기 운도ㅇ  
11427 진짜완성 캐치플라이 file 허클베리핀 104   2005-08-22 2008-03-21 06:29
 
» 캐치플라이 소스 허클베리핀 101   2005-08-22 2008-03-21 06:29
Dim 출현, 잡은수, 놓친수 Private Sub 벌레_Click() 잡은수 = 잡은수 + 1 Label2.Caption = "잡은수:" + Str(잡은수) If 잡은수 >= 10 Then MsgBox ("축하합니다. 게임에서 승리하셧습니다.") 리게임 = InputBox("다시 하시겠습니까? 예/아니오") If 리게임 =...  
목록
쓰기