TODOPIC
Microcontroladores PIC => Lenguaje Basic para microcontroladores PIC => Mensaje iniciado por: arnoldojrm en 30 de Junio de 2004, 12:46:00
-
Hola a todos, estoy trabajando con el PBP, pero el no tiene variables de tipo real
, asi que, pensando un poco se me ocurrio una forma facil de mostrar 2 decimales usando las rutinas de division y resto de division que trae incorporada el pbp
aqui esta el codigo
" Inicio del Programa
" declaracion de variables
Numero con 13
Primero con 25
Resto var word
Divide var word
Decimal var word
Pause 500 " Tiempo de Espera para inicio de LCD
Ciclo:
divide = primero / numero " obtengo la division
resto = primero // numero " obtengo el resto
decimal = (resto * 100) / numero " calculo los 2 decimales
Lcdout $fe, 1 " Clear LCD screen
Lcdout "Division"
lcdout $FE, $C0, #divide, ".", #decimal
Pause 2000 " espera 0.5 segundos
Goto Ciclo " realiza nuevamente el ciclo
END
si quisieran mayor cantidad de decimales la instruccion
decimal = (resto * 100) / numero " calculo los 2
quedaria asi para 3
decimal = (resto * 1000) / numero " calculo los 3
espero que mi contribucion sirva de algo a los amigos del foro
-
Excelente justo lo que necesitaba... :mrgreen:
-
Eso es muy informativo Wasty.
Date una vuelta por aquí http://www.todopic.com.ar/foros/index.php?topic=14139.0 para que veas diferentes maneras de "darle la vuelta" a los decimales.
Esa opción es muy buena por cierto, el de multiplicar por 10, 100, 1000, etc.
-
Esta muy bien tu rutinita arnoldojrm, yo utilizaba una que ocupa mas codigo, apartir de ahora cambio a la tuya.. :D :-)
-
Increíble, se me acaba de presentar el mismo problema en una programa y tu método me ha ayudado a resolver un fallo de precisión importantísimo. ((:-))
Ya ves, después de tantos años, sigue vigente, esto es impagable. :-/
y por cierto tanto el manual del PBP como la traducción del jefe, dejan un poco que desear en este aspecto. (espero que no me caiga ningun palo) :lol:
Muchísimas gracias.