<![CDATA[Comunidad Gambas-es - Aplicaciones/Fragmentos de Código]]>

<![CDATA[Comunidad Gambas-es - Aplicaciones/Fragmentos de Código]]> https://gambas-es.org/ Sat, 29 Aug 2026 10:53:02 +0000 MyBB <![CDATA[Lanzador de máquinas virtuales]]> https://gambas-es.org/thread-2023.html Tue, 04 Aug 2026 08:41:45 +0000 paskola]]> https://gambas-es.org/thread-2023.html
- Recabar información de las máquinas virtuales usando VBoxManage en una Shell.
- Permite iniciar o detener máquinas virtuales.
- Cambia el estatus de cada máquina al iniciarla o detenerla.
- Permite cambiar el ícono o logo del sistema operativo de la máquina virtual.
- Permite cambiar la orientación del listado de máquinas.
– Sincroniza las máquinas para eliminar o agregar a la base de datos según sea el caso.

Por el momento solo busca máquinas virtuales de VirtualBox porque es el hipervisor que uso normalmente uso para probar cosas en mi laptop y que después pondré en producción usando Proxmox o Hyper-V.

Hay cosas que aún necesito refinar, por ejemplo la interfaz de usuario porque soy de ese selecto grupo que no puede crear una GUI decente ni aunque la vida vaya en ello.

Otro bug que no he podido resolver es que cuando se ejecuta VBoxManage en una instrucción Shell toma cerca de 1 minuto para completarse pero si VirtualBox está ejecutándose la misma tarea toma solo un par de segundos.

Y esa es mi historia, anexo una captura de como luce, una disculpa para los que tiene más idea de como hacer interfases bonitas. Cuando termine de resolver los bugs comparto el código si es de interés para el respetable público.

Un abrazo.

vboxr.png (Tamaño: 30.38 KB Descargas: 15)

]]>
- Recabar información de las máquinas virtuales usando VBoxManage en una Shell.
- Permite iniciar o detener máquinas virtuales.
- Cambia el estatus de cada máquina al iniciarla o detenerla.
- Permite cambiar el ícono o logo del sistema operativo de la máquina virtual.
- Permite cambiar la orientación del listado de máquinas.
– Sincroniza las máquinas para eliminar o agregar a la base de datos según sea el caso.

Por el momento solo busca máquinas virtuales de VirtualBox porque es el hipervisor que uso normalmente uso para probar cosas en mi laptop y que después pondré en producción usando Proxmox o Hyper-V.

Hay cosas que aún necesito refinar, por ejemplo la interfaz de usuario porque soy de ese selecto grupo que no puede crear una GUI decente ni aunque la vida vaya en ello.

Otro bug que no he podido resolver es que cuando se ejecuta VBoxManage en una instrucción Shell toma cerca de 1 minuto para completarse pero si VirtualBox está ejecutándose la misma tarea toma solo un par de segundos.

Y esa es mi historia, anexo una captura de como luce, una disculpa para los que tiene más idea de como hacer interfases bonitas. Cuando termine de resolver los bugs comparto el código si es de interés para el respetable público.

Un abrazo.

vboxr.png (Tamaño: 30.38 KB Descargas: 15)

]]> <![CDATA[¿Cual es la mejor IA para crear codigo gambas?]]> https://gambas-es.org/thread-2022.html Tue, 28 Jul 2026 06:59:06 +0000 tincho]]> https://gambas-es.org/thread-2022.html
Ayer me vi en la necesidad de crear un método para convertir datos de una colección en un archivo DXF, intente usar "chatgpt nano" pero no obtuve grandes resultados así que probé otra llamada Claude haiku [1] y el código generado funciono casi a la primera.
Solo tuve que corregir algunos errores.

[1] https://www.anthropic.com/news/claude-haiku-4-5

Saludos.]]>
Ayer me vi en la necesidad de crear un método para convertir datos de una colección en un archivo DXF, intente usar "chatgpt nano" pero no obtuve grandes resultados así que probé otra llamada Claude haiku [1] y el código generado funciono casi a la primera.
Solo tuve que corregir algunos errores.

