Comunidad Gambas-es

Obteniendo los colores del sistema + Los de gambas.

tincho 05-05-2023, 15:12

Hola amigos.

Les comparto una manera de obtener los colores del sistema y los de gambas como por ejemplo, SoftOrange.
El compañero Bruce Steers de la lista de correo internacional ha dado con la solución para obtener las propiedades, ya que las constantes si se pueden obtener desde la clase directamente, pero las propiedades provienen del Objeto.
A raíz del post de Shordi donde buscaba una forma de simplificar el código, finalmente planteo esta manera:

Nota: Por cierto pueden ver el selector de colores de Shordi, que le quedo estupendo y yo subí una versión modificada para trabajar con una colección en vez de con un Variant[].

Código:
      Dim myClass As Class = Classes["Color"]

      Dim sSymbol As String

      For Each sSymbol In myClass.Symbols

        If myClass[sSymbol].Kind = Class.Constant Then

          $aColors.Add([myClass[sSymbol].Value, sSymbol])

        Else If myClass[sSymbol].Kind = Class.Property

          $aColors.Add([Object.GetProperty(Color, sSymbol), sSymbol])

        Endif

      Next

Nuevamente el amigo Bruce se supera a si mismo y nos propone esta otra manera:

Código:
 For Each sSymbol As String In Classes["Color"].Symbols

   If Classes["Color"][sSymbol].Kind = Class.Constant Or If Classes["Color"][sSymbol].Kind = Class.Property Then $Colors[sSymbol] = Object.GetProperty(Color, sSymbol)

 Next

Aplicaciones/Fragmentos de Código Respuestas 2

Obtener los colores del sistema, constantes

Shell 05-05-2023, 14:04

Buenas!.

Creo que Tincho está preguntando esto en la lista internacional.
Con este código se obtiene los valores en hexa y la constante del color. ( Las constantes resultan curiosas, obtenerlas ).

Código:
Public Sub Ejemplo2()

  Dim cl As Class

  Dim s As String

  cl = Class.Load("Color")

  For Each s In cl.Symbols

    If cl[s].Kind = Class.Method Then Continue

    Print Hex(Object.GetProperty(cl, s), 8), s

    Wait 0.3

  Next

  Me.Close

End

Saludos[/s]

General Respuestas 4

Problemas con el sonido

Shell 04-05-2023, 19:27

Buenas!.

¿ Habéis tenido o tenéis problema con el sonido en Linux ?. Por ejemplo con FireFox.
En mi caso tengo dos tarjetas de sonido. La interna y la que incorpora la gráfica.

A mi me pasa con Firefox, es raro el efecto. Es algo que ocurre cuando le da gana.
Encontré en su día referencia a este problema y hace referencia a "speech-dispatcher".

Os muestro el control de audio de PulseAudio: ( Es algo que esta funcionando pero temporalmente duerme ).
Es el "speech-dispatcher".

[Imagen: 7ZE9Shn.png]

Otro de los problemas que a veces pasa es cuando se actualiza el kernel, puede crear errores que no esperabas.
He buscados referencias a los servicios de sonido en el sistema.

Código:
systemctl list-unit-files | grep -i alsa

Salida:

Cita: UNIT FILE                                                                 STATE           VENDOR PRESET
alsa-restore.service                                                      static          enabled
alsa-state.service                                                        static          enabled
alsa-utils.service                                                        masked          enabled

Luego he intentado ver el estado de esos servicios. Por ejemplo, alsa-state.service.

Código:
sudo systemctl status alsa-state.service

Y me ha mostrado esto:

Cita:
alsa-state.service - Manage Sound Card State (restore and store)
     Loaded: loaded (/lib/systemd/system/alsa-state.service; static; vendor preset: enabled)
     Active: inactive (dead)
Condition: start condition failed at Thu 2023-05-04 18:24:03 CEST; 50min ago
             └─ ConditionPathExists=/etc/alsa/state-daemon.conf was not met
       Docs: man:alsactl(1)

may 04 18:24:03 NombreDelSistema systemd[1]: Condition check resulted in Manage Sound Card State (restore and store) being skipped.

Fijaros que dice que no encuentra el archivo de configuración del demonio de estado de alsa.
En el directorio /etc/alsa encontré solo este directorio:

