Regístrate gratis para participar de los foros, o si ya estás registrado haz login.
| comentario del autor | Vie Abr 11, 2008 3:33 pm | |
|
;**************************************************************************************************************************************************************** DEFINE OSC 4; el oscilador es de 4 MHZ TRISA=%011000; el puerto A se declara como salida TRISC=%000000; todos los pines del puerto C son salida CMCON=$07; deshabilito el modulo comparador ANSEL=%00001000; deshabilito el modulo A/D define ADC_BITS 8 DEFINE ADC_CLOCK 3 DEFINE ADC_SAMPLEUS 50 DEFINE LCD_DREG PORTC; las lineas de datos van al puerto C DEFINE LCD_DBIT 0; los datos se envian empezando desde RC0 DEFINE LCD_RSREG PORTA; RS se va a conectar en el puerto A DEFINE LCD_RSBIT 0; RS se conecto en RA0 (portA.0) DEFINE LCD_EREG PORTA; E se va a conectar en el puerto A DEFINE LCD_EBIT 1; E se conecto en RA1 DEFINE LCD_BITS 4; se utilizara un bus de 4 lineas DEFINE LCD_LINES 2; es un LCD de 2 renglones DEFINE LCD_COMMANDUS 2000; delay de comandos DEFINE LCD_DATAUS 50; delay de datos A VAR WORD ; codigo ;clear RUTINA: ; Rutina llamada segundos ADCIN 3,A LCDOUT $FE, 1 ; borro y pongo en la primera linea LCDOUT "TEMPERATURA ES:" LCDOUT $FE,$C0 ; me ubico en la segunda linea y saco el valor de temperatura en decimal LCDOUT DEC A , " ºC" PAUSE 1000 GOTO RUTINA END ;**************************************************************************************************************************************************************** Gracias por la atencion prestada Att: Juan Pablo Espianal Ruiz |
||