como manejar punto folatante en microcoe

hola este es mi programa pero lo que necesito es que me muestre los bits y el voltaje que entra
pero solo me muestra numeros enteros mas no flotante :cry:


'****************************************************************
'* Name : UNTITLED.BAS *
'* Author : DAVID VILLAMARIN *
'* Notice : Copyright (c) 2013 ESPEL *
'* : All Rights Reserved *
'* Date : 06/06/2013 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************

DEFINE LCD_DREG PORTC ;PUERTO DE TRABAJO
DEFINE LCD_DBIT 0 ;SI TRABAJO CON LOS MAS SIGNIFICAT O MENOS SIGNI (0 O 4)
DEFINE LCD_RSREG PORTC ;DONDE SE ENCUENTRE RS
DEFINE LCD_RSBIT 4 ;EN QUE BIT
DEFINE LCD_EREG PORTC ;ENABLE DONDE VA ESTAR
DEFINE LCD_EBIT 5 ;BIT ENABLE

; ADC
DEFINE ADC_BITS 8 ;FIJA EL NUMERO DE BITS DEL RESULTADO
DEFINE ADC_CLOCK 3 ;RELOJ
DEFINE ADC_SAMPLEUS 40; TIEMPO DE MUESTREO EN Us
;VARIABLES
TRISA=%1; ENTRADA DE DATOS
ADCON1=%00001110 ;PIN 0 ES ANALOGIGCO
X VAR BYTE
ABC VAR BYTE
RDATO VAR BYTE
Y VAR WORD
DATO VAR BYTE
RY VAR WORD
INTCON= $90
ON INTERRUPT GOTO INTERRUPCION

PAUSE 500
INICIO:
ADCIN 0,DATO ;LEE EL CANAL O Y GURADA EN DATO
LCDOUT $FE,1,"DATO: "
LCDOUT $FE,$C8, DEC DATO
PAUSE 1000
LCDOUT $FE,1 ;LIMPIA LA PANTALLA
Y=(DATO*5/255) ; TRANSFORMANDO A VOLTAJE
LCDOUT $FE,1,"VOLTAJE: "
LCDOUT $FE,$C8,DEC Y
PAUSE 1000
LCDOUT $FE,1 ;LIMPIA LA PANTALLA

GOTO INICIO

;INTERRUPCION
DISABLE
INTERRUPCION:
RDATO=DATO
RY=Y
LCDOUT $FE,1
FOR X=0 TO 13
LOOKUP X,[" MICRO "],ABC
LCDOUT,ABC
PAUSE 50
NEXT
LCDOUT $FE,$c0
FOR X=0 TO 15
LOOKUP X,["DAVID VILLAMARIN"],ABC
LCDOUT,ABC
PAUSE 50
NEXT
pause 2000
DATO=RDATO
Y=RY
INTCON=$90
RESUME
ENABLE
END

perdon las etiquetas a la ingeniera le gusta que hagamos asi jeje
 
Última edición por un moderador:
Atrás
Arriba