hola hermano haslo de esta manera y me cuentas
Device 16F877
XTAL 4
Declare LCD_TYPE 0 ' LCD Alphanumerico
Declare LCD_DTPIN PORTB.4 ' The control bits B0,B1,B2,B3
Declare LCD_RSPIN PORTB.2 ' RS pin on B4
Declare LCD_ENPIN PORTB.3 ' E pin on B5
Declare LCD_LINES 2 ' Amount of LCD lines
Declare LCD_INTERFACE 4 ' Interface method is 4 bit
Dim TempRd As Float
Dim QUANTA As Float
Dim mult As Float
Again:
Cls
QUANTA=5.1
mult=10.3
TempRd = mult*quanta
Print At 1,1, DEC2 TempRd
DelayMS 1000
GoTo Again
End
saludos y espero tus comentarios.
Atten.
Alexander santata.
Venezuela-barcelona.