Device = 16F877
XTAL = 4
Dim Distance as Float
DECLARE ADIN_RES 10 ' 10-bit result required
DECLARE ADIN_TAD FRC ' RC OSC chosen
DECLARE ADIN_STIME 50 ' Allow 50us sample time
LCD_DTPIN = PORTB.4
LCD_RSPIN = PORTB.2
LCD_ENPIN = PORTB.3
LCD_INTERFACE = 4
LCD_LINES = 2
LCD_TYPE = 0
ADCON1 = %10000000 ' Set analogue input, Vref is Vdd
Input PORTA.0
Input PORTA.1
DelaymS 100
Cls
Main:
Distance = ADIN 0 ' Grab the digital value of PORTA.0
Distance = Distance * 5 / 1023 ' Convert to volts
Distance = Distance / 0.010 ' Find out how many 10mV go into it
Print At 1, 1, "D1 = ", Dec1 Distance, 34, " "
Distance = ADIN 1 ' Grab the digital value of PORTA.1
Distance = Distance * 5 / 1023 ' Convert to volts
Distance = Distance / 0.010 ' Find out how many 10mV go into it
Print At 2, 1, "D2 = ", Dec1 Distance, 34, " "
Goto Main