|
Página 1 de 2
|
Velocidad De Reproducción De Audio
Autor |
Mensaje |
faranda77
Usuario
Registrado: Abril 2015
Mensajes: 4
Edad: 47 Ubicación:
|
Velocidad De Reproducción De Audio
Hola,
estoy haciendo un pequeño reproductor de audio usando el componente gb.media. Me he quedado atascado intentando modificar la velocidad de reproducción del audio.
¿Se puede hacer?
Gracias.
|
#1 Sabado, 24 Marzo 2018, 18:26 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: Velocidad De Reproducción De Audio
que tal si subes el proyecto?
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#2 Sabado, 24 Marzo 2018, 18:45 |
|
|
faranda77
Usuario
Registrado: Abril 2015
Mensajes: 4
Edad: 47 Ubicación:
|
Re: Velocidad De Reproducción De Audio
Gracias por contestar.
Ahí va el proyecto.
Descripción: |
Reproductor |
Descargar |
Nombre del archivo: |
LanguajePlayer.tar.gz |
Tamaño: |
15.43 KB |
Descargado: |
39 veces |
Descripción: |
Reproductor |
Descargar |
Nombre del archivo: |
LanguajePlayer.tar.gz |
Tamaño: |
15.43 KB |
Descargado: |
39 veces |
Descripción: |
Reproductor |
Descargar |
Nombre del archivo: |
LanguajePlayer.tar.gz |
Tamaño: |
15.43 KB |
Descargado: |
39 veces |
|
#3 Sabado, 24 Marzo 2018, 19:58 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
Re: Velocidad De Reproducción De Audio
....usando el componente gb.media. ....intentando modificar la velocidad de reproducción del audio.
¿Se puede hacer?
SI tu estás hablando del " Tempo" metronomico, eso es posible; pero tienes que utilizar las Clases " MediaPipeline " y " MediaControl " del Componente gb.Media .
Aquì un simple ejemplo en entorno grafico, extraído de el WIKI del foro italiano de Gambas:
Private pl As MediaPipeline
Private pit As MediaControl
Private vol As MediaControl
Private pitch As Float = 1.00
Private tempo As Float = 1.00
Private volume As Float = 1.00
Public Sub Form_Open()
Dim src, par, cnv, res, enc, cnv2, snk As MediaControl
Dim flt As MediaFilter
pl = New MediaPipeline
src = New MediaControl(pl, "filesrc")
src["location"] = "/ruta/del/archivo.wav"
par = New MediaControl(pl, "wavparse")
cnv = New MediaControl(pl, "audioconvert")
res = New MediaControl(pl, "audioresample")
flt = New MediaFilter(pl, "audio/x-raw,rate=44100,channels=2")
pit = New MediaControl(pl, "pitch")
vol = New MediaControl(pl, "volume")
cnv2 = New MediaControl(pl, "audioconvert")
snk = New MediaControl(pl, "alsasink")
src.LinkTo(par)
par.LinkTo(cnv)
cnv.LinkTo(res)
res.LinkTo(flt)
flt.LinkTo(pit)
pit.LinkTo(cnv2)
cnv2.LinkTo(vol)
vol.LinkTo(snk)
' Imposta alcuni valori dei due "Slider":
With Slider1
.MinValue = 0
.MaxValue = 1000
.Value = 100
End With
With Slider2
.MinValue = 0
.MaxValue = 1000
.Value = 100
End With
With Slider3
.MinValue = 0
.MaxValue = 1000
.Value = 100
End With
End
Public Sub Button1_Click()
pl.Play()
Do
Write #File.Out, "\rDurata del brano: " & CStr(Date(0, 0, 0, 0, 0, 0, pl.Duration * 1000)) & " - Tempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, pl.Position * 1000))
Wait 0.01
Loop Until (pl.Position >= pl.Duration)
End
Public Sub Button2_Click()
pl.Stop()
pl.Close()
End
Public Sub Slider1_Change()
pitch = Slider1.Value / 100
pit["pitch"] = pitch
ValueBox1.Value = pitch
End
Public Sub Slider2_Change()
tempo = Slider2.Value / 100
pit["tempo"] = tempo ' <-------------------------------------------- PARA EL "TEMPO" METRONOMICO
ValueBox2.Value = tempo
End
Public Sub Slider3_Change()
volume = Slider3.Value / 100
vol["volume"] = volume ' "volume" è una proprietà dell'omonimo plugin "volume"
ValueBox3.Value = volume
End
última edición por vuott el Sabado, 24 Marzo 2018, 21:35; editado 1 vez
|
#4 Sabado, 24 Marzo 2018, 21:35 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
Re: Velocidad De Reproducción De Audio
faranda77:
Tambien me ha surgido la misma duda..
Vuott:
Interesante... lo voy a estudiar, a ver si lo puedo aplicar al EscuchaMP3
|
#5 Domingo, 25 Marzo 2018, 13:11 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
Re: Velocidad De Reproducción De Audio
lo voy a estudiar
Hola jsbsan,
para los plugin del 2° argumento de MediaControl( ), puedes ver aquì:
https://gstreamer.freedesktop.org/documentation/plugins.html
|
#6 Domingo, 25 Marzo 2018, 14:05 |
|
|
faranda77
Usuario
Registrado: Abril 2015
Mensajes: 4
Edad: 47 Ubicación:
|
Re: Velocidad De Reproducción De Audio
Gracias a todos por contestar,
he probado con el ejemplo posteado por vuott pero sin éxito.
|
#7 Domingo, 25 Marzo 2018, 18:31 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
Re: Velocidad De Reproducción De Audio
Vuott:
Citar: he probado con el ejemplo posteado por vuott pero sin éxito.
A mi tambien me ha pasado. He añadido un archivo .wav y un pequeño formulario al codigo, y me da el siguiente error al intentar ejecutarlo:
Subo el codigo a google drive:
https://drive.google.com/file/d/1j8...iew?usp=sharing
|
#8 Domingo, 25 Marzo 2018, 19:54 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
Re: Velocidad De Reproducción De Audio
... me da el siguiente error al intentar ejecutarlo:
Subo el codigo a google drive
Hola,
probé de nuevo mi codigo y a mi funciona regularmente.
Subí tu codigo, jsbsan, y lo probé: a mi funciona regularmente.
Uhmmm...puede ser que esta ruta " ../programa131.wav " (con puntos) dé problemas ?
De todas formas, está claro que, con estar el plugin " wavparse", podemos utilizar - con aquel codigo - solo archivos WAV.
última edición por vuott el Domingo, 25 Marzo 2018, 23:10; editado 1 vez
|
#9 Domingo, 25 Marzo 2018, 23:10 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: Velocidad De Reproducción De Audio
vuott una pregunta
cnv = New MediaControl(pl, "audioconvert")
donde dice audioconvert son nombres constantes o se puede usar cualquier nombre???
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#10 Domingo, 25 Marzo 2018, 23:42 |
|
|
|
Temas parecidos
Temas parecidos
|
Página 1 de 2
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado Usuarios registrados conectados: Ninguno
|
No puede crear mensajes No puede responder temas No puede editar sus mensajes No puede borrar sus mensajes No puede votar en encuestas No puede adjuntar archivos Puede descargar archivos No puede publicar eventos en el calendario
|
|
|
|
|