Shell 28-11-2023, 12:55
Buenas!.

Estaba buscando información sobre el comando ls, hay unos indicadores u opciones que no los conocia
o no lo había usado.

Después de ver usos básicos del comando, al final del artículo mostraba una ventana con una captura
de la ayuda de man sobre el comando ls.

Cuando fui a abrir la ayuda desde el shell, me di cuenta que el texto del comienzo de la ayuda era distinto.
Siendo en Inglés las dos.

En este sistema.

[Imagen: gs4UMZu.png]


En el del artículo.

[Imagen: GtloHmF.png]

¿ No deberían ser las ayudas iguales en la mayoría de las distros ?.

Arriba de la captura muestra BSD. Esto no es Linux, esa puede ser la respuesta.

Y a la vista de eso, crearé otro post. Rolleyes

Saludos
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.
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
Páginas (564):    1 124 125 126 127 128 564   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 292
Último miembro: DarkWolf
Temas del foro: 1,742
Mensajes del foro: 9,031
Últimos temas
Ordenar en un TableView
Foro: General
Último mensaje por: guizans, 05-11-2025, 23:26
Respuestas: 5 - Vistas: 144
Odio a gb.Report
Foro: General
Último mensaje por: guizans, 02-11-2025, 13:36
Respuestas: 9 - Vistas: 1,583
Reportes de Gambas
Foro: Aplicaciones/Fragmentos de Código
Último mensaje por: Alberto59, 27-10-2025, 16:34
Respuestas: 2 - Vistas: 1,342
Ordenando las carpetas
Foro: Programación en otros lenguajes
Último mensaje por: tercoide, 22-10-2025, 15:57
Respuestas: 0 - Vistas: 118
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.