¿Como conservar ultimo valor para no volver a ingresarlo?
4 participantes
Página 1 de 1.
¿Como conservar ultimo valor para no volver a ingresarlo?
Que tal. Queria saber si hay alguna manera de mantener un valor si lo ingreso manualmente, por ejemplo con getreal, dentro de un ciclo que se repite y no tener que volver a repetir el mismo valor desde el teclado en cada vuelta del ciclo, o si en algun momento cambio el valor que se mantenga el nuevo valor para las proximas vueltas del ciclo. Por ejemplo parecido al comando offset que queda cargado el numero hasta que uno cambia de valor.
Gracias.
Gracias.
arielbnvo- Mensajes : 20
Fecha de inscripción : 21/03/2016
Re: ¿Como conservar ultimo valor para no volver a ingresarlo?
Hola arielbnvo como estas.
Utiliza los diccionarios, podrás utilizarlos de esa manera e incluso podrás cerrar el archivo y al abrir el archivo mantendrá el valor que le colocaste a esa variable.
Saludos.
Utiliza los diccionarios, podrás utilizarlos de esa manera e incluso podrás cerrar el archivo y al abrir el archivo mantendrá el valor que le colocaste a esa variable.
Saludos.
carlosmgilp- Mensajes : 149
Fecha de inscripción : 17/03/2016
Edad : 42
Localización : Venezuela
carlosmgilp- Mensajes : 149
Fecha de inscripción : 17/03/2016
Edad : 42
Localización : Venezuela
juan010101- Mensajes : 8
Fecha de inscripción : 26/03/2016
Edad : 44
Re: ¿Como conservar ultimo valor para no volver a ingresarlo?
Muchas gracias por su ayuda carlosmgilp y juan010101 . Ya hice el trabajito que tenia que hacer pero igualmente voy a investigar el tema por si lo vuelvo a necesitar.
Saludos.
Saludos.
arielbnvo- Mensajes : 20
Fecha de inscripción : 21/03/2016
Re: ¿Como conservar ultimo valor para no volver a ingresarlo?
Igual te refieres a algo así
Un saludo
- Código:
(defun c:test( / res que)
(defun que ( l / q);; subrutina para entrada de valores
;; by nolo en http://acadhispano.foroargentina.net
(initget "Salir")
(setq q (getreal
(strcat "\n cuanto es q (o <salir>) "
(if l (strcat"(por defecto " (rtos l) "):") ": ")
)))
(if (null q) (setq q l) q )
)
(setq res 6.25);; valor por defecto al iniciar o nil
;; rutina principal del lisp
(while (and
(setq res (que res))
(=(type res) 'REAL))
;; aqui que hacer con la respuesta
(print res)
)
(princ "\nFinalizado")
(princ)
)
Un saludo
nolo- Mensajes : 182
Fecha de inscripción : 17/03/2016
Temas similares
» Valor por default en DCL
» Sustraer valor de una lista y después sustituirlo
» Perpendiculares a un eje
» Mover ucs con entmake y funciones vl...
» Como usar símbolos ↗↖→↑← en una rutina
» Sustraer valor de una lista y después sustituirlo
» Perpendiculares a un eje
» Mover ucs con entmake y funciones vl...
» Como usar símbolos ↗↖→↑← en una rutina
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|