'****************************************************************
'* Name : Voltimetro.BAS *
'* Author : www.sharatronica.com *
'* Notice : Copyright (c) 2011 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 14/05/2011 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
Device = 16F877
XTAL = 4
LCD_DTPIN = PORTD.4
LCD_RSPIN = PORTD.2
LCD_ENPIN = PORTD.3
LCD_INTERFACE = 4
LCD_LINES = 2
LCD_TYPE = 0
Dim VALOR As Word
Dim VOLTS As Float
Cls
DelayMS 150
ADIN_RES = 10
ADIN_TAD = FRC
ADIN_STIME = 50
TRISA = %00000001
ADCON1 = %10000000
DelayMS 100
While 1 = 1
VALOR = ADIn 0
VOLTS = VALOR / 204.8
VOLTS = VOLTS * 10
Print At 1,1,DEC2,VOLTS," ","voltios",0
Wend
End