비쥬얼베이직을 이용해서 신 야구게임 만들어서 A+ 받았습니다.

소개글

비쥬얼베이직을 이용해서 신 야구게임 만들어서 A+ 받았습니다.에 대한 보고서 자료입니다.

본문내용

음악듣기 프로그램 실행 폼
Private Sub mnu_music_Click()
Form2.Show
End Sub
Private Sub mnu_new_Click()
Call clear_button
Text2.Text = \"\"
End Sub
Private Sub mnu_win_Click()
Dim rev
\'윈도우즈 자체의 계산기를 호출함
rev = Shell(\"c:\\windows\\calc.exe\", 1)
End Sub
\'툴바를 이용한 셀렉트 케이스문으로 각 해당 버튼에 연결되는 프로그램 수행위함
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case \"새 게 임\"
mnu_new_Click
Case \"끝 내 기\"
mnu_end_click
Case \"계 산 기\"
mnu_win_Click
Case \"음악듣기\"
mnu_music_Click
End Select
End Sub
< FORM 2 >
Private Sub Form_Unload(Cancel As Integer)
\' 프로그램 종료시 기존에 등록된 파일을 제거 함
MP3Close (songfile)
End Sub
Private Sub mnu_e_click_click()
\' 음악 재생
\' ------------------------------------
\' 재생 모듈 실행
MP3Play (songfile)
End Sub
Private Sub mnu_end_click_click()
Unload Me
End Sub
Private Sub mnu_j_click_click()
\' 음악 정지
\' ------------------------------------
\' 재생 정지 명령 모듈 실행
MP3Pause (songfile)
End Sub
Private Sub mnu_s_click_click()
\' 음악 선택
\' ------------------------------------
\' 에러 발생시 다음 라인을 연속해서 실행
On Error Resume Next
\' 기존에 열려 있는 음악 파일이 있을 것을 대비해서 음악 파일 닫을 것을 명령
MP3Close (songfile)
\' 기본 윈도우 다이얼로그중에서 파일 선택 창 오픈
CommonDialog1.ShowOpen
\' 취소시 에러 반환
CommonDialog1.CancelError = True
\' 선택된 파일 명을 반환 받아서 songfile에 저장
songfile = CommonDialog1.FileName
\' 선택한 파일을 mci system에 등록 모듈 실행
MP3Open (songfile)
\' 파일명을 Label1에 출력
Label1.Caption = songfile
End Sub
Private Sub mnu_stop_click_click()
\' 파일 닫기
\' ------------------------------------
\' 파일 닫기 모듈 실행
MP3Close (songfile)
Label1.Caption = \"\"
End Sub
Private Sub mnu_end2_click_click()
Unload Me
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case \"노래찾기\"
mnu_s_click_click
Case \"노래듣기\"
mnu_e_click_click
Case \"일시정지\"
mnu_j_click_click
Case \"멈 추 기\"
mnu_stop_click_click
Case \"종 료\"
mnu_end2_click_click
End Select
End Sub
< FORM 3 >
Private Sub Command1_Click()
Unload Me
Form1!Text1.SetFocus
End Sub
< FORM 4 >
Private Sub Command1_Click()
Unload Me
Form1!Text1.SetFocus
End Sub
< 모 듈1 >
\' Win32API의 MCI 함수 선언
Public Declare Function mciSendString Lib \"winmm.dll\" Alias \"mciSendStringA\" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
\' 플레이할 음악 파일의 파일명 변수 선언
Public songfile As String
\' 결과값 반환 변수 선언
Public strret As String * 128
Public Function MP3Play(songfile)
\' 함수 실행 반환 값 임시 저장 변수
Dim ret As Long
\' MCI system에 음악 파일 재생(Play)을 명령
ret = mciSendString(\"play mp3\", strret, 128, 0)
End Function
Public Function MP3Pause(songfile)
Dim ret As Long
\' MCI System에 음악 파일 정지(Pause)를 명령
ret = mciSendString(\"pause mp3\", strret, 128, 0)
End Function
Public Function MP3Open(songfile)
Dim ret As Long
\' MCI System에 음악 파일을 등록
\' MCI System이 음악 파일을 자동으로 읽어서 플레이 준비 함.
ret = mciSendString(\"open \" & Chr(34) & songfile & Chr(34) & \" alias mp3 wait\", strret, 128, 0)
End Function
Public Function MP3Close(songfile)
Dim ret As Long
\' MCI System에게 등록한 음악 파일을 닫을 것을 명령
ret = mciSendString(\"close mp3\", vbNullString, 0, 0)
End Function

키워드

비쥬얼베이직,   소스,   야구게임,   비제 소스,   비베자료,   비베소스