Constante +Inf

tincho 21-04-2023, 10:16

(20-04-2023, 18:15)Grandamakulo escribió: 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í:

Código:
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]

1 Saludo.