[1] https://www.anthropic.com/news/claude-haiku-4-5

Saludos.]]> <![CDATA[Meter en un grupo a controles creados en tiempo de ejecucion ¿Como se hace?]]> https://gambas-es.org/thread-2021.html Sun, 26 Jul 2026 13:35:23 +0000 tincho]]> https://gambas-es.org/thread-2021.html
Luego de bastante tiempo sin programar en gambas intento hacer un programa y me tope con un inconveniente.
Los controles creados en tiempo de ejecucion no tienen la propiedad "group"
Creo que algo se hablo de este tema en otros articulos pero solo encontre este articulo:
https://gambas-es.org/thread-1684-post-8...up#pid8535
¿Como podria agregar un observador del evento click de esos controles?
chatgpt me dice que use esto:

Código:
b = New ToolButton(pCad)

        b.Tag = "cad/" & sTag

        b.Action = sTag

        b.H = z

        b.W = z

        Link b.Click, Me, "tools_Click"

(pero no funciona)

Respuesta:
Hay que crear el control de esta manera:

Código:
b = New ToolButton(Panel2) As "tools"

Y luego hay que poner el codigo en el evento:

Código:
Public Sub tools_Click()

' Code here

End

Adjunto un proyecto de ejemplo por si alguien desea echarle un vistazo.
Saludos.

test-action-0.0.1.tar.gz (Tamaño: 16.59 KB Descargas: 2)

]]>
Luego de bastante tiempo sin programar en gambas intento hacer un programa y me tope con un inconveniente.
Los controles creados en tiempo de ejecucion no tienen la propiedad "group"
Creo que algo se hablo de este tema en otros articulos pero solo encontre este articulo:
https://gambas-es.org/thread-1684-post-8...up#pid8535
¿Como podria agregar un observador del evento click de esos controles?
chatgpt me dice que use esto:

Código:
b = New ToolButton(pCad)

        b.Tag = "cad/" & sTag

        b.Action = sTag

        b.H = z

        b.W = z

        Link b.Click, Me, "tools_Click"

(pero no funciona)

Respuesta:
Hay que crear el control de esta manera:

Código:
b = New ToolButton(Panel2) As "tools"

Y luego hay que poner el codigo en el evento:

Código:
Public Sub tools_Click()

' Code here

End

Adjunto un proyecto de ejemplo por si alguien desea echarle un vistazo.
Saludos.

test-action-0.0.1.tar.gz (Tamaño: 16.59 KB Descargas: 2)

]]> <![CDATA[FACTURA POR REPORT GAMBAS3]]> https://gambas-es.org/thread-1994.html Mon, 27 Oct 2025 13:03:24 +0000 Alberto59]]> https://gambas-es.org/thread-1994.html

factura 16.pdf (Tamaño: 422.04 KB Descargas: 13)

Hola Shell

MIra hace tiempo que no estoy conectado y bueno ya estoy aqui.

Te digo,ya sé como usar el dichoso report para hacer una dichosa factura,desde el mismo formulario.
Te mando una copia de la factura hecha con reporte y si lo crees conveniente te mando el programa.

Para aquellos que lo necesiten.ok

Nota:

Tengo hecho en dos formatos uno en HTML ,como sabes y el otro en REPORTE de gambas3]]> <![CDATA[Ejecutar un archivo de audio o Midi al hacer clic en MapView]]> https://gambas-es.org/thread-1985.html Thu, 25 Sep 2025 05:36:21 +0000 vuott]]> https://gambas-es.org/thread-1985.html Se necesita activar los Componentes "gb.map" y "gb.media" de Gambas.

https://www.gambas-it.org/wiki/index.php...la_MapView]]> Se necesita activar los Componentes "gb.map" y "gb.media" de Gambas.

