비쥬얼베이직을 이용해서 신 야구게임 만들어서 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

키워드

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