수다닷컴

제기 두더지잡기 게임을만들어서 소스를 받은게있는데...이걸 정말 간다하게 설명좀해주시면안되나요...옆에 적혀있긴한데... 초보인 인제입장에선 정말 이해를못하겠습니다 예를들어 두더지가 올라와서 대기하는 프레임수..이게갑자기 다짜고짜 무슨말이죠 ㅠㅠㅠㅠㅠㅠㅠ 이해하기쉽게 해석좀해주세요 Private Const TIME_LIMIT As Long = 30 제한시간 30을주었다 이런식으로..제발부탁드립니다.#
`제한 시간 : 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

신청하기