https://www.gambas-it.org/wiki/index.php...la_MapView]]> <![CDATA[Leer en el área de memoria ocupada por un Objeto]]> https://gambas-es.org/thread-1984.html Mon, 22 Sep 2025 11:56:38 +0000 vuott]]> https://gambas-es.org/thread-1984.html
https://www.gambas-it.org/wiki/index.php...un_oggetto]]>
https://www.gambas-it.org/wiki/index.php...un_oggetto]]> <![CDATA[Mostrar una imagen con Drag&Drop de su archivo en un PictureBox o en un ImageView]]> https://gambas-es.org/thread-1982.html Tue, 16 Sep 2025 23:28:20 +0000 vuott]]> https://gambas-es.org/thread-1982.html
https://www.gambas-it.org/wiki/index.php..._ImageView]]>
https://www.gambas-it.org/wiki/index.php..._ImageView]]> <![CDATA[Convertir formatos de audio mediante el Componente gb.media]]> https://gambas-es.org/thread-1981.html Sat, 13 Sep 2025 22:36:01 +0000 vuott]]> https://gambas-es.org/thread-1981.html
https://www.gambas-it.org/wiki/index.php...e_gb.media]]>
https://www.gambas-it.org/wiki/index.php...e_gb.media]]> <![CDATA[Paren...WAIT !!!]]> https://gambas-es.org/thread-1980.html Fri, 22 Aug 2025 11:58:43 +0000 tercoide]]> https://gambas-es.org/thread-1980.html

Código:
WAIT       'revisa el bucle de eventos, pero NO del teclado y mouse, y regresa inmediatamente

WAIT 0    ' idem pero lee eventos del teclado y mouse

WAIT 0.1 ' idem pero regresa a los 0.1 segundos

]]>

Código:
WAIT       'revisa el bucle de eventos, pero NO del teclado y mouse, y regresa inmediatamente

WAIT 0    ' idem pero lee eventos del teclado y mouse

WAIT 0.1 ' idem pero regresa a los 0.1 segundos

]]> <![CDATA[Fases lunares]]> https://gambas-es.org/thread-1975.html Fri, 25 Jul 2025 21:34:09 +0000 vuott]]> https://gambas-es.org/thread-1975.html No recuerdo quién lo escribió. En las fuentes del programa solo estaba presente la probable referencia a tal "aztk".
Cuando volví a probar el código, había problemas de funcionamiento debido a las modificaciones introducidas en los gráficos de Gambas.
He actualizado el código y ahora está funcionando de nuevo.
Se lo devuelvo a esta comunidad de programadores.

faseslunares-0.0.3.tar.gz (Tamaño: 13.97 KB Descargas: 2)

]]> No recuerdo quién lo escribió. En las fuentes del programa solo estaba presente la probable referencia a tal "aztk".
Cuando volví a probar el código, había problemas de funcionamiento debido a las modificaciones introducidas en los gráficos de Gambas.
He actualizado el código y ahora está funcionando de nuevo.
Se lo devuelvo a esta comunidad de programadores.

faseslunares-0.0.3.tar.gz (Tamaño: 13.97 KB Descargas: 2)

]]> <![CDATA[Ejemplo de chat]]> https://gambas-es.org/thread-1942.html Mon, 21 Apr 2025 19:35:15 +0000 alberto-moyano]]> https://gambas-es.org/thread-1942.html
Analizo la posibilidad de llevarlo a cabo, pero antes de ponerme a estudiar el tema quería saber si va a ser posible en Gambas.

Saludos]]>
Analizo la posibilidad de llevarlo a cabo, pero antes de ponerme a estudiar el tema quería saber si va a ser posible en Gambas.

Saludos]]> <![CDATA[Instalar aplicación en máquinas de clientes (alumnos)]]> https://gambas-es.org/thread-1935.html Fri, 18 Apr 2025 03:05:26 +0000 alberto-moyano]]> https://gambas-es.org/thread-1935.html
Estoy dando un curso de edición ramificada basada en lenguaje de marcas con LaTeX en la UBA y los alumnos (39) tienen que instalar diferentes aplicaciones, esto incluye mi desarrollo en gambas, se instalaron sin problemas todas menos mi desarrollo, lo que fue un fiasco, se supone que al instalarse las aplicaciones, el instalador «lee» todos los componentes necesarios y los instala, pero por algún motivo solo instala algunos (el runtime y algunos más), desconozco que hace para decidir que instala y que no, la cuestión es que encontré una salida, que no es común, pero funciona 100% efectiva.

