[엑셀마리오게임] 마리오 이동 명령문

'// 변경된 음악출력/중단 함수 전문
 
Public Sub PlaySound(FileName As String)
 
FileName = GetShortPath(FileName)
 
Play = mciSendString("play " & FileName, 0&, 0, 0)
If Play <> 0 Then
   MsgBox "오디오파일을 확인할 수 없습니다. 다시 확인해주세요"
End If
 
End Sub
 
Public Sub StopSound(FileName As String)
 
FileName = GetShortPath(FileName)
 
Play = mciSendString("close " & FileName, 0&, 0, 0)
 
End Sub

'// Select Case문 사용예제
 
Select Case Range("A1").Value  '// = 등심
 
    case "사과", "오렌지", "귤"
        msgbox "과일입니다."
    case "오이", "배추", "상추"
        msgbox "야채입니다."
    case "등심", "안심", "삼겹살"
        msgbox "고기류입니다."
    case else
        msgbox "기타 재료입니다.“
 
end select

'########################################################################################################################
'# 해당 명령문에 대한 저작권은 오빠두엑셀(https://www.oppadu.com)에 있습니다.
'# 모든 정보는 Cretive Commns License에 의해 저작권을 보호받습니다.
'# 영리를 목적으로 하지 않는 사용 및 공유는 허용됩니다. 반드시 저작자, 오빠두엑셀(https://www.oppadu.com)을 명시해야합니다.
'# This VBA Code is protected by Creative Commons License.
'# All information can be posted, uploaded, shared at online for NON-commercial use only.
'# The Author, '오빠두엑셀(https://www.oppadu.com)' have to be mentioned when you post this code.
'########################################################################################################################
 
Dim WithEvents KeyPressWatcher As KeyPressAPI
 
Sub Start_KeyPress()
 
If KeyPressWatcher Is Nothing Then
    Set KeyPressWatcher = New KeyPressAPI
End If
 
KeyPressWatcher.StartKeyPress
 
End Sub
 
Sub End_KeyPress()
 
If KeyPressWatcher Is Nothing Then Exit Sub
KeyPressWatcher.StopKeyPress
 
End Sub
 
Private Sub KeyPressWatcher_KeyPressed(ByVal KeyAscii As LongPtr, ByVal KeyCode As LongPtr, ByVal Target As Range, Cancel As Boolean)
 
'(msgMessage.wParam, iKeyCode, Selection, blnCancel)
 
'// 여기에 키입력시 동작할 명령문을 작성하세요.
 
End Sub

'// ###############################################
'// KeyPressWatcher_KeyPressed 명령문 안에 넣어주세요
'// ###############################################
 
Select Case CLng(KeyAscii)
 
'// 만약 입력된키가
'// 1. 오른쪽 방향키
    Case 39   '/39 = 오른쪽 방향키
        If pointRng.Column >= 76 Then Exit Sub
    '// Facing = True
        Facing = True
    '// 현재 있는 셀을 기준으로 마리오 그림을 초기화 (마리오 그림 삭제)
        init pointRng
    '// 활성화된 셀을 오른쪽으로 한칸 이동
        Set pointRng = pointRng.Offset(0, 1)
    '// 활성화된 셀을 기준으로 오른쪽을 바라보고 있는 마리오 그림을 출력
        Mario_RW pointRng
 
'// 2. 왼쪽방향키
    Case 37  '/37 = 왼쪽 방향키
        If pointRng.Column = 1 Then Exit Sub
    '// Facing = false
        Facing = False
    '// 현재 있는 셀을 기준으로 마리오 그림을 초기화 (마리오 그림 삭제)
        init pointRng
    '// 활성화된 셀을 왼쪽으로 한칸 이동
        Set pointRng = pointRng.Offset(0, -1)
    '// 활성화된 셀을 기준으로 왼쪽을 바라보고 있는 마리오 그림을 출력
        Mario_LW pointRng
 
End Select

Sub Game_Start()
 
'// 혹시모를 상황에 대비하여 게임을 실행하는 범위 외의 셀을 초기화
    GameSheet.Range("CN:XFD").Delete
    GameSheet.Range("47:1048576").Delete
 
'// BGM 출력
    StopSound ActiveWorkbook.Path & "\MarioBGM.mp3"
    PlaySound ActiveWorkbook.Path & "\MarioBGM.mp3"
 
'// 이전에 만들었던 함수 사용 -> 시트 초기화
    Sheet_init
 
'// 마리오게임을 시작하기 위한 시작셀을 지정 (PointRng)
    Set pointRng = GameSheet.Range("F21")
 
'// Facing = True
    Facing = True
 
'// 키입력받기 이벤트를 활성화
    Start_KeyPress
 
End Sub
 
Sub Game_End()
 
'// 키입력 받기를 종료
    End_KeyPress
 
'// 실행중인 마리오 게임 음악 종료
    StopSound ActiveWorkbook.Path & "\MarioBGM.mp3"
 
'// 마리오 게임 종료 음악 출력
    PlaySound ActiveWorkbook.Path & "\PlayerDown.mp3"
 
'// 메세지 박스 출력
    MsgBox "게임이 종료되었습니다."
 
End Sub