Comunidad Gambas-es

Reproductor de audio con muestra de metadatos y espectroscopio simple

vuott 24-11-2023, 11:43

Hola,
os dejo este codigo para obtener un reproductor de audio, útil para escuchar radio-web, archivos de audio y vídeo, con muestra de eventuales Metadatos y de un simple Espectroscopio, basado en los recursos del sistema audio "GStreamer".
Por lo tanto, es necesario activar el componente "gb.media".

Código:
Private TextArea1 As TextArea

Private DrawingArea1 As DrawingArea

Private ToggleButton1 As ToggleButton

Private mp As MediaPlayer

Private Meta As New Collection

Private ss As New String[]

Public Sub Form_Open()

  Me.Resize(Screen.AvailableWidth * 0.33, Screen.AvailableHeight * 0.73)

  With TextArea1 = New TextArea(Me)

    .X = Me.W * 0.02

    .Y = Me.H * 0.02

    .W = Me.W * 0.96

    .H = Me.H * 0.4

  End With

  With DrawingArea1 = New DrawingArea(Me)

    .X = Me.W * 0.02

    .Y = Me.H * 0.43

    .W = Me.W * 0.96

    .H = Me.H * 0.46

  End With

  With ToggleButton1 = New ToggleButton(Me) As "ToggleButton1"

    .W = Me.W * 0.3

    .X = (Me.W * 0.5) - (.W / 2)

    .Y = Me.H * 0.9

    .H = Me.H * 0.08

    .Foreground = Color.Green

    .Text = "Ejecuta"

  End With

End

Public Sub ToggleButton1_Click()

 If ToggleButton1.Value Then

   Dim plugVis As MediaControl

   Dim tipoPlug As String[] = ["goom", "monoscope", "spacescope",

                               "spectrascope", "synaescope", "wavescope"]

   TextArea1.Clear

   With mp = New MediaPlayer As "MediaPlayer1"

     plugVis = New MediaControl(mp, tipoPlug[3])

     .SetWindow(DrawingArea1)

' Escuchamos una radio-web....

     .URL = "https://icy.unitedradio.it/VirginRock70.mp3"

' Si queremos ejecutar un archivo de audio o de vídeo tendremos que sustituir la línea anterior por esta:

'    .URL = Media.URL("/ruta/del/archivo/audio/o/video")

     .Play

     .Video.Visualisation = plugVis

   End With 

   ToggleButton1.Foreground = Color.Red

   ToggleButton1.Text = "Stop"

 Else

   mp.Stop

   mp.Close

   ToggleButton1.Foreground = Color.Green

   ToggleButton1.Text = "Ejecuta"

 Endif

End

Public Sub MediaPlayer1_Tag(tagList As MediaTagList)

 For Each tag As String In tagList.Tags

   If Not Meta.Exist(tag) Then

     Meta[tag] = tagList[tag]

     ss.Push(tag)

     ss.Push(tagList[tag])

   Else

     ss[ss.Find(tag) + 1] = tagList[tag]

   Endif

 Next

 TextArea1.Clear

 For c As Short = 0 To ss.Max Step 2

   TextArea1.Text &= ss[c] & ":    " & ss[c + 1] & gb.NewLine

 Next

End

Public Sub MediaPlayer1_Position()

 Me.Title = Str(Time(0, 0, 0, mp.Pos * 1000))

End

Public Sub MediaPlayer1_End()

 ToggleButton1.Value = False

End

Aplicaciones/Fragmentos de Código Respuestas 3

Apt se queda obsoleto ?

Shell 23-11-2023, 15:32

Buenas!.

Estoy viendo un vídeo tutorial sobre opciones del comando APT.

Estoy probando:

Código:
apt search "loquesea"

Por ejemplo en loquesea probé la palabra emulator

Código:
 apt search emulator

Las referencia encontradas no fueron muchas. Dando una salida así:

Cita:
i A fuse-emulator-common                                                                                           - The Free Unix Spectrum Emulator (common files)
i   fuse-emulator-gtk                                                                                              - The Free Unix Spectrum Emulator (GTK version)
i   fuse-emulator-sdl                                                                                              - The Free Unix Spectrum Emulator (SDL version)
i   fuse-emulator-utils                                                                                            - The Free Unix Spectrum Emulator - Utilities
p   games-emulator                                                                                                 - Debian's emulators for games
p   google-android-emulator-installer                                                                              - download and install Google's Android emulator binary
p   iisemulator                                                                                                    - Emulation for the IIS web server
p   luma.emulator-doc                                                                                              - doc for library provides a series of pseudo-display devices for luma.core
v   msx-emulator                                                                                                   -
v   nes-emulator                                                                                                   -
p   osmose-emulator                                                                                                - Sega Master System and Game Gear console emulator
p   python3-luma.emulator                                                                                          - library provides a series of pseudo-display devices for luma.core
p   slurm-client-emulator                                                                                          - SLURM client side commands for the emulator
p   slurm-wlm-emulator                                                                                             - SLURM emulator
v   x-terminal-emulator                                                                                            -
v   x-terminal-emulator:i386                                                                                       -

En cambio con flatpak fue bastante extensa.

Código:
 flatpak search emulator

De todo..

Saludos

Mundo Linux Sin respuestas

Historial del actualizador de Linux Mint

Shell 23-11-2023, 15:02

Buenas!.

Bueno como actualizador podíamos decir APT.
Visto de alguna forma el actualizador de Linux Mint deberá llamar al comando apt y probablemente a flatpak

Os propongo mi idea.

Me gustaría saber sobre una aplicación, llamémosla "X", las veces que se ha ido actualizando, sus fechas de actualización.

Poseo una Nvidia y curiosamente se han instalado con FlatPack dos paquetes sobre esta.
Eso lo hace directamente el gestor de actualizaciones.

Código:
flatpak list | grep "nvidia"

La cabecera la he añadido manualmente. (mal)

Cita:Nombre                             ID de aplicación                           Versión        Rama         Instalación
nvidia-470-199-02                   org.freedesktop.Platform.GL.nvidia-470-199-02                       1.4          system
nvidia-470-223-02                   org.freedesktop.Platform.GL.nvidia-470-223-02                       1.4          system

Estoy usando esa versión de driver por ahora ( Nvidia es un cachondeo con los drivers a veces. No voy a entrar en eso ahora. Big Grin

)

Lo curioso es que sean dos los que aparecen en la lista. (Arriba)
El gestor de controladores muestra esto:

[Imagen: T3nzcSo.png]

Como veis es el 223 y no el 199.

Entonces imaginar que quiero dentro de los historiales de los gestores de paquetes ver,
como es el ritmo que ha tenido las actualizaciones de Nvidia.

En el directorio: /var/log/apt

Podemos encontrar tropecientos archivos de log (uno activo) y el resto comprimido.
Podemos usar grep con el que tiene extensión log y el resto que nunca lo he probado, existe "zgrep"
Pero claro, eso son apt , ¿ qué pasa con los flatpaks ?.

No me he complicado con eso, aún.

Si os fijáis el gestor de actualizaciones de Linux Mint, tiene en su menú de Ver la opción de
ver historial, pero cuando muestra esa ventana, no hay forma de filtrar ni de trabajar con ella.

A ver, se puede clasificar mediante el grid que incorpora.

[Imagen: 8wEQymd.png]

Pero es una visión total.

No tengo ni idea si existirá una herramienta sobre esto.

Saludos

Mundo Linux Sin respuestas

Páginas (557): 1 … 117 118 119 120 121 … 557

Bienvenido, Invitado

Buscar en los foros

Estadísticas del foro

Miembros: 284

Último miembro: VALENTIN KORONADO

Temas del foro: 1,719

Mensajes del foro: 8,923

Últimos temas

Portal

vuott 24-11-2023, 11:43

Shell 23-11-2023, 15:32

Shell 23-11-2023, 15:02

Un sistema de ayudas cont...

Publicidad

Web con gambas, a ver si ...

Crear una aplicación para...

Paso de parámetros a una ...