Hice un script (se corre con sudo su) en bash que lee que distro esta corriendo e instala todos los componentes que están listados, luego se puede instalar la app de gambas con 0 error, les comparto el script

Código:
#!/bin/bash

# Lista de componentes que necesita el programa

COMPONENTES=(

    gambas3-runtime

    gambas3-gb-db

    gambas3-gb-db-sqlite3

    gambas3-gb-dbus

    gambas3-gb-desktop

    gambas3-gb-form

    gambas3-gb-form-dialog

    gambas3-gb-form-terminal

    gambas3-gb-image

    gambas3-gb-inotify

    gambas3-gb-net

   gambas3-gb-net-curl

   gambas3-gb-qt5

   gambas3-gb-qt5-ext

   gambas3-gb-qt5-webview

   gambas3-gb-settings

   gambas3-gb-term

   gambas3-gb-util

   gambas3-gb-util-web

)

echo "Detectando distribución..."

# Detectar distribución

if [ -f /etc/os-release ]; then

    . /etc/os-release

    DISTRO=$ID

else

    echo "No se pudo detectar la distribución. Instalación cancelada."

    exit 1

fi

# Función para instalar componentes si no están instalados

instalar_si_faltan() {

    local comando_check=$1

    local comando_instalar=$2

    for comp in "${COMPONENTES[@]}"; do

        if ! eval "$comando_check $comp" &>/dev/null; then

            echo "Instalando $comp..."

            eval "$comando_instalar $comp"

        else

            echo "$comp ya está instalado. Omitiendo."

        fi

    done

}

# Instalar según distribución

case "$DISTRO" in

    ubuntu|debian|linuxmint)

        echo "Distribución Debian/Ubuntu/Mint detectada."

        apt update

        instalar_si_faltan "dpkg -s" "sudo apt install -y"

        ;;

    opensuse*|suse)

        echo "Distribución openSUSE detectada."

        instalar_si_faltan "rpm -q" "sudo zypper install -y"

        ;;

    fedora)

        echo "Distribución Fedora detectada."

        instalar_si_faltan "rpm -q" "sudo dnf install -y"

        ;;

    arch|manjaro)

        echo "Distribución Arch/Manjaro detectada."

        instalar_si_faltan "pacman -Q" "sudo pacman -S --noconfirm"

        ;;

    *)

        echo "Distribución $DISTRO no soportada automáticamente."

        echo "Por favor instala manualmente los siguientes componentes:"

        printf '%s\n' "${COMPONENTES[@]}"

        exit 1

        ;;

esac

echo "Todos los componentes de Gambas han sido verificados e instalados según necesidad."

]]>
Estoy dando un curso de edición ramificada basada en lenguaje de marcas con LaTeX en la UBA y los alumnos (39) tienen que instalar diferentes aplicaciones, esto incluye mi desarrollo en gambas, se instalaron sin problemas todas menos mi desarrollo, lo que fue un fiasco, se supone que al instalarse las aplicaciones, el instalador «lee» todos los componentes necesarios y los instala, pero por algún motivo solo instala algunos (el runtime y algunos más), desconozco que hace para decidir que instala y que no, la cuestión es que encontré una salida, que no es común, pero funciona 100% efectiva.

Hice un script (se corre con sudo su) en bash que lee que distro esta corriendo e instala todos los componentes que están listados, luego se puede instalar la app de gambas con 0 error, les comparto el script

Código:
#!/bin/bash

# Lista de componentes que necesita el programa

COMPONENTES=(

    gambas3-runtime

    gambas3-gb-db

    gambas3-gb-db-sqlite3

    gambas3-gb-dbus

    gambas3-gb-desktop

    gambas3-gb-form

    gambas3-gb-form-dialog

    gambas3-gb-form-terminal

    gambas3-gb-image

    gambas3-gb-inotify

    gambas3-gb-net

   gambas3-gb-net-curl

   gambas3-gb-qt5

   gambas3-gb-qt5-ext

   gambas3-gb-qt5-webview

   gambas3-gb-settings

   gambas3-gb-term

   gambas3-gb-util

   gambas3-gb-util-web

)

