Comunidad Gambas-es

Enlaces del antiguo foro que comienzan con la url del nuevo

Shell 23-02-2024, 01:40

Buenas!.

Lo único que cambia es que el antiguo es:

https://foro.gambas-es.org y el nuevo es como se llamaba anteriormente. www.gambas-es.org.

Supongamos que encuentro un enlace antiguo y espera encontrar www.gambas-es.org/viewtopic.php?
lo que sea. Pero pertenece en la actualidad ese mensaje antiguo pertenece a https://foro.gambas-es.org/viewtopic.php?

Y da error 404. ¿ No sería posible que si no no se encuentra en un foro buscarse en el otro ?. Llevando al usuario allí.
En los dos no va a estar, supongo.

Es como si antes de que el usuario reciba la página de 404, el servidor intente comprobar si existe en el anterior,
que no existe, entonces dar error 404.

Saludos

Sobre gambas-es.org Respuestas 1

Mejoras para usar Gambas en Windows11 con WSL2

tercoide 22-02-2024, 02:05

WSL ha mejorado, la version que se instala por defecto es la 2 la cual trae Ubuntu 22.04.3 LTS, ademas, esta totalmente integrada al escritorio. Miren como se crean automaticamente entradas en el menu inicial para Gambas3 o para una Terminal de Ubuntu:

[Imagen: dlNrGoE.png]

Probablemente el hecho de que mi nueva laptop es muy poderosa ayude, pero corre muy rapido. Incluso para programas pesados como GambasCAD abriendo planos con muchos graficos dentro. He aqui otro pantallazo:
[Imagen: O2P3yy1.png]

Instalación Respuestas 1

Mostrar información sobre un paquete Debian

Shell 20-02-2024, 00:46

Buenas!.

Necesita mejoras. Lógicamente que el nombre del paquete se pueda variar, un formulario personalizado, o hacerlo desde línea de comando.
En este caso solicito información sobre el paquete "Oregano", en el mismo código.

[Imagen: QZTtrTP.png]

Creamos una aplicación QT y pegamos el código, los objetos se crean directamente desde el código.

Código:
' Gambas class file

Private acontArchivo1 As String[]

Private contenedorprincipal As Panel

Private esdescripcion As Boolean

Public Sub Form_Open()

  Dim contenido As String

  Dim linea As String

  Dim frase1 As String

  Dim frase2 As String

  Dim posicion As Integer

  'Solicitamos información sobre el paquete oregano.

  Shell "apt show oregano" To contenido

  acontArchivo1 = Split(contenido, gb.NewLine, "", True)

  esdescripcion = False

  With Me

    .Arrangement = Arrange.Horizontal

    .Spacing = True

    .H = 0

  End With

  contenedorprincipal = New Panel(Me)

  With contenedorprincipal

    .Arrangement = Arrange.Vertical

    .Expand = True

    .Margin = True

  End With

  For Each linea In acontArchivo1

    posicion = InStr(linea, ":")

    If posicion > 0 And Not esdescripcion Then

      frase1 = String.Mid(linea, 1, posicion - 1)

      frase2 = String.Mid(linea, posicion + 1)

      If frase1 <> "Description" Then

        ConstruirBloque(frase1, frase2)

      Else

        esdescripcion = True

        frase2 = ""

      Endif

    Else

      If esdescripcion Then frase2 &= linea & gb.NewLine

    Endif

  Next

  If esdescripcion Then ConstruirBloque(frase1, frase2)

  esdescripcion = False

End

Public Sub ConstruirBloque(encabezado As String, contenido As String)

  'TODO: En caso de ser dependencias puede que se deba crear un TextArea para que se muestre mejor la información para estas

  Dim contenedor As Panel

  Dim etiqueta As Label

  Dim cajadetexto As TextBox

  Dim cajatextarea As TextArea

  contenedor = New Panel(contenedorprincipal)

  With contenedor

    .Arrangement = Arrange.Horizontal

    .Spacing = True

    .H = 25

    Me.H += .H

  End With

  If Not esdescripcion Then

    etiqueta = New Label(contenedor)

    With etiqueta

      .W = 180

      .H = 20

      .Alignment = Align.Right

      .Font = Font["MonoSpace,Bold"]

      .Text = encabezado

    End With

    cajadetexto = New TextBox(contenedor)

    With cajadetexto

      .H = 20

      .Text = contenido

      .Expand = True

    End With

  Else

    etiqueta = New Label(contenedor)

    With etiqueta

      .W = 140

      .H = 20

      .Alignment = Align.Left

      .Font = Font["MonoSpace,Bold"]

      .Text = encabezado

    End With

    cajatextarea = New TextArea(contenedorprincipal)

    With cajatextarea

      .H = 100

      .Text = contenido

      .ScrollBar = Scroll.Vertical

      .Expand = True

      .Pos = 0

      Me.H += .H

    End With

  Endif

End