MIDI çalma nasýl kullanarak API iþlevleri dosyalarý

Adým adým örnek

1. Visual Basic'ý baþlatýn veya Visual Basic zaten çalýþýyorsa, Standart EXE Project (ALT, F, N) Dosya menüsünden Yeni seçeneðini týklatýn. Varsayýlan olarak, Form1 oluþturulur.
2. Bir KomutDüðmesi (Command1) Form1'e ekleyin.
3. Form1 Command1_Click olayýna aþaðýdaki kodu ekleyin:

         Private Sub Command1_Click()
         Dim ret As Integer
   
            ' The following will open the sequencer with the CANYON.MID
            ' file. Canyon is the device_id.
   
            ret = mciSendString( _
              "open " & Song & " type sequencer alias canyon", _
              0&, 0, 0)
   
            ' The wait tells the MCI command to complete before returning
            ' control to the application.
   
            ret = mciSendString("play canyon wait", 0&, 0, 0)
   
            ' Close CANYON.MID file and sequencer device
   
            ret = mciSendString("close canyon", 0&, 0, 0)
   
         End Sub
   
   						

4. Aþaðýdaki kodu Form1 genel Tanýmlamalar bölümüne ekleyin.

         Private Declare Function mciSendString Lib "winmm.dll" Alias _
            "mciSendStringA" (ByVal lpstrCommand As String, ByVal  _
            lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
            hwndCallback As Long) As Long
   
         ' Modify the value of the constant "Song" with your path
               ' to "canyon.mid".
               Private Const Song As String = "C:\Windows\Media\Canyon.MID"
   
   						

5. Çalýþtýr) menüsünde, <a1>Baþlat</a1> (ALT, R, S)'ý týklatýn veya programý çalýþtýrmak için F5 tuþuna basýn.

Üste