echo "Detectando distribución..."

# Detectar distribución

if [ -f /etc/os-release ]; then

    . /etc/os-release

    DISTRO=$ID

else

    echo "No se pudo detectar la distribución. Instalación cancelada."

    exit 1

fi

# Función para instalar componentes si no están instalados

instalar_si_faltan() {

    local comando_check=$1

    local comando_instalar=$2

    for comp in "${COMPONENTES[@]}"; do

        if ! eval "$comando_check $comp" &>/dev/null; then

            echo "Instalando $comp..."

            eval "$comando_instalar $comp"

        else

            echo "$comp ya está instalado. Omitiendo."

        fi

    done

}

# Instalar según distribución

case "$DISTRO" in

    ubuntu|debian|linuxmint)

        echo "Distribución Debian/Ubuntu/Mint detectada."

        apt update

        instalar_si_faltan "dpkg -s" "sudo apt install -y"

        ;;

    opensuse*|suse)

        echo "Distribución openSUSE detectada."

        instalar_si_faltan "rpm -q" "sudo zypper install -y"

        ;;

    fedora)

        echo "Distribución Fedora detectada."

        instalar_si_faltan "rpm -q" "sudo dnf install -y"

        ;;

    arch|manjaro)

        echo "Distribución Arch/Manjaro detectada."

        instalar_si_faltan "pacman -Q" "sudo pacman -S --noconfirm"

        ;;

    *)

        echo "Distribución $DISTRO no soportada automáticamente."

        echo "Por favor instala manualmente los siguientes componentes:"

        printf '%s\n' "${COMPONENTES[@]}"

        exit 1

        ;;

esac

echo "Todos los componentes de Gambas han sido verificados e instalados según necesidad."

]]> <![CDATA[Mostrar Tablas y sus registros]]> https://gambas-es.org/thread-1894.html Sun, 16 Mar 2025 12:01:31 +0000 Shell]]> https://gambas-es.org/thread-1894.html
Quizás deba mejor mostrar esto en el foro de bases de datos. Huh

He creado un ejemplo para mostrar las tablas de una base de datos y sus registros.
Se puede seleccionar el archivo en concreto y ver en un GridView como es la tabla en cuestión.

He probado con distintos archivos de distintos tamaños.

¿ Qué hacéis cuando la base de datos es enorme ?.

En este ejemplo observo dos cosas. Imaginar una base de datos que contiene muchos registros.
A la hora de seleccionar en el combobox la tabla en concreto,si esta tiene muchos registros hay una demora,
en mostrar el nombre de la tabla tanto en el combobox como en el gridview.

El efecto es, ves la lista de tablas en el combobox, seleccionas y hasta que no se muestra la tabla en el gridview
no se muestra el nuevo cambio de item en el combobox.

He probado con un base de 40K registros y se nota. Siempre se nota esto si la base contiene muchos registros.
He probado con la base de los libros que se ha compartido por febrero. Esta tiene tres tablas, hay una que
se llama "fondo" que en este ejemplo le cuesta muuuuucho mostrar, se muestra el reloj varias veces y desistí.

¿ Cómo solucionáis esas situaciones ?

Estamos hablando de que la tabla fondos de la base libro tiene alrededor de 300K registros... Rolleyes

Ah, no he añadido ordenar las columnas. Estoy usando el evento Data para mostrar los registros en el gridview.
Sobre todo si son muchos.

Para el retardo del cambio de item a mostrar en el combobox he usado esto:

Código:
Public Sub cmbTablas_Click()

  Wait 0.1

  MostrarTablaEnGridView(cmbTablas.Current.Text)

End

Eso parece funcionar, otra es muy distinta el tiempo que se tarde en mostrar los registros en el GridView

Saludos

1:50'' para mostrar la tabla Fondos.

