[Aporte] Cambiar los MIDI por MP3

Standelf · 17-nov-2008, 18:34

Bueno, el titulo lo dice todo, el codigo es para cambiar los midi por mp3, usando los sonidos de los mapas normales

El codigo lo hice a base del posteado por risse, lo posteo para los que no saben como usarlo bien, o quiren cambiar todo el sistema de midis, y no saben como.

1 - Creamos un nuevo Modulo de clase con el nombre:

Cita:

clsMP3Player

2 - Adentro le ponemos:

Código:

Option Explicit
 
Private mvarmp3file As String
 
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
 
Private Declare Function GetShortPathName Lib "Kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long
 
Dim mVolume As Integer
 
Public Sub pauseMP3()
mciSendString "pause audio1", 0, 0, 0
End Sub
 
Public Sub playMP3()
Dim rtn As Long
Dim filename As String
Dim lngRes As Long, strPath As String
 
strPath = String$(165, 0)  'Create a buffer
lngRes = GetShortPathName(mvarmp3file, strPath, 164)
filename = Trim(Left$(strPath, lngRes))
 
rtn = mciSendString("Open " & filename & " Alias audio1", 0&, 0, 0)
rtn = mciSendString("play audio1", 0&, 0, 0)
 
End Sub
 
Public Sub stopMP3()
Dim rtn As Long
 
rtn = mciSendString("stop audio1", 0&, 0, 0)
rtn = mciSendString("close audio1", 0&, 0, 0)
 
End Sub
 
Public Property Let mp3file(ByVal vData As String)
    mvarmp3file = vData
End Property
 
Public Property Get mp3file() As String
    mp3file = mvarmp3file
End Property
 
Public Property Let Volume(ByVal nVolume As Integer)
    mciSendString "setaudio audio1 volume to " & nVolume, "", 0, 0
    mVolume = nVolume
End Property
 
Public Property Get Volume() As Integer
    Volume = mVolume
End Property
 
'setaudio MP3 volume to " + NewVolume
Public Function Position(secs As Boolean) As String
'Returns the track's current position as "mm:ss".
'Returns tracks's current position in seconds if secs = True
 
Static P As String * 30
Dim sec As Integer
Dim mins As Integer
 
mciSendString "set audio1 Time Format milliseconds", "", 0, 0
mciSendString "status audio1 position", P, Len(P), 0
sec = Round(Val(mid$(P, 1, Len(P))) / 1000)
 
If secs Then
    Position = sec
Else
    If sec < 60 Then Position = "0:" & Format(sec, "00")
    If sec > 59 Then
        mins = Int(sec / 60)
        sec = sec - (mins * 60)
        Position = Format(mins, "00") & ":" & Format(sec, "00")
    End If
End If
 
End Function
 
Public Function TrackLength(secs As Boolean) As String
'Returns the track's length as "mm:ss".
'Returns tracks's length in seconds if secs = True
 
Static L As String * 30
Dim sec As Integer
Dim mins As Integer
 Dim TrackLenghth As String
mciSendString "set audio1 Time Format milliseconds", "", 0, 0
mciSendString "status audio1 length", L, Len(L), 0
 
sec = Round(Val(mid$(L, 1, Len(L))) / 1000)
 
If secs Then
    TrackLength = sec
Else
    If sec < 60 Then
        TrackLenghth = "0:" & Format(sec, "00")
    Else
        mins = Int(sec / 60)
        sec = sec - (mins * 60)
        TrackLength = Format(mins, "00") & ":" & Format(sec, "00")
    End If
End If
 
End Function
 
Public Function IsItPlaying() As Boolean
'Returns true if the file is playing. False otherwise.
 
Static yn As String * 30
 
mciSendString "status audio1 mode", yn, Len(yn), 0
IsItPlaying = (mid$(yn, 1, 7) = "playing")
 
End Function

3 - Buscamos:

Código:

Public currentMidi As Long

y lo reemplazamos por:

Código:

Public CurrentMP3 As Long

4 - buscamos:

Código:

                    If Not Audio.PlayingMusic Then
                        Musica = True
                        Audio.PlayMIDI CStr(currentMidi) & ".mid"
                    Else
                        Musica = False
                        Audio.StopMidi
                    End If

y lo reemplazamos por:

Código:

                    If Not Audio.PlayingMusic Then
                        Musica = True
                        MP3P.mp3file = App.Path + "MP3" & CurrentMP3 & ".mp3"
                        MP3P.playMP3
                    Else
                        Musica = False
                        MP3P.stopMP3
                    End If

5 - Buscamos:

Código:

Case "TM"           ' >>>>> Play un MIDI :: TM

reemplazamos todo ese case por este:

Código:

        Case "TM"           ' >>>>> Play un MIDI :: TM
            Rdata = Right$(Rdata, Len(Rdata) - 2)
            CurrentMP3 = Rdata
                        
                If Musica Then
                    MP3P.stopMP3
                        MP3P.mp3file = App.Path + "MP3" & Rdata & ".mp3"
                    MP3P.playMP3
                End If
            Exit Sub

6 - Buscamos:

Código:

        If Musica Then
            Musica = False
            Command1(0).Caption = "Musica Desactivada"
            Audio.StopMidi
        Else
            Musica = True
            Command1(0).Caption = "Musica Activada"
            Call Audio.PlayMIDI(CStr(currentMidi) & ".mid")
        End If

y lo reemplazamos por:

Código:

        If Musica Then
            Musica = False
            Command1(0).Caption = "Musica Desactivada"
            MP3P.stopMP3
        Else
            Musica = True
            Command1(0).Caption = "Musica Activada"
            MP3P.mp3file = App.Path + "MP3" & MP3Now & ".mp3"
            MP3P.playMP3
        End If

7 - Buscan:

Código:

    If Musica Then
        Call Audio.PlayMIDI(MIdi_Inicio & ".mid")
    End If

y lo reemplazan por:

Código:

    If Musica Then
        MP3P.mp3file = App.Path + "MP3" & MIdi_Inicio & ".mp3"
    End If

8 - buscan:

Código:

        If Musica Then
            Call Audio.PlayMIDI("2.mid")
        End If

y lo reemplazan por:

Código:

    If Musica Then
        MP3P.mp3file = App.Path + "MP32.mp3"
    End If

9 - Buscan:

Código:

        If Musica Then
            Call Audio.PlayMIDI("7.mid")
        End If

y lo reemplazan por:

Código:

    If Musica Then
        MP3P.mp3file = App.Path + "MP37.mp3"
    End If

10 - En el Sub main agregan:

Código:

Set MP3P = New clsMP3Player

11 - Declaran:

Código:

Public MP3P As clsMP3Player

Listo ^^
En la carpeta del cliente, debe ir una carpeta llamada MP·, aentro los archivos deben llamarse por numero, como los midis

Suerte

Echo por mi

a base del codigo de risse ^^

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado

Secciones de Interés