Cita:drwxr-xr-x 2 root root 4096 abr 30 2022 conf.d

Y en ese directorio:

Cita:
lrwxrwxrwx 1 root root 46 abr 30 2022 10-samplerate.conf -> /usr/share/alsa/alsa.conf.d/10-samplerate.conf
lrwxrwxrwx 1 root root 45 abr 30 2022 10-speexrate.conf -> /usr/share/alsa/alsa.conf.d/10-speexrate.conf
lrwxrwxrwx 1 root root 48 abr 30 2022 50-arcam-av-ctl.conf -> /usr/share/alsa/alsa.conf.d/50-arcam-av-ctl.conf
lrwxrwxrwx 1 root root 40 abr 30 2022 50-jack.conf -> /usr/share/alsa/alsa.conf.d/50-jack.conf
lrwxrwxrwx 1 root root 39 abr 30 2022 50-oss.conf -> /usr/share/alsa/alsa.conf.d/50-oss.conf
lrwxrwxrwx 1 root root 46 abr 30 2022 50-pulseaudio.conf -> /usr/share/alsa/alsa.conf.d/50-pulseaudio.conf
lrwxrwxrwx 1 root root 41 abr 30 2022 60-upmix.conf -> /usr/share/alsa/alsa.conf.d/60-upmix.conf
lrwxrwxrwx 1 root root 44 abr 30 2022 60-vdownmix.conf -> /usr/share/alsa/alsa.conf.d/60-vdownmix.conf
lrwxrwxrwx 1 root root 46 abr 30 2022 98-usb-stream.conf -> /usr/share/alsa/alsa.conf.d/98-usb-stream.conf
-rw-r--r-- 1 root root 201 mar 4 2020 99-pulseaudio-default.conf.example
lrwxrwxrwx 1 root root 38 nov 20 2021 99-pulse.conf -> /usr/share/alsa/alsa.conf.d/pulse.conf

Pero tenemos muchos comandos en el sistema que hacen referencia a Alsa.

Código:
apropos alsa

Cita:aconnect (1)         - ALSA sequencer connection manager
alsa-info (8)        - command-line utility to gather information about the ALSA subsystem
alsabat (1)          - command-line sound tester for ALSA sound card driver
alsactl (1)          - advanced controls for ALSA soundcard driver
alsactl_init (7)     - alsa control management - initialization
alsaloop (1)         - command-line PCM loopback
alsamixer (1)        - soundcard mixer for ALSA soundcard driver, with ncurses interface
alsatplg (1)         - ALSA Topology Compiler
alsaucm (1)          - ALSA Use Case Manager
amidi (1)            - read from and write to ALSA RawMIDI ports
amixer (1)           - command-line mixer for ALSA soundcard driver
aplay (1)            - command-line sound recorder and player for ALSA soundcard driver
arecord (1)          - command-line sound recorder and player for ALSA soundcard driver
aseqdump (1)         - show the events received at an ALSA sequencer port
aseqnet (1)          - ALSA sequencer connectors over network
axfer (1)            - command-line sound recorder and player for sound devices and nodes supported by Linux sound subsystem (Adva...
speaker-test (1)     - command-line speaker test tone generator for ALSA

Este "alsa-info" incluso trata de bajarse una nueva versión del controlador de Alsa.

[Imagen: w3z3d2j.png]

Pero se repite una y otra vez al ejecutar el comando.
Mostrando esto si actualizas:

Cita:
Newer version detected: 0.5.3
To view the ChangeLog, please visit http://www.alsa-project.org/alsa-info.sh.changelog
ALSA-Info script has been downloaded as /tmp/alsa-info.6CYw5SKfsP.
Please re-run the script from new location.

Es un script bien largo que da comando no encontrado.

Probare el mismo proceder en una Linux Mint más antigua.

Saludos

En una Linux Mint 19.3, usando la misma aplicación para el sonido, el mixer de pulseaudio.
speech-dispatcher no aparece "hasta" que se ejecuta Firefox.

Tiene vida propia. Desapareció al cerrar la pestaña y al poner otra pestaña con audio y vídeo ni aparece....

[Imagen: Y1bVZA9.png]