Música(Dx8)

    Comparte
    avatar
    SuaveChiTow.-

    TEMPLARIO ESTRELLA


    TEMPLARIO ESTRELLA

    PJ :
    Nombre : SuaveChitOw.-
    Monedas de Oro-2261
    Mana :
    900 / 900900 / 900

    Vida :
    100 / 100100 / 100

    Premios :
    Mensajes : 132
    Edad : 27
    Llegada : 25/11/2008
    Masculino

    Música(Dx8)

    Mensaje por SuaveChiTow.- el Lun Ago 23, 2010 6:07 pm

    Todo en el Cliente


    Primero que nada, hay a usar el componente: Windows Media Player.
    Lo que primero que hay que hacer es:

    Ir a: Proyecto > Componentes (o simplemente teclear: Control + T)
    Ahora, de la lista que aparece, tildar el componente: Windows Media Player, que es uno de los últimos.
    Ahora apretar en aceptar.

    Como notarán, en el cuadro de herramientas, aparecio un nuevo componente.

    Ahora, hacer un nuevo formulario con el Nombre: frmMusica (sin acento en la U)
    En la propiedad BorderStyle del nuevo formulario, poner: 0 - None

    Agregar en ese formulario, el componente: Windows Media Player, y cambiar su nombre por: Musica (sin acento en la U)
    Ahora, en las propiedades del formulario, poner: Height: 0, y Width: 0

    Con ese formulario abierto, (no se va a ver, devido a su Height: 0, y Width: 0) se va a reproducir la música.

    Ahora, en el modulo General, abajo de todo, agregar esta funcion:

    Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

    1. Public Function ReproducirMusica(NumMusica As Integer)
    2. 'Reproducir Musica
    3. '************************************
    4. '/////By Thusing/////
    5. '************************************
    6.
    7. If RepMusica = 0 Then Exit Function
    8. If NumReproduciendo = NumMusica Then Exit Function
    9.
    10. frmMusica.Musica.URL = App.Path & "/Midi/" & NumMusica & ".mid"
    11.
    12. NumReproduciendo = NumMusica
    13. End Function


    Con esta funcion se reproduce la música.

    Reemplazar el Case "TM" por este:
    Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

    1. Case "TM"
    2. Rdata = Right$(Rdata, Len(Rdata) - 2)
    3. If Val(ReadField(1, Rdata, 45)) <> 0 Then
    4. CurMidi = Val(ReadField(1, Rdata, 45)) & ".mid"
    5. Call ReproducirMusica(Val(ReadField(1, Rdata, 45)))
    6. 'LoopMidi = Val(ReadField(2, Rdata, 45))
    7. Call Audio.PlayMIDI(App.Path & "\Midi" & CurMidi)
    8. End If
    9. Exit Sub


    Con esto, se reproduce la musica del juego, al cambiar de mapa.

    En la parte del código del frmPres, al final de todo, poner:
    Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

    1. Private Sub Form_Load()
    2. Call ReproducirMusica(25)
    3. End Sub


    Con esto, la musica del frmPres

    En el frmConnect buscar:
    Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

    1. Private Sub Form_Load()



    Y antes del End Sub poner:
    Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

    1. Call ReproducirMusica(6)


    Con esto, la musica del frmConnect

    En el frmCrearPersonaje, buscar:
    Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

    1. Private Sub boton_Click(Index As Integer)



    Y antes del End Select poner:
    Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

    1. Call ReproducirMusica(6)


    (Con esto, al presionar volver, vuelve con la musica del frmConnect, ya que este no se cierra)

    En el mismo formulario (frmCrearPersonaje), buscar:
    Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

    1. Private Sub Form_Load()



    Y abajo poner:
    Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

    1. Call ReproducirMusica(7)


    (Aqui, se pone la música al crear el personaje)

    Ahora, declarar la variable que contiene el numero de midi que se está reproduciendo, y si hay que reproducir o no

    En el modulo Declaraciones, abajo del Option Explicit, poner:
    Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

    1. Public NumReproduciendo As Integer
    2. Public RepMusica as Byte



    Ahora buscar:
    Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

    1. NoRes = Val(GetVar(App.Path & "/Init/Opciones.opc", "CONFIG", "ModoVentana"))



    Abajo poner:
    Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

    1. RepMusica = Val(GetVar(App.Path & "/Init/Opciones.opc", "CONFIG", "Musica"))



    Ahora, ir a la Carpeta Init, y abrir el archivo: Opciones.opc, con el Block de Notas.

    Buscar:

    ModoVentana=0



    Y abajo poner:

    Musica=1



    Ahora, volviendo al codigo del cliente, en el FrmIntro, buscar:
    Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

    1. Private Sub Form_Load()



    Y abajo poner:
    Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

    1. frmMusica.Show



    Ahora, en el mismo formulario (FrmIntro), buscar:
    Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

    1. Private Sub Image6_Click()



    Y cambiar el:
    Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

    1. Unload Me



    Por:

    1. End



    Listo, eso es todo.

    Se agrego una opcion para elegir entre Desactivar / Activar la música, desde el Opciones.opc, de la carpeta Init, cambiando el valor de: Musica=, por 1 (activada), o 0 (desactivada)

    Agregado tambien para que si se está escuchando una musica, y cambias de mapa con la misma, no se repita. Ejemplo: De Ullathorpe Este a Ullathorpe Oeste sigue la misma musica, no empiesa nuevamente.


    Fuente:Gs-Zone
    Creditos:Thusing
    avatar
    Elaine

    TEMPLARIO


    TEMPLARIO

    PJ :
    Nombre : Elaine
    Monedas de Oro172
    Mana :
    0 / 9000 / 900

    Vida :
    100 / 100100 / 100

    Premios :
    Mensajes : 38
    Edad : 27
    Llegada : 23/08/2010
    Femenino

    Re: Música(Dx8)

    Mensaje por Elaine el Lun Ago 23, 2010 6:14 pm

    Lo vi asi rapido, esta bien el codigo pero ¿no te laguea?.
    Igual muy buen aporte Smile
    avatar
    SuaveChiTow.-

    TEMPLARIO ESTRELLA


    TEMPLARIO ESTRELLA

    PJ :
    Nombre : SuaveChitOw.-
    Monedas de Oro-2261
    Mana :
    900 / 900900 / 900

    Vida :
    100 / 100100 / 100

    Premios :
    Mensajes : 132
    Edad : 27
    Llegada : 25/11/2008
    Masculino

    Re: Música(Dx8)

    Mensaje por SuaveChiTow.- el Lun Ago 23, 2010 6:17 pm

    No creo, pero si te laguea no va hacer la musica.
    avatar
    Elaine

    TEMPLARIO


    TEMPLARIO

    PJ :
    Nombre : Elaine
    Monedas de Oro172
    Mana :
    0 / 9000 / 900

    Vida :
    100 / 100100 / 100

    Premios :
    Mensajes : 38
    Edad : 27
    Llegada : 23/08/2010
    Femenino

    Re: Música(Dx8)

    Mensaje por Elaine el Mar Ago 24, 2010 5:25 pm

    Esta bueno igual, no creo que laguee mucho entonces

    Contenido patrocinado

    Re: Música(Dx8)

    Mensaje por Contenido patrocinado


      Fecha y hora actual: Miér Mayo 23, 2018 3:51 pm