검색어 입력폼

[비주얼베이직6]두더지 잡기 게임 소스 + 주석포함

저작시기 2007.01 |등록일 2007.04.17 | 최종수정일 2014.09.27 파일확장자압축파일 (zip) | 가격 500원

소개글

비주얼베이직으로 제작한 두더지잡기 게임소스(주석포함)입니다.

방식은 게임시작 후 30초간 두더지들이 튀어나오는데 마우스로 클릭하여 이 튀어나온 두더지들을 잡으면 점수가 올라가는 방식입니다. 튀어나오지 않은 두더지를 잡으려 했거나, 이미 구멍으로 들어가버린 두더지를 잡으려 했을 경우에는 해당 칸이 빨갛게 되면서 감점이 됩니다.

구성은 메뉴, 9개의 픽쳐박스, 타이머와 이미지 컨트롤 등이며 폼 frmMain에서 게임이 실행되고 폼 frmResource에는 게임에 사용되는 그림이 저장되어 있습니다.

소스 분량은 주석 포함하여 170라인 가량 됩니다.

컴파일 실행환경

Microsoft Visual Basic 6
Windows XP

본문내용

# 소스목록
frmMain.frm
frmResource.frm
frmResource.frx
prjDooDuG.vbp

# 소스일부
`제한 시간 : 30초
Private Const TIME_LIMIT As Long = 30

`두더지가 올라와서 대기하는 프레임 수
`두더지를 잡은 후 원상태로 돌아갈때까지의 프레임 수
`두더지를 잡는데 실패한 후 원상태로 돌아갈때까지의 프레임 수
Private Const DEFAULT_DELAY As Long = 10

`두더지 정보가 담긴 구조체
Private Type DooDuG
ActionFlag As Integer `두더지의 활동상태 ( 1: 나오는 중, -1: 들어가는 중, 0: 잡을 수 없는 상태)
Frame As Integer `두더지가 얼굴을 내민 정도 ( 0~4까지로 각각의 그림이 있다. 특별케이스로 5:잡힌 후, 6:잘못 때린 후 )
Delay As Integer `두더지가 대기중인 경우 남은 프레임 수
End Type

`DooDuG형식의 구조체변수 선언
Private DooDuGs(0 To 8) As DooDuG

Private Sub Form_Load()
`폼이 로드되면

`일단 일시정지 메뉴를 비활성화하고
mnuPause.Enabled = False
`그림자료가 있는 frmResource도 로드
Load frmResource
`랜덤시드 초기화
Randomize Timer

`두더지 그림 초기화
Dim i As Integer
For i = 0 To 8
Set picDooDuG(i).Picture = frmResource.ImgDoo(0)
Next
End Sub

압축파일 내 파일목록

frmResource.frm
frmResource.frx
prjDooDuG.vbp
frmMain.frm
다운로드 맨위로