Como reproduzir MIDI ficheiros API utilizando funções

Exemplo passo a passo

1. Inicie o Visual Basic ou, se já estiver a executar o Visual Basic, clique em novo projecto EXE padrão no menu Ficheiro (ALT, F, N). É criado o Form1 por predefinição.
2. Adicione um CommandButton (Command1) ao Form1.
3. Adicione o seguinte código ao evento Command1_Click do Form1:

         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. Adicione o seguinte código à secção General Declarations do Form1.

         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. No menu ' Executar ', clique em Iniciar (ALT, R S) ou prima a tecla F5 para executar o programa.

Voltar ao topo