Comunidad Gambas-es - Programación en otros lenguajes

Ordenando las carpetas

Wed, 22 Oct 2025 13:57:17 +0000

Estoy en la movida de tarducir GambasCAD y estru3D de Gb a C# a efectos de hacerlos multiplataforma. La carga de trabajo grande la hace un programin que hice traductor (aunque hay sitios que tambien pueden traducir codigo) y el resto lo esta haciendo la IA de Copilot (me suscribi por usd10/mes , el costo de 2 vinos que he dejado de tomar). Casi no escribo codigo, todo es Vibe Coding (googlear!).

Pero quiero ordenar bien las carpetas para que no me ocurran lo que me esta pasando que es tener el codigo desordenado como dormitorio de adolescente. Escucho sugerencias:

/Core: aqui van las clases y modulos que no son la User Interface, ni operaciones que dependan de la plataforma (Win, Linux, OSX)
/UI: la main form y demas formularios que hacen a la interzas con el usuario
/Cross: modulos de comunicacion con el entorno
/Data: imagenes, librerias de datos

De momento uso el toolkit GTK4.

¿ Qué os parece desarrollar para Android ?

Fri, 23 May 2025 09:36:26 +0000

Buenas!.

¿ Qué os parece desarrollar aplicaciones para móviles ?.
Pequeños juegos por ejemplo.

¿ Alguien se ha dedicado o lo ha conocido ?.

¿ Qué opinión os merece Play Store ?.
( Gratis no va a ser..)

Saludos

Traductor de Gambas a Vala

Wed, 05 Jul 2023 20:10:26 +0000

Comencé un traductor, en realidad solo la UI que no tiene gran complejidad. Aquí esta:

https://github.com/tercoide/valaconverter

Quisiera saber si hay algún interesado en colaborar con este proyecto. Aclaro que aun no he estudiado Vala y lo iré haciendo a medida que codifique el traductor. Ese lenguaje es parecido a C#. Hay cosas que deberá traducirse a mano, como ser la interacción con los componentes.

Vala !

Thu, 29 Jun 2023 12:03:00 +0000

Siguiendo con mi búsqueda de un lenguaje que cumpla las siguientes consignas:

-OpenSource
-GPL3
-Orientado a objetos
-Compilado a código rápido
-Multiplataforma
-Con una IDE decente para programar
-Parecido a Gambas
-Con una comunidad activa

y habiendo descartado a al resto, di con Vala que cumple con todas esas características. Tal vez la única (gran) contra es que esta atado a Glib, la librería base de Gnome.

Armar el sistema de trabajo para empezar a escribir código es la parte que Gb nos resuelve de entrada con la IDE y es lo que frena a muchos puesto que se requiere un gran conocimiento de cosas que no manejamos habitualmente, pero Gnome nos soluciono la existencia con Builder, que usando en conjunto a Glade y Meson , nos arma un entorno de desarrollo en un par de clicks.

Dejo un link para los interesados:

https://wiki.gnome.org/Apps/Builder/Downloads

y un ejemplo de uso:

Como se hace en gambas para ...

Thu, 15 Jun 2023 09:32:49 +0000

Hola amigos.
Estoy repasando el lenguaje Gambas para compararlo con otros lenguajes y hay cosas que no recuerdo o no se, así que iré preguntando por aquí lo que vaya surgiendo

Como saben "Print" imprime escribe en la terminal una cadena de texto mas un salto de linea pero...
[Pendiente] ¿Como se hace para imprimir por la consola pero sin el salto de línea?
[Pendiente] ¿Como se hace para imprimir por la consola pero sustituyendo el texto anterior?

[Pendiente] ¿Cual es la forma optima de ingresar una orden por terminal a un programa?
Estoy usando esto:

Código:
Public Function Command() As String

  Dim str As String

  Line Input #File.In, str

  Return str

End

Faltaria Go

Thu, 15 Jun 2023 09:22:09 +0000

