[Grandamakulo]

Hola, compañeros:
¿Alguien sabe por qué me sale el error de la imagen?

Doy mi palabra, y pongo mi honor en ella, de que antes funcionaba . Reconocía perfectamente la constante y el Then de después. Creo que dejó de funcionar con la actualización de Linux —ver más abajo—.
En cuanto a +Inf, esto es lo que hay:
http://gambaswiki.org/wiki/lang/+inf

Y los datos, claro:

Código:

 
[System]
Gambas=3.18.2
OperatingSystem=Linux
Distribution=Linux Mint 21.1 Vera
Kernel=5.15.0-70-generic
Architecture=x86_64
Cores=4
Memory=7861M
Language=es_ES.UTF-8
Desktop=CINNAMON
DesktopResolution=134
DesktopScale=12
WidgetTheme=oomox-propio
Font=Hack,12

[Programs]
gcc=gcc (Ubuntu 11.3.0-1ubuntu1~22.04) 11.3.0
git=git version 2.34.1

[Libraries]
Cairo=libcairo.so.2.11600.0
Curl=libcurl.so.4.7.0
DBus=libdbus-1.so.3.19.13
GDK2=libgdk-x11-2.0.so.0.2400.33
GDK3=libgdk-3.so.0.2404.29
GStreamer=libgstreamer-1.0.so.0.2003.0
GTK+2=libgtk-x11-2.0.so.0.2400.33
GTK+3=libgtk-3.so.0.2404.29
OpenGL=libGL.so.1.7.0
Poppler=libpoppler.so.118.0.0
QT5=libQt5Core.so.5.15.3
RSvg=librsvg-2.so.2.48.0
SDL=libSDL2-2.0.so.0.18.2
SQLite 3=libsqlite3.so.0.8.6

[Environment]
CINNAMON_VERSION=5.6.8
CLUTTER_IM_MODULE=ibus
DBUS_SESSION_BUS_ADDRESS=unix:path=/run/user/1000/bus
DESKTOP_SESSION=cinnamon
DISPLAY=:0
GB_GUI=gb.gtk3
GDMSESSION=cinnamon
GDM_LANG=es_ES
GIO_LAUNCHED_DESKTOP_FILE=/usr/share/applications/gambas3.desktop
GIO_LAUNCHED_DESKTOP_FILE_PID=3862
GJS_DEBUG_OUTPUT=stderr
GJS_DEBUG_TOPICS=JS ERROR;JS LOG
GNOME_DESKTOP_SESSION_ID=this-is-deprecated
GPG_AGENT_INFO=/run/user/1000/gnupg/S.gpg-agent:0:1
GTK3_MODULES=xapp-gtk3-module
GTK_IM_MODULE=ibus
GTK_MODULES=gail:atk-bridge
GTK_OVERLAY_SCROLLING=0
HOME=<home>
LANG=es_ES.UTF-8
LANGUAGE=es_ES.UTF-8
LC_ALL=es_ES.UTF-8
LOGNAME=<user>
PATH=/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/usr/local/games:/snap/bin
PWD=<home>
QT_ACCESSIBILITY=1
QT_IM_MODULE=ibus
QT_LOGGING_RULES=*.debug=false
QT_QPA_PLATFORMTHEME=qt5ct
SESSION_MANAGER=local/<hostname>:@/tmp/.ICE-unix/921,unix/<hostname>:/tmp/.ICE-unix/921
SHELL=/bin/bash
SHLVL=0
SSH_AUTH_SOCK=/run/user/1000/keyring/ssh
TZ=:/etc/localtime
USER=<user>
XAUTHORITY=<home>/.Xauthority
XDG_CONFIG_DIRS=/etc/xdg/xdg-cinnamon:/etc/xdg
XDG_CURRENT_DESKTOP=X-Cinnamon
XDG_DATA_DIRS=/usr/share/gnome:/usr/share/cinnamon:/usr/share/gnome:<home>/.local/share/flatpak/exports/share:/var/lib/flatpak/exports/share:/usr/local/share:/usr/share
XDG_GREETER_DATA_DIR=/var/lib/lightdm-data/<user>
XDG_RUNTIME_DIR=/run/user/1000
XDG_SEAT=seat0
XDG_SEAT_PATH=/org/freedesktop/DisplayManager/Seat0
XDG_SESSION_CLASS=user
XDG_SESSION_DESKTOP=cinnamon
XDG_SESSION_ID=c1
XDG_SESSION_PATH=/org/freedesktop/DisplayManager/Session0
XDG_SESSION_TYPE=x11
XDG_VTNR=7
XMODIFIERS=@im=ibus

Muchas gracias de antemano.

[tincho]

¿Alguien sabe por qué me sale el error de la imagen?

No lo se, pero hice una prueba en mi computadora y pasa lo mismo.

GAMBAS

Public Sub Form_Open()
 
  Dim i As Integer
  Dim inFinito As Integer = (2 ^ 31) - 1
  Dim a As New Integer[]
 
  For i = 0 To 9
    a.Add(Rand(0, inFinito))
  Next
 
  For i = 0 To 9
    If a[i] <> inFinito Then
      Print "Continua jugando"
    Else
      Print "Fin del juego"
    Endif
  Next
 
End

Pero me da curiosidad de por que usas +Inf
¿Es infinito eso?
¿Vas a poner infinitos registros en una tabla?

[vuott]

...ahora que recuerdo, este problema de "THEN", no reconocido, también me lo dio con el valor cero en la segunda posición dentro del condicional IF.
Lamentablemente no recuerdo la circunstancia, el código preciso que determinó el error.

[guizans]

No lo se, pero hice una prueba en mi computadora y pasa lo mismo.

Pues acabo de hacer una prueba con Gambas 3.18.0 y no me da error, que raro.

Un saludo.

[tincho]

acabo de hacer una prueba con Gambas 3.18.0

Yo estoy usando la de desarrollo, la 3.18.90 y Grandamakulo esta usando la 3.18.2  tal vez en la 3.18.1 o la .2 algo cambio en EVAL o en otra parte.
Voy a comentarlo en la lista internacional por si acaso es un error.

[tincho]

ok, Benoît confirma que el error esta resuelto en la versión máster de gitlab.

Saludos

[Grandamakulo]

 

Pero me da curiosidad de por que usas +Inf
¿Es infinito eso?
¿Vas a poner infinitos registros en una tabla?

No, no, no, qué va. Es el retorno de la función si aparece un error matemático, sólo que lo intercepto antes de que ocurra, claro . Y +Inf es la palabra clave de gb para hacerlo. 
Por cierto, gracias a todos, compañeros, por las respuestas. Esperaremos a que salga la corrección para seguir con esta parte del proyecto.

[tincho]

Esperaremos a que salga la corrección para seguir con esta parte del proyecto.

No hace falta que esperes a la nueva versión en el repo, es posible sortear el asunto así:

GAMBAS

Public Sub Form_Open()
 
  Dim i As Integer
  'Dim inFinito As Integer = (2 ^ 31) - 1
  Dim inFinito As Integer = +Inf
  Dim a As New Integer[]
 
  For i = 0 To 9
    a.Add(Rand(0, inFinito))
  Next
 
  For i = 0 To 9
    'If a[i] <> +Inf Then ' it doesn't works
    If a[i] <> inFinito Then ' it works
 
      Print "Continua jugando"
    Else
      Print "Fin del juego"
    Endif
  Next
 
End

 [/i][/i]