▶ 뭉충닷컴
 
mungchung.com login
Site Search
My Space
주절주절...
공부방
쥔장소개
Board
자유게시판
유용한 정보
자료실
Programming
강좌 & Articles
Spring 3.0
프로그래밍 Tip
   -ASP
   -PHP
   -JavaScript
   -HTML
   -Java/JSP
   -Database
   -Crystal Report
   -Visual Basic
   -이클립스
   -리눅스
   -기타
Windows API (VB)
Spread Sheet 7.0
컴퓨터활용 Tip
Other things
StarCraft 전략
StarCraft 문서
김용(金庸)
Son Q & Dieda

미디(MIDI) 파일, 웨이브(Wave) 파일 실행 시키기

조회 수 5191 추천 수 0 2005.05.24 20:52:48
뭉충닷컴 *.101.175.159
'-------------------------------------------------------------------------------------------------
// 웨이브 파일 실행
'-------------------------------------------------------------------------------------------------
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Form_Load()
    ' 맨뒤의 값을 0 으로 바꾸면 연주되는 동안 프로그램이 멈춰있는다.
    sndPlaySound "C:Program FilesWindows NTPinballSOUND1.WAV", 1
End Sub



'-------------------------------------------------------------------------------------------------
// 미디 파일 실행 - 멈추기 버튼
'-------------------------------------------------------------------------------------------------
Private 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
Const m_MIDI = "C:WINNTMediacanyon.mid"
Const m_MIDIAlias = "MyFile"

Private Sub Form_Load()
    mciSendString "OPEN " + m_MIDI + " TYPE SEQUENCER ALIAS " + m_MIDIAlias, 0&, 0, 0
    mciSendString "PLAY " + m_MIDI + " FROM 0", 0&, 0, 0
    mciSendString "CLOSE ANIMATION", 0&, 0, 0
End Sub

Private Sub Command1_Click()
    ' 멈추기
    mciSendString "OPEN " + m_MIDI + " TYPE SEQUENCER ALIAS " + m_MIDIAlias, 0&, 0, 0
    mciSendString "STOP " + m_MIDI, 0&, 0, 0
    mciSendString "CLOSE ANIMATION", 0&, 0, 0
End Sub



'-------------------------------------------------------------------------------------------------
// 미디 파일 실행 - 10초동안 연주하고 멈추기
    * 이 소스는 API-Guide 프로그램에서 가져옴
'-------------------------------------------------------------------------------------------------
Private 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
Const m_MIDI = "C:WINNTMediacanyon.mid"
Const m_MIDIAlias = "MyFile"
Const PlayTime = 10

Private Sub Form_Load()
    R% = mciSendString("OPEN " + m_MIDI + " TYPE SEQUENCER ALIAS " + m_MIDIAlias, 0&, 0, 0)
    R% = mciSendString("PLAY " + m_MIDIAlias + " FROM 0", 0&, 0, 0)
    R% = mciSendString("CLOSE ANIMATION", 0&, 0, 0)

    ' 10초 동안만 연주
    t = Timer
    Do: DoEvents: Loop Until Timer > t + PlayTime

    '미디 멈추기
    R% = mciSendString("OPEN " + m_MIDI + " TYPE SEQUENCER ALIAS " + m_MIDIAlias, 0&, 0, 0)
    R% = mciSendString&("STOP " + m_MIDIAlias, 0&, 0, 0)
    R% = mciSendString&("CLOSE ANIMATION", 0&, 0, 0)
End Sub





Source Page : http://www.mentalis.org/tips/tip003.shtml
문서 첨부 제한 : 0Byte/ 2.00MB
파일 크기 제한 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 본 게시물들은 AllAPI.net 에서 퍼온것을 수정한겁니다. 뭉충닷컴 2005-05-24 7579
44 스크롤바(ScrollBar) 구현하기 뭉충닷컴 2005-05-25 6231
43 모니터 스크린(Screen) 해상도 구하기 뭉충닷컴 2005-05-25 6615
42 전체화면, 현재 폼, 다른 활성화된 창 캡쳐(Capture)하기 and 프린트(Print) 하기 file 뭉충닷컴 2005-05-25 4933
41 이미지의 투명도(transparent) 설정 뭉충닷컴 2005-05-25 5955
40 이미지크기 늘리기 (이미지 크기 변환) 뭉충닷컴 2005-05-25 6093
39 마우스(Mouse)의 X축 Y축 좌표값 구하기 뭉충닷컴 2005-05-24 6957
38 마우스(Mouse)의 오른쪽/ 왼쪽 버튼 바꾸기 뭉충닷컴 2005-05-24 4267
37 마우스(Mouse)의 커서(Cursor) 숨기기/보이기 뭉충닷컴 2005-05-24 6163
36 리스트박스(ListBox) 위에 마우스 올려졌을때 항목 보여주기 뭉충닷컴 2005-05-24 5635
35 마우스(Mouse) 포인터를 컨트롤로 이동 시키기 뭉충닷컴 2005-05-24 5105
34 제목바(Title Bar) 없이 마우스로 폼 드래그해서 폼 이동시키기 뭉충닷컴 2005-05-24 4695
33 마우스(Mouse) 이동 뭉충닷컴 2005-05-24 4551
32 마우스(Mouse)의 버튼수 구하기 - 그 외 기타 시스템 정보 구하는 법 뭉충닷컴 2005-05-24 4511
31 마우스(Mouse)의 더클클릭(Double-Click) 시간 얻어오기 뭉충닷컴 2005-05-24 4243
30 마우스(Mouse)의 더블클릭(Double-Click) 시간 변경 뭉충닷컴 2005-05-24 4985
29 마우스 움직임을 폼안에서만 가능하도록 제한하기 뭉충닷컴 2005-05-24 4617
28 동영상(avi) 파일 재생하기 뭉충닷컴 2005-05-24 6504
27 자신의 PC에 사운드 카드가 설치되어있는지 여부 검사 뭉충닷컴 2005-05-24 4012
» 미디(MIDI) 파일, 웨이브(Wave) 파일 실행 시키기 뭉충닷컴 2005-05-24 5191