Jesús por favor cuando puedas podrías agregar Go a la lista de otros lenguajes de programación.
Gracias.

Secuencias de escape ANSI

Sun, 09 Apr 2023 08:42:15 +0000

Buenas!.

En un libro de Java el primer ejemplo fue como mostrar por la consola un texto en color.
Para ello usa secuencias de escape ANSI ( a ver si lo dije bien ).

En el primer ejemplo "sencillo" en Java

Código:
public class ColoreadoDeTexto {

    public static void main(String[] args) {

        System.out.println("\033[33m mandarina");

        System.out.println("\033[32m hierba");

        System.out.println("\033[31m tomate");

        System.out.println("\033[37m sábanas");

        System.out.println("\033[36m cielo");

        System.out.println("\033[35m nazareno");

        System.out.println("\033[34m mar");

    }

}

Lo primero que usa es el código \033 que es "Esc", lo gracioso de este, que ahora me he dado cuenta es que está en "octal"
cuando pensaba que estaba en hexadecimal.

Así que me animé a hacer otro ejemplo en Gambas. Lo cierto es que se pueden hacer muchas combinaciones.
En el caso de Gambas he usado hexadecimal.

Código:
Public Sub Main()

  'Comenzamos con el código de escape ANSI \x1b

  'Podemos añadir

  '[1; para activar negrita

  '[0; para no activar negrita]

  '3 para poner color del texto

  '4 para poner color del fondo

  '5 para que parpadeé  

  '\x1b[0m Para volver al estado inicial

  '¿ Intensidad del color ? ¿ normal, claro ?

  '\x1b[b;fg;bg m]

  'Añado al final \x1b[0m para que el texto siguiente al mostrarlo no se muestre del mismo color

  Print "\x1b[0;32m Texto en verde suave\x1b[0m"

  Print "\x1b[1;42m Fondo de texto en verde sin brillo y negrita\x1b[0m"

  Print "\x1b[5;34m Texto en azúl parpadeante\x1b[0m"

  Print "\x1b[1;3m Texto"

  'Para volver al estado inicial

  Print "\x1b[0m"

  Print "Letra sin colores de texto y sin fondo"

  Print "El valor hexa h1B corresponde con el valor decimal: " & Int(&h1b)

  Print "El valor octal 033 corresponde con el valor decimal: " & Int(&o33)

End

Se pueden lograr más efectos lógicamente.
Lo de presentar el valor h1B en decimal fue para comprobar a que valor se correspondía en decimal.

Ojo:
Si convertimos 033 que es un valor octal a decimal, no es un cero es una "o"

Tipo entero en Gambas

Códigos de escape en ANSI

En ese último enlace encontrareis el tema de los colores en: Colors / Graphics Mode
Y naturalmente todo lo referente a secuencias de escape ANSI.

Es una sentencia algo compleja que los programadores de "C" estarán muy acostumbrados a ver.

Añado otro enlace:

Código escape ANSI

Saludos

Ey, Java!. :-D

Mon, 03 Apr 2023 12:38:35 +0000

Buenas!.

Está claro que al administrador no le gusta Java. No hay subforo.

Es que tenía una pregunta. Espero que sencilla. A ver si encuentro usuarios de gambas
que usen o les guste "un poco" Java.

Mi intención "siempre" a la hora de aprender un lenguaje es la de llevar a Gambas una idea,
mejorar la programación. Y sobre todo mejorar el aprendizaje de la programación orientada a
objetos.

"A modo sencillo". Si comparásemos un proyecto "básico" de Java con uno de Gambas.
¿ Cuál pensáis que son las diferencias "principales" ?.

Ayer estuve creando otro ejemplo en Java y creando uno similar en Gambas.

Imaginar un proyecto de consola para Gambas.
- Tenemos un Main como la rutina principal

En Java también tenemos un main, solo que este main es "estático".
Si recordamos bien, es un método común a todas las instancias que se cree de esta clase.