EjemploBrowserBaseSqlite-0.0.1.tar.gz (Tamaño: 10.56 KB Descargas: 2)

]]>
Quizás deba mejor mostrar esto en el foro de bases de datos. Huh

He creado un ejemplo para mostrar las tablas de una base de datos y sus registros.
Se puede seleccionar el archivo en concreto y ver en un GridView como es la tabla en cuestión.

Ah, no he añadido ordenar las columnas. Estoy usando el evento Data para mostrar los registros en el gridview.
Sobre todo si son muchos.

Para el retardo del cambio de item a mostrar en el combobox he usado esto:

Código:
Public Sub cmbTablas_Click()

  Wait 0.1

  MostrarTablaEnGridView(cmbTablas.Current.Text)

End

Eso parece funcionar, otra es muy distinta el tiempo que se tarde en mostrar los registros en el GridView

Saludos

1:50'' para mostrar la tabla Fondos.

EjemploBrowserBaseSqlite-0.0.1.tar.gz (Tamaño: 10.56 KB Descargas: 2)

]]> <![CDATA[Un editor de Risa para editar RichText]]> https://gambas-es.org/thread-1880.html Mon, 03 Mar 2025 17:16:25 +0000 Shordi]]> https://gambas-es.org/thread-1880.html Lo he llamado Risa (Richtext Intuitivo Sencillo y Asequible)

Este es el enlace donde lo presento. En la descripción del vídeo tenéis el enlace al código.

]]> Lo he llamado Risa (Richtext Intuitivo Sencillo y Asequible)

Este es el enlace donde lo presento. En la descripción del vídeo tenéis el enlace al código.

]]> <![CDATA[Gambas + ERP = GamERP.]]> https://gambas-es.org/thread-1856.html Mon, 10 Feb 2025 19:47:50 +0000 tincho]]> https://gambas-es.org/thread-1856.html
Nuevamente voy a intentar hacer algo con gambas webforms, también con sockets, para evitar los bloqueos de la base de datos, pero también para separar los proyectos y poder colaborar con mas programadores.
Comunicar dos o mas programas cliente con uno servidor que sera el que gestione la lógica con la base de datos.
Los clientes pueden ser GUI, Web, terminal?.
Ya tengo una base de datos mas o menos decente y funcionando en SQLite.
Si alguien esta interesado en participar de un proyecto, que estará desde el comienzo dividido en partes, es bienvenido.
Me gustaría poder disponer de un ERP hecho en gambas y un cliente web también hecho en Gambas, en su momento Jesús se mostró interesado en hacer el cliente con Flutter, pero yo no seguí con el tema por falta de tiempo y tengo el curso de Flutter a medias.
Hara falta:

Hacer un ejemplo funcional de comunicaciones con socket que se pueda pasar luego al "GAMERP" y ya esta me salio un nombre sobre la marcha.
Crear una formulario web (en gambas o en otra tecnología) para Login, Registrarse, enviar datos de contacto, etc.
Mas cosas seguramente.

Saludos.]]>
Nuevamente voy a intentar hacer algo con gambas webforms, también con sockets, para evitar los bloqueos de la base de datos, pero también para separar los proyectos y poder colaborar con mas programadores.
Comunicar dos o mas programas cliente con uno servidor que sera el que gestione la lógica con la base de datos.
Los clientes pueden ser GUI, Web, terminal?.
Ya tengo una base de datos mas o menos decente y funcionando en SQLite.
Si alguien esta interesado en participar de un proyecto, que estará desde el comienzo dividido en partes, es bienvenido.
Me gustaría poder disponer de un ERP hecho en gambas y un cliente web también hecho en Gambas, en su momento Jesús se mostró interesado en hacer el cliente con Flutter, pero yo no seguí con el tema por falta de tiempo y tengo el curso de Flutter a medias.
Hara falta:

Hacer un ejemplo funcional de comunicaciones con socket que se pueda pasar luego al "GAMERP" y ya esta me salio un nombre sobre la marcha.
Crear una formulario web (en gambas o en otra tecnología) para Login, Registrarse, enviar datos de contacto, etc.
Mas cosas seguramente.

Saludos.]]>