Eliminar mensaje de error

Ir abajo

Eliminar mensaje de error

Mensaje por José Francisco el Jue Ago 23, 2018 10:04 pm

Buen día a todos.
Tengo una rutina lisp la cual en algún momento debo interrumpir, lo hago con un "exit", lo malo es que al hacerlo me presenta en pantalla el siguiente mensaje:

Error: quit / exit abort

En este lisp de ejemplo les muestro.
Al llegar a tener un valor de 10 la variable v la rutina se interrumpe y se visualiza el mensaje de error.

Existe alguna forma de que ese mensaje no aparezca?


)
Código:
(defun c:test ()
  (setq v (getreal "\nIntroduzca el primer valor : "))
  (setq k 1)
  (while (< k v)
    (setq v (getreal "\nIntroduzca el siguiente valor: "))
    (setq v (+ v k))
    (princ v)
      (if (= v 10)
            (progn
            (princ "\nNada que hacer. Cancelado por el usuario.")
            (exit)
            )
      )
    (setq v (+ v 1))
  )


Les agradezco su ayuda.

José Francisco

Mensajes : 12
Fecha de inscripción : 30/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Eliminar mensaje de error

Mensaje por arielbnvo el Lun Ago 27, 2018 9:41 pm

Que tal. Yo no se mucho del tema y toco de oido pero le saque el "(exit)" y ya no pone el mensaje , salta abajo y empieza el ciclo nuevamente y vuelve a pedir valor ¿te referis a eso?.

arielbnvo

Mensajes : 11
Fecha de inscripción : 21/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Eliminar mensaje de error

Mensaje por carlosmgilp el Mar Ago 28, 2018 4:04 pm

Hola José Francisco como estas.

Solo cambia la condicional de entrada en el while.
Y elimina lo de la comparación dentro del while.

Código:
(defun c:test  (/ k v)
  (setq v (getreal "\nIntroduzca el primer valor : "))
  (setq k 1)
  (while (and (< k v) (not (= v 10)))
    (setq v (getreal "\nIntroduzca el siguiente valor: "))
    (setq v (+ v k))
    (princ v)
    (setq v (+ v 1)))
  (princ "\nNada que hacer. Cancelado por el usuario.")
  (princ))

Saludos.

carlosmgilp

Mensajes : 149
Fecha de inscripción : 17/03/2016
Edad : 36
Localización : Venezuela

Ver perfil de usuario

Volver arriba Ir abajo

Re: Eliminar mensaje de error

Mensaje por José Francisco el Miér Ago 29, 2018 11:52 pm

Buen día a todos.
Ariel, Carlos, muchas gracias por su ayuda.
La solución del "and" y "not" en el "while" está genial.
De nuevo, muchas gracias.

José Francisco

Mensajes : 12
Fecha de inscripción : 30/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Eliminar mensaje de error

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.