▶ 뭉충닷컴
 
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) 파일 실행 시키기

조회 수 5205 추천 수 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 7603