Voy a poner el ejemplo que hice ayer hecho en Java. Se trata de "ir" insertando valores en un array,
hasta que este está lleno de valores distintos a cero. Este array está desordenado.

Parece que en Java todo son clases.

Código:
package capitulo5tablas;

import java.util.Arrays;

public class InsertarEnTabla {

    static int numElem;

    static int[] t = new int[5];

    public static void main(String[] args) {

        InsercionNoOrdenada(12);

        InsercionNoOrdenada(7);

        InsercionNoOrdenada(45);

        InsercionNoOrdenada(80);

        InsercionNoOrdenada(4);

        InsercionNoOrdenada(129); // No se puede realizar por tabla llena

        InsertarEnTabla.InsercionNoOrdenada(56);

    }

    public static void InsercionNoOrdenada(int valor) {

        // El orden no importa.

        // Se inserta detrás del último elemento de la tabla

        // mientras exista un hueco libre

        if (numElem == t.length) {

            System.out.println("La tabla está llena");

        } else {

            t[numElem] = valor;

            System.out.println(Arrays.toString(t));

            numElem++;

        }

    }

}

Fijaros, que tanto el main, como el método, como las variables publicas son "estáticas".
Aparentemente todo lo que se llama desde el main, tiene que ser estático. Y logicamente
las variables deben cumplir esa condición.

En este ejemplo no se está creando instancias de una clase.
Se podría haber hecho, pero en este ejemplo seria una "mala practica" hacer eso.

En Gambas creé una clase de este ejemplo, pero no tiene mucho sentido, ya que la clase no es instanciable,
no tiene constructor, se puede llevar parte del código a un módulo o a donde se encuentra el Main.

Os muestro el código en Gambas. Hace lo mismo, pero no hay métodos "estáticos",
ni variables de la misma condición.

Código:
Private numElem As Integer

Private tarray As New Integer[5]

Public Sub Main()

  InserccionNoOrdenada(12)

  InserccionNoOrdenada(7)

  InserccionNoOrdenada(45)

  InserccionNoOrdenada(80)

  InserccionNoOrdenada(4)

  InserccionNoOrdenada(129) 'No se puede realizar por array lleno

End

Public Sub InserccionNoOrdenada(valor As Integer)

  If numElem = tarray.Count Then

    Print "El array está lleno"

  Else         

    tarray[numElem] = valor    

    ACadena()   

    Inc numElem

  Endif

End

Public Sub ACadena()

  Print "[ ";

  For a As Integer = 0 To tarray.Max

    Print tarray[a];

    If a < tarray.Max Then Print " , ";

  Next

  Print " ]"

End

La salida de ambos ejemplo podrían ser como esta:

Cita:[ 12 , 0 , 0 , 0 , 0 ]
[ 12 , 7 , 0 , 0 , 0 ]
[ 12 , 7 , 45 , 0 , 0 ]
[ 12 , 7 , 45 , 80 , 0 ]
[ 12 , 7 , 45 , 80 , 4 ]
El array está lleno

No digo que sea ni peor ni mejor. Debe ser cuestión de constumbres, que no me acostumbro a que el main de Java sea estático.
Lógicamente desde este se pueden crear instancias de una clase, como podíamos hacer también en Gambas desde su Main.
Eso de estático me choca un poco, cuando el ejemplo es "sencillo", no manejo clases. En Java si, es la clase InsertarTabla.

A ver que me podéis comentar los que habéis conocido un poco Java.

Saludos

Curso de Lazarus desde cero

Wed, 29 Jun 2022 12:02:31 +0000

Buenas!.

Os presento el vídeo de introducción del curso para aprender a programar con Lazarus.
Lógicamente está hecho para personas que no saben programar, aunque eso no quiere
decir que no pueda hacerlo alguien que ya sabe programar.

Saludos

Macro de dibujo de viñetas en plantilla de guion de cómic LibreOffice

Sun, 31 Oct 2021 11:39:10 +0000

