Mensajes

[mp3.dll]

Hola, bueno, no se si conoceran esta dll   mp3.dll

Código [Seleccionar] Expandir


'/////////////////// En un modulo
Type PlayRecord
    FileName As String
    SeekAtStart As Long
    Owner As Long
    Result As Long
End Type

Declare Sub mp3gettime Lib "MP3.DLL" (DATA As PlayRecord, total As Double, perframe As Double)
Declare Sub mp3play Lib "MP3.DLL" (DATA As PlayRecord)
Declare Sub mp3stop Lib "MP3.DLL" ()
Declare Sub mp3seek Lib "MP3.DLL" (position As Integer)
[color=Green]'////////////////////////////// En el Form[/color]
Private Sub Form_Load()
Dim PR as PlayRecord
PR.FileName="c:\mp3\...."
Call mp3play(PR)
End Sub


El problema esta en la llamada, osea, cuando comienza a reproducir el archivo la ejecucion se detiene y hasta que no termina de reproducir el mp3 no continua la ejecucion. Me aclaro, no es que se detiene la ejecucion, su cuelga, una vez que termina de reproducir el tema se "descuelga".

Bueno, es eso...

Saludos !!

Aguante el boton gordito !!! 

Felicitaciones, esta de 10 !

Usa un contador o un Timer y cada vez q alla un evento (sea del raton o del teclado) se guarde y vuelva a cero...

Me alegro q alla servido. Era seguro q lo ibas a tener q modificar, ese codigo lo hice cuando recien empezaba a programar 

Saludos !

Yo lo usaba asi

Código [Seleccionar] Expandir


Public der, arr, izq, aba As Boolean
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
        Case 37
                der = True
        Case 38
                arr = True
        Case 39
                izq = True
               
        Case 40
                aba = True
               
    End Select
    If der = True Then
        Timer1.Enabled = True
        Image1.Picture = ImageList1.ListImages(2).Picture
    End If
    If arr = True Then
        Timer2.Enabled = True
        Image1.Picture = ImageList1.ListImages(1).Picture
    End If
    If izq = True Then
        Timer3.Enabled = True
        Image1.Picture = ImageList1.ListImages(3).Picture
    End If
    If aba = True Then
        Timer4.Enabled = True
        Image1.Picture = ImageList1.ListImages(4).Picture
    End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
        Case 37
               Timer1.Enabled = False
        Case 38
               Timer2.Enabled = False
        Case 39
               Timer3.Enabled = False
        Case 40
               Timer4.Enabled = False
    End Select
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End Sub

Private Sub Timer1_Timer()
    Image1.Left = Image1.Left - 100
    If Image1.Left <= 0 Then
        Image1.Left = Image1.Left + 100
    End If
End Sub

Private Sub Timer2_Timer()
    Image1.Top = Image1.Top - 100
    If Image1.Top <= 0 Then
        Image1.Top = Image1.Top + 100
    End If
End Sub

Private Sub Timer3_Timer()
    Image1.Left = Image1.Left + 100
    If Image1.Left >= 7080 Then
        Image1.Left = Image1.Left - 100
    End If
End Sub

Private Sub Timer4_Timer()
    Image1.Top = Image1.Top + 100
    If Image1.Top >= 7440 Then
        Image1.Top = Image1.Top - 100
    End If
End Sub



A los images no les des bola porq es un codigo re viejo y no tenia ganas de acomodarlo... Fijate si te sirve como idea, de todos modos hay formas mucho mas prolijas y eficientes q esta, pero estoy cansado y le mande un Copy/Paste

Saludos !

Si es lo q pienso puedo pasarte un ejemplo q hice... el problema q ya lo compile y no encuentro el fuente,,, voy a seguir buscando...

Es el juego de comer fichitas salteando una, no?

Saludos

De todas formas hay juegos simples q son bastante complicados de hacer yo he llegado a hacer el truco, poker, y hasta un bomber man... Simplemente es un ejercicio, porq de miles de lineas sacas un juego pobre... pero el aprendisaje y el hecho q este elaborado por uno mismo es lo q vale !!

uhhh, voy a  tener q arreglarmela de otra forma... Desde ya, gracias Nylon !!!

Saludos !

Alguien puede darme un porq??!!  Me estoy volviendo puto !!
Me tira el mismo error q a NewBie "No se encuentra el punto de entrada de la DLL en el kernel 32"

Si alguien hace algo a tiempo le beso los pies... si lo hacen fuera de tiempo.......    quien sabe... jajajaja

Saludos !!

No recuerdo bien si era con el Text o con el Label  q se podia poner

If txt.caption=Empty then
   msgbox "Vacio"
end if

Corrijanme si me equivoco...

Saludos