Reproducir audio

Ver el tema anterior Ver el tema siguiente Ir abajo

Reproducir audio

Mensaje  OLBECK_MTY el Sáb Dic 19, 2009 5:54 pm

Buen día gente

estoy intentando reproducir una pista de mp3, pero no logro dar con el clavo No , me sería de mucha ayuda su apoyo.
algo basico, como presionar un boton y que se reproduzca dicha pista, ademas quisiera saber, si la pista puede ser cualquiera del equipo o tengo que agregarla a mi proyecto, que creo que lo segundo seria lo mejor, no creen?.


gracias...
avatar
OLBECK_MTY

Mensajes : 2
Fecha de inscripción : 14/12/2009
Edad : 32
Localización : Monterrey, Nuevo León, México

Ver perfil de usuario

Volver arriba Ir abajo

reproducir audio en gambas

Mensaje  OLBECK_M el Miér Mar 17, 2010 11:09 pm

hola espero este codigo te sea de ayuda

STATIC PRIVATE $bDoNotMove AS Boolean

PUBLIC SUB btnOpen_Click()

IF Dialog.OpenFile() THEN RETURN

lblTitle.Text = File.Name(Dialog.Path)
' Approximation...
sldPos.MaxValue = 600

Music.Load(Dialog.Path)
btnPlay_Click

CATCH

Message.Error(Error.Text)

END

PUBLIC SUB btnPlay_Click()

timMusic.Enabled = TRUE
Music.Play

END

PUBLIC SUB btnPause_Click()

Music.Pause

END

PUBLIC SUB btnStop_Click()

Music.Stop
timMusic.Enabled = FALSE
lblPos.Text = ""
sldPos.Value = 0

END

PUBLIC SUB timMusic_Timer()

DIM iPos AS Integer
DIM iVal AS Integer
DIM sPos AS String
DIM iInd AS Integer

iPos = Music.Pos

IF NOT $bDoNotMove THEN
Object.Lock(sldPos)
IF iPos > sldPos.MaxValue THEN
sldPos.MaxValue = sldPos.MaxValue * 2
ENDIF
sldPos.Value = iPos
Object.Unlock(sldPos)
ENDIF

FOR iInd = 0 TO 2

iVal = iPos MOD 60
iPos = iPos \ 60
IF iInd THEN
sPos = Format(iVal, "00") & ":" & sPos
ELSE
sPos = Format(iVal, "00")
ENDIF

NEXT

lblPos.Text = sPos

END

PUBLIC SUB sldPos_Change()

Music.Pos = sldPos.Value

END

PUBLIC SUB sldPos_MouseDown()

$bDoNotMove = TRUE

END

PUBLIC SUB sldPos_MouseUp()

$bDoNotMove = FALSE

END

PUBLIC SUB sldVolume_Change()

Music.Volume = 1 - sldVolume.Value / sldVolume.MaxValue

END


atte: sergio de hostinglobal.net

OLBECK_M
Invitado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.