A raíz de hacer una plantilla para redactar guiones de historietas que se adaptase a mi forma de trabajar, pensé que debía añadirle una herramienta que permitiese hacer un diagrama de viñetas sin necesidad de gastar la, más o menos, hora por cada 15-18 páginas.
La cuestión planteada en https://gambas-es.org/showthread.php?tid=645 venía al caso para poder hacer un diagrama de viñetas que ayudase al dibujante «víctima» del guionista de turno. Esto es, el «escribidor» realiza un guion con la plantilla y ésta, de manera automática, fabrica un esquema de viñetas. Para tal propósito son necesaria dos cosas:

Que las páginas y las viñetas estén formateadas con los párrafos correspondientes.
Que el texto de las viñetas indique el tamaño y posición según el método sugerido por Peio Soria.

Este método es muy simple. Como explico en https://www.faneo.es/forum/forum/guion-y...1068#11068, En su manual «Mi guion de cómic», que está para bajar libremente en pdf desde su página, Peio Soria describe el que, para mí, es el método más lógico y sencillo. Se trata de emplear unas fracciones en vertical y en horizontal, de la manera 2/3Vx2/4H, por ejemplo. ¿Cómo se interpretaría? Fácil, 2/3V significa que se toma el segundo de los tres tercios posibles de la división vertical de la página, esto es, columnas. Además se toma el segundo de las cuatro posibles partes de división horizontal, filas, de la página. Superponiendo ambos, resulta la viñeta que queremos indicar.

Para abarcar varias partes en el caso de alguna viñeta más irregular o una que ocupe toda unidad, se pueden emplear nomenclaturas especiales.
Véase un ejemplo de cómo queda escrito:

De esta manera, al ejecutar la macro, se obtiene:

Documento que ya se puede enviar para que el dibujante pueda interpretar más fácilmente lo que dice el guionista y, después,... hacer lo que le venga en gana .
Además, la macro permite:

Solapamiento de viñetas —como en la página 37 del ejemplo—.
Cambio INMEDIATO de formato de página —apaisado, vertical, A5, B5, cuadrado, fanzine...— con sólo introducir un número.
Detecta errores en la nomenclatura e indica el lugar en el que se produce.
Se le ha añadido un apéndice de estadísticas que permite ver, aparte de las palabras y caracteres que ya indica el programa con «contar palabras», el número de páginas del cómic, el número bruto de viñetas y el número de bocadillos.

A esta macro, después de pelearme mucho, muchísimo, más todavía, con los mal documentados y dispersas especificaciones del UNO de Star BASIC —al menos así le pareció a éste, su humilde servidor—, logré terminarla en una versión más o menos útil:

Código:
REM  *****  BASIC  *****

' DIBUJAR ESQUEMAS PARA GUION DE HISTORIETAS Y ESTADÍSITCAS.

'    SOFTWARE LIBRE

'    --------------

'    

'    Grandamakulo, 2021

'    grandamakulo@gmail.com

'    

'    * Puedes:

'    Distribuirlo

'    Modificarlo

'    Regalarlo

'    Si te place, acredítame

'    

'    * No puedes:

'    Cobrar por él o por sus variaciones directas

'    Si quieres hacerlo, ponte en contacto conmigo

'    —Hay muchas fundaciones a las que ayudar—

'    

'    * Garantías:

'    Estás de guasa, ¿no?

'    Si se te funde la lavadora o se te hace un 

'    desconchón en la pared, soluciónalo tú.

'    

'    ESTE PROGRAMA CONSIDERA LAS TRES --O CUATRO--

'    LEYES DE LA ROBÓTICA. Más o menos.

Option Explicit

Const Si As Boolean = True

Const No As Boolean = False

