• Puntos suspensivos en el ...
  Foro: General
  Último mensaje por: jguardon
  Hace 16 minutos
  » Respuestas: 4
  » Vistas: 27
• shodial, inacabado.
  Foro: Controles/Librerías/Componentes
  Último mensaje por: tincho
  Hace 47 minutos
  » Respuestas: 1
  » Vistas: 44
• Ayuda con carga de datos ...
  Foro: Bases de Datos
  Último mensaje por: tincho
  Hace 52 minutos
  » Respuestas: 3
  » Vistas: 14
• Shodial. Un Dial Configur...
  Foro: Videotutoriales
  Último mensaje por: tincho
  Hace 54 minutos
  » Respuestas: 1
  » Vistas: 23
• Eliminar espacios sobrant...
  Foro: Aplicaciones/Fragmentos de Código
  Último mensaje por: tincho
  Hace 2 horas
  » Respuestas: 1
  » Vistas: 15

• Mensajes del foro:6,643
• Temas del foro:1,241
• Miembros:191
• Último miembro:LAT0048

Buenas!.

Este proyecto es una adaptación del Cubo De Rubik  que si no me equivoco es de tercoIDE.
El otro día fui a usar el proyecto pero la Gambas 3.18.2 no me dejó en Linux Mint 20.2.

Se quejaba de que faltaban componentes, lógicamente  La Linux Mint 20.2 no usa Qt4, pero si Qt5.
He probado en una Linux Mint 19.3 que si tiene QT4, el proyecto no se ha quejado de componentes, pero si ha dado error al funcionar.
Los componentes que solicita el proyecto son:



Aparentemente el estado de los componentes son estables.
No creo que sea un problema sustituir:

- gb.qt4 -> gb.qt5
- gb.qt4.opengl -> gb.qt5.opengl

Como sabéis en la Gambas 3.18.2 disponemos ademas de:

- gb.gui.qt.opengl
- gb.gui.qt

Pero con esos si se quejaría el proyecto.  Es como si el intercambiador gb.gui.qt.opengl no haga por acceder a gb.qt5.opengl.

Detallo la salida por consola para mostrar los mensajes de error: ( El programa se detiene inesperadamente y se aborta ).
 

 
gb.jit: panic: unsupported opcode 0600
 
 
//////// modMotor3D
 
void jit_modmotor3d_9(uchar n);
static void jit_modmotor3d_9_(double p0,double p1,double p2,double p3,double p4,double p5);
void jit_modmotor3d_27(uchar n);
static void jit_modmotor3d_27_(double p0,double p1,double p2,double p3);
 
// Rotar3Df
 
void jit_modmotor3d_9(uchar n)
{
  VALUE *sp = *((VALUE **)0x55f1269479b0);
  jit_modmotor3d_9_(PARAM_f(0),PARAM_f(1),PARAM_f(2),PARAM_f(3),PARAM_f(4),PARAM_f(5));
}
 
static void jit_modmotor3d_9_(double p0,double p1,double p2,double p3,double p4,double p5)
{
  double l0 = 0;
  double l1 = 0;
  VALUE **psp = (VALUE **)0x55f1269479b0;
  VALUE *sp = SP;
  ushort *pc = (ushort *)0x55f12898e574;
  GB_VALUE_GOSUB *gp = 0;
  bool error = FALSE;
  VALUE *ssp = sp;
  TRY {
 
__L0:; // modMotor3D.Rotar3Df.0

Buenas!.



Ahora ya se muestra al menos un mensaje.

Se vuelve a repetir, ¿ qué ocurre realmente ?. Hace poco tuvimos un problema similar.
¿ Mantenimiento ?, ¿ cambio de alojamiento ?.

 Y lógicamente con el portal de Gambas, ocurre igual, solo que no muestra mensaje.

Saludos

Hola colisteros, no encuentro que hago mal en el siguiente caso. Tengo un formulario (con un editor) que puedo instanciar tantas veces como lo necesite, la cuestión es que cuando quiero guardar cambios en cualquiera de los formularios abiertos, no lo obtengo y solo guarda los cambios en el primero, no entiendo si mi error es de lógica o de código, el código que desarrollé  es el siguiente.

Gracias por cualquier comentario

Private formulariosAbiertos As New FormMAESTRO[]
Private activeForm As FormMAESTRO
 
' Evento GotFocus para cada formulario
Public Sub Form_GotFocus()
 
  activeForm = Me
 
End
 
Public Sub menuSAVE_Click()
 
  If activeForm = Null Then
    Return
  End If
 
  If activeForm.Dialog.Path = "" Then
    guardarComo(activeForm, True)
  Else
    File.Save(activeForm.Dialog.Path, activeForm.TextEditor.Text)
  End If
 
End Sub
 
Public Sub menuSAVE_AS_Click()
 
  guardarComo(True)
 
End
 
Public Sub guardarComo(formulario As FormMAESTRO, local As Boolean)
 
  formulario.Dialog.Title = "Guardar como..."
  formulario.Dialog.Filter = ["*.tex", "Archivos LaTeX", "*.adoc", "Archivos Asciidoc", "*.md", "Archivos Markdown"]
 
  If formulario.Dialog.SaveFile() Then
    ' Proceso cancelado por el usuario
    Return
  Else
    If formulario.Dialog.Path = "" Then
      Message.Info("El archivo no tiene un nombre válido.")
      Return
    End If
 
    If local Then
      File.Save(formulario.Dialog.Path, formulario.TextEditor.Text)
      ' Actualizar el título del formulario con la nueva ubicación
      formulario.Title = formulario.Dialog.Path
    Else
      ' Otras acciones a resolver
    Endif
  Endif
 
End

Public Sub menuABRIRarch_Click()
 
  Abrir(True)
 
End
 
Public Sub Abrir(local As Boolean)
 
  Dim cadena As String
 
  Dialog.Title = "Escoger archivo"
  Dialog.Filter = ["*.tex", "Archivos LaTeX", "*.adoc", "Archivos Asciidoc", "*.md", "Archivos Markdown"]
 
  If Dialog.OpenFile() Then
    ' Proceso cancelado por el usuario
    Return
  Else
    If Dialog.Path = "" Then
      Message.Info("El archivo no tiene un nombre válido.")
      Return
    End If
 
    If local Then
      cadena = File.Load(Dialog.Path)
      Dim newForm As New FormMAESTRO
      newForm.TextEditor.Text = cadena
      newForm.TextEditor.SetFocus
      newForm.Show
      newForm.Title = Dialog.Path
 
      ' Añadir el formulario a la matriz de formularios abiertos
      formulariosAbiertos.Add(newForm)
    Else
      ' Otras acciones según sea necesario
    Endif
  Endif
 
End