Alberto59 24-11-2023, 17:54
Por Favor,me podeis ayudar.
No se como mostrar la última fila en un GRIDVIEW cuando esta cargado con los datos.
Gracias.
No se como mostrar la última fila en un GRIDVIEW cuando esta cargado con los datos.
Gracias.
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".
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
Shell 23-11-2023, 15:32
Buenas!.
Estoy viendo un vídeo tutorial sobre opciones del comando APT.
Estoy probando:
Por ejemplo en loquesea probé la palabra emulator
Las referencia encontradas no fueron muchas. Dando una salida así:
En cambio con flatpak fue bastante extensa.
De todo..
Saludos
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 emulatorLas 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 emulatorDe todo..
Saludos
Bienvenido, Invitado
Últimos temas
Convertir formatos de aud...
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: guizans, Hace 11 horas
Respuestas: 2 - Vistas: 69
Paren...WAIT !!!
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: guizans, 25-08-2025, 14:49
Respuestas: 3 - Vistas: 434
Gambas y Wayland
Foro: GeneralÚltimo mensaje por: guizans, 20-08-2025, 13:56
Respuestas: 6 - Vistas: 575
Odio a gb.Report
Foro: GeneralÚltimo mensaje por: guizans, 19-08-2025, 10:40
Respuestas: 8 - Vistas: 929