Const sC As String = """"

Const sA As String = "'" 

Sub DibujaEsquema()

    ' A partir de los datos del formato de página que introduce el usuario,

    ' del número de páginas y de la información que el usuario ha establecido

    ' en el tipo de párrafo viñeta, se dibuja en SVG —y se guarda en el mismo

    ' directorio que el Documento— un ESQUEMA DE VIÑETAS.

    Dim oDoc As Object            'Documento actual

    Dim oEnu As Object            'Partes del documento actual

    Dim oTex As Object            'Un elemento texto de oEnu

    Dim iPag As Integer            'Número de página

    Dim iVin As Integer            'Número de viñeta en cada página

    Dim oSitio As Object

    Dim _iRel As Double            'Relación entre alto y ancho

    Dim _iAnM As Double            'Ancho de marco = 210,0224103814 mm eq A4

    Dim _iAlM As Double            'Alto del marco = _iAnt * _iRel

    Dim _iCaM As Double            'Ancho de calle marco  = 5 mm

    Dim _iCaP As Double            'Ancho de calle página = 5 mm

    Dim _iCaV As Double            'Ancho de calle viñeta = 2 mm

    Dim _iAnP As Double            'Ancho de página

    Dim _iAlP As Double            'Alto de página

    Dim _sCoM As String            'Color marco

    Dim _sCoP As String            'Color página

    Dim _sCoB As String            'Color borde viñeta

    Dim _sCoV As String            'Color viñeta

    Dim _iAnB As Double            'Ancho borde viñeta

    Dim _sFuP As String            'Fuente página

    Dim _iFTP As Integer        'Tamaño fuente página

    Dim _sFuV As String            'Fuente viñeta

    Dim _iFTV As Integer        'Tamaño fuente viñeta

    Dim iXM  As Double            'Coordenada X origen del marco actual

    Dim iYM  As Double            'Coordenada Y origen del marco actual

    Dim iXP  As Double            'Coordenada X origen de la página actual

    Dim iYP  As Double            'Coordenada Y origen de la página actual

    Dim iXV  As Double            'Coordenada X origen de la viñeta actual

    Dim iYV  As Double            'Coordenada Y origen de la viñeta actual

    Dim iAnV As Double            'Ancho de la viñeta actual

    Dim iAlV As Double            'Alto de la viñeta actual

    Dim iKK  As Byte

    Dim iFil As Byte

    Dim iCol As Byte

    Dim iVis As Variant

    Dim Paso As String            'Variable comodín

    Dim tSVG As String            'Cadena SVG resultado

    On ERROR GOTO Errr

    'Tamaño y orientación de la página

    Paso="A4 vertical: " & sqr(2) & Chr(13)

    Paso=Paso & "A4 Horizontal: " & 1/sqr(2) & Chr(13)

    Paso=Paso & "Cuadrado:      " & 1 & Chr(13)

    Paso=Paso & "O un número cualquiera como proporción entre alto y ancho."

    _iRel=InputBox(Paso, "Formato", sqr(2))

    if _iRel<=0 then end

    Paso=""

    'Iniciar variables de color, forma y fuentes

    _sCoM="#000080"'"#000000FF"

    _sCoP="#FFFFFF"

    _sCoB="#008080"

    _sCoV="#00FFFF80"

    _iAnB=2

    _sFuP="Liberation Mono"

    _sFuV="Liberation Mono"

    _iFTV=16

    _iFTP=72

    _iAnM= 210.0224103814*3.779527559055

    _iAlM=_iAnM*_iRel

    _iCaM=5

    _iCaP=5

    _iCaV=1

    _iAnP=(_iAnM-3*_iCaP)/4

    _iAlP=(_iAlM-5*_iCap)/4

    tSVG="
    tSVG=tSVG & " xmlns:xlink=" & sC & "http://www.w3.org/1999/xlink" & sC & ">"

    'Primer marco

    iXM=0

    iYM=0

    tSVG=tSVG & RectSVG(iXM, iYM, _iAnM, _iAlM, _sCoM) & Chr(13)

    oDoc=ThisComponent

    oEnu=oDoc.Text.createEnumeration

    While oEnu.hasMoreElements

        oTex=oEnu.nextElement

        If oTex.supportsService("com.sun.star.text.Paragraph") Then

            If oTex.ParaStyleName=("CC_Página") Then

                iPag=iPag+1

                iVin=0

                '¿Marco nuevo? A dibujarlo

                iKK=iPag MOD &H10

                If iKK=0 Then

                    iYM=0

                    iXM=(iPag \ &H10)*(_iAnM+_iCaM)

                    tSVG=tSVG & RectSVG(iXM, iYM, _iAnM, _iAlM, _sCoM) & Chr(13)

                End If

                'Dibuja la página

                Paso = iPag

                iCol=iKK MOD 4

                iFil=iKK \ 4

                iYP=iYM+_iCaP+(_iCaP+_iAlP)*iFil

                iXP=iXM+_iCaP+_iAnP*iCol+((iCol+1) MOD 2)*_iCap

                tSVG=tSVG & RectSVG(iXP, iYP, _iAnP, _iAlP, _sCoP,"1","#000000",_sFuP, _iFTP, "gray",Paso) & Chr(13)

            End If

            If oTex.ParaStyleName=("CC_Viñeta") Then

                iVin=iVin+1

                'Dibuja la viñeta

                'Interpreta posición y tamaño

                iVis=SoriaVin(oTex.String, Str(iPag & "." & iVin))

                iYV=iVis(0,0)*_iAlP+iYP

                iXV=iVis(1,0)*_iAnP+iXP

                iAnV=iVis(1,1)*_iAnP

                iAlV=iVis(0,1)*_iAlP

                Paso=iPag & "." & iVin

                tSVG=tSVG & RectSVG(iXV, iYV, iAnV, iAlV, _sCoV, "1", _sCoB, _sFuV, _iFTV,"gray",Paso) & Chr(13)

            End If

        End If

    Wend

    tSVG=tSVG & ""

    GlobalScope.BasicLibraries.loadLibrary("Tools")

    GuardaArchivo(tSVG, Tools.Strings.DirectoryNameoutofPath(oDoc.URL, "/") & "/EsquemaVinetas.svg")

    'Print tSVG

    MsgBox("¡Terminado!")

    Exit Sub

Errr:

    Reset

    MsgBox("Numeración incorrecta en la viñeta: " & iPag & "." & iVin & Chr(13) & oTex.String)

End Sub

Sub CuentaVinetas()

    'Cuenta páginas, bocadillos y viñetas por tipo de párrafo y lo muestra en un mensaje 

    Dim oDoc As Object

    Dim oEnu As Object

    Dim oTex As Object

    Dim iPag As Integer

    Dim iVin As Integer

    Dim iBoc As Integer

    Dim Paso As String

    oDoc=ThisComponent

    oEnu=oDoc.Text.createEnumeration

    While oEnu.hasMoreElements

        oTex=oEnu.nextElement

        If oTex.supportsService("com.sun.star.text.Paragraph") Then

            If oTex.ParaStyleName=("CC_Viñeta")    Then iVin = iVin+1

            If oTex.ParaStyleName=("CC_Página")    Then iPag = iPag+1

            If oTex.ParaStyleName=("CC_Bocadillo") Then iBoc = iBoc+1

        End If

    Wend

     Paso = "Páginas:    " & iPag & Chr(13)

     Paso = Paso & "Viñetas:    " & iVin & Chr(13)

     Paso = Paso & "Bocadillos: " & iBoc

    MSGBOX (Paso, 64, "Estadísitcas")

End Sub

Private Function RectSVG (iX As Double, iY As Double, iAnc As Double, iAlt As Double, sFondo As String, Optional iBorde As Double, Optional sBorde As String, Optional sFuente As String, Optional iTam As Integer, Optional sColor As String, Optional tTexto As String) As String

    'Genera un texto SVG con un rectángulo y un texto dentro.

    Dim Paso as String

    'Posición

    Paso=Paso & "
    'Borde, si se le añade

    If Not IsMissing(sBorde) Then

        Paso=Paso & ";stroke:" & sBorde & ";stroke-width:" & iBorde & "px"

    End If

    Paso=Paso & sC & "/>" & Chr(13)

    If Not IsMissing(tTexto) Then

        'Texto, si se le añade

        'Fuente

        Paso=Paso & "
        'Texto

        Paso=Paso & ">" & tTexto & ""

    End If

    RectSVG=Paso

End Function

Private Sub GuardaArchivo(tTexto as String, sRuta as String)

    Dim iLibre as Integer

    sRuta = ConvertToUrl(sRuta)

    iLibre = FreeFile

    Open sRuta For Output As #iLibre

    Print #iLibre,tTexto

    Close #iLibre

End Sub

Private Function SoriaVin(sTex As String, Donde As String) As Variant

    Dim sGGG As String        'Texto Soria en mayuúsculas y sin espacios

    Dim sMMM() As String    'Matriz para tratar el texto

    Dim sTTT() As String    'Submatriz

    Dim iPX (0 To 1, 0 To 1) As Double '0 Hor ;1 Ver | 0 Origen; 1 Ancho

    Dim iPA (0 To 1, 0 To 2) As Double '0 Hor ;1 Ver | 0 Desde; 1 Hasta ; 2 De

    Dim i   As Byte            'Contador

    Dim k     As Byte            'Contador

    sGGG = Ucase(Trim(sTex))

    if Not IsNumeric(Left(sGGG,1)) Then

    'Si no comienza por número, viñeta a toda página

        sGGG="1/1VX1/1H"

    End If

    sMMM=Split(sGGG," ")

    sGGG=sMMM(0)

    sMMM=Split(sGGG,"X")

    If Ubound(sMMM)=0 Then

        Redim Preserve sMMM(0 To 1)

        if Instr(sMMM(0),"V") Then sMMM(1)="1/1H" Else sMMM(1)="1/1V"

    End If

    For i=0 To 1

        sGGG=sMMM(i)

        If InStr(sGGG,"H") Then k=0 Else k=1

        sGGG=Left(sGGG,Len(sGGG)-1)

        sTTT=Split(sGGG, "/")

        iPA(k,2)=sTTT(Ubound(sTTT))

        sTTT=Split(sTTT(0),"-")

        If Ubound(sTTT)=1 Then

                iPA(k,0)=sTTT(0)

                iPA(k,1)=sTTT(1)

            Else

                iPA(k,0)=sTTT(0)

                iPA(k,1)=sTTT(0)

        End If

        iPX(k,0)=(iPA(k,0)-1)/iPA(k,2)

        iPX(k,1)=(iPA(k,1)-iPA(k,0)+1)/iPA(k,2)

    Next i

    SoriaVin=iPX

End Function

Plantilla_KK_macro.ott.zip (Tamaño: 18.05 KB Descargas: 1)

La evolución de los Lenguajes de Programación

Mon, 25 Oct 2021 12:15:15 +0000

Existen varios vídeos muy interesantes sobre la evolución de Lenguajes de Programación a través de los años. He aquí uno de ellos:

https://www.youtube.com/watch?v=M0vBoBqqjr0

Tutoriales "Programación Ya"

Sun, 24 Oct 2021 09:14:28 +0000

Buenos días!.

Creo que esta página merece bastante la pena de visitar y aprovechar los recursos que nos enseña.

Tutoriales Programación Ya

De casualidad estaba buscando una clase en Java de un tipo de datos estructurado, que no sé por que tiene tantos, cada uno
con unas propiedades. Supongo que habrán ido creándose según necesidades y se extendieron.

De tipos de listas hay unos cuantos. ArrayList y LinkedList, que por más que quiera en Gambas con sus
listas voy sobrado. Teniendo en cuenta que Java de los array que podemos conocer tiene varios tipos.

Primero encontré la web y luego mediante esta me llevó a los vídeo en Youtube que son más explicativos cuando solo te muestra
un código y una breve explicación. Incluso algunos , espero que la mayoría los crea de cero.

Estoy liado con un ejemplo de clases que implemento desde Java a Gambas y cuesta entender algunas cosas.
Intentaré mostraros en otro mensaje el motivo.

Saludos

Programando para todo el mundo, lenguaje?

Sun, 03 Oct 2021 14:05:44 +0000

Esto viene a colación de conclusiones que estoy sacando luego de un buen tiempo con Gambas (10 años?) y, si bien me ha dado muchísimas satisfacciones personales, a la hora de conectarse con el mundo, pues nos quedamos cortos...

Estoy comparando motores de juegos para un proyecto personal con mi hija: ella pondría el arte, desarrollo del juego y yo la programación. Llevo varias semanas investigando con las siguientes conclusiones.
Los top AAA:
Unity, comunidad de 400k usuarios, muy completo , se programa en C#
Unreal Engine, 200k usuarios, muy completo, usa C++

Los AA:
GameMaker , Godot, Defold y otros

pero casi todos los motores tienen su propio scripting o incluso puede hacerse un juego entero sin ningún código usando bloques y conexiones:

Bolt para Unity
Blueprints para Unreal
GML para GameMaker
GDScript para Godot
y asi...

Teniendo en cuenta que el juego debería ser corrido en diversas plataformas es obvio que Gambas no es una opción
, pero tampoco quiero aprender chino (menos a mi avanzada edad y con neuronas desgastadas) por lo que la estructura del código debería ser similar: objetos, controles, componentes

Ideas?

BASIC Libre Office: ¿Cómo recorrer los párrafos por tipo?

Tue, 28 Sep 2021 12:11:08 +0000

Hola a todos:
Creo que esta pregunta debería ir en «Programación en otros lenguajes», pero, como no he encontrado dónde, pues la dejo aquí, a merced de lo que diga el administrador.
La cuestión es que tengo que hacer una macro en LibreOffice BASIC que recorra los párrafos de determinados tipos —«Estilos» mejor que tipos— de todo un documento LO Writer y vea el contenido, el texto, de cada uno. Pero resulta que la cosa ha cambiado mucho desde la última vez que hice cosas de éstas tanto con el LOB como con el VBA y soy incapaz de manejarme en condiciones con el UNO. ¿Alguien podría echarme una mano?
Gracias.

Bueno, tras arduas horas persiguiendo StarBASIC y UNO, creo que lo he logrado. Los estilos CC_Página y CC_Viñeta se pueden cambiar, obviamente, por otros:

Código:
Sub DibujaEsquema

    Dim Doc As Object

    Dim Enu As Object

    Dim Tex As Object

    Dim Pag as Integer

    Dim Vin as Integer

    Dim Paso As String

    ' Aquí tamaño y orientación de la página. Dibuja los marcos

    Doc=ThisComponent

    Enu=Doc.Text.createEnumeration

    While Enu.hasMoreElements

        Tex=Enu.nextElement

        If Tex.supportsService("com.sun.star.text.Paragraph") Then

            If Tex.ParaStyleName=("CC_Página") Then

                Pag=Pag+1

                Vin=0

                'Dibuja la página: Aquí hará «cosas» con la página

                Paso=Paso & "Página: " & Pag & CHr(13)

            End If

            If Tex.ParaStyleName=("CC_Viñeta") Then

                Vin=Vin+1

                'Dibuja la viñeta: Aquí hará «cosas» con la viñeta

                Paso=Paso & "   Viñeta: " & Pag & "." & Vin & " " & Tex.String & Chr(13)

            End If

        End If

    Wend

    MSGBOX (Paso)

End Sub

¿ Qué es TensorFlow ?

Thu, 16 Sep 2021 11:16:51 +0000

Buenas!.

Aunque este año me regalaron un libro sobre Machine Learning para Python lo descambié por un curso práctico de Python.
No veía estudiando inteligencia artificial.

Saludos