Электроника и автоматика на МК

Device 16F877A
Declare XTAL 4
 
DECLARE ADIN_RES 10 ' Вычисляем 10-битный результат
DECLARE ADIN_TAD 8_FOSC ' Источник тактирования АЦП
DECLARE ADIN_STIME 50 ' Время измерения

Declare LCD_TYPE 0 ' Type of Тип используемого ЖКИ - буквенно цифровой
Declare LCD_DTPIN PORTB.4 ' Шина данныхB4,B5,B6,B7
Declare LCD_RSPIN PORTB.2 ' RS на portb.2
Declare LCD_ENPIN PORTB.3 ' E pin на portb.3
Declare LCD_INTERFACE 4 ' 4-битный интерфейсt

Dim ADC_Result As Float
Dim ADC_Total As Float
Dim Temp_Float as Float
Dim ADC_Channel as Byte
Dim ADC_Loops as Word
Dim Temp as Word
 
 
Dim Last_Result1 As Float
Dim Last_Result2 As Float
 
ADCON1 = %10000000 ' Установим porta как аналоговые входы
TRISA = $FF ' Porta - установим как входы

Delayms 150
Cls
 
Print $FE,$40,$07,$05,$07,$00,$00,$00,$00,$00 
' Запишем значения в память ЖКИ для знака градуса

ADC_Loops = 200
 
Main:
 
 ADC_Channel = 1 ' Используем первый канал измерения
 Gosub ADC_Average ' Для увеличения точности выполняем усреднение

 Temp_Float = ADC_Result ' Запомним результат

 ADC_Channel = 0 ' Используем нулевой канал измерения
 Gosub ADC_Average ' Для увеличения точности выполняем усреднение

 ' Преобразуем значения в вольты (масштабируем к 1000)
 ADC_Result = ADC_Result * 5000 / 1023
 Temp_Float = Temp_Float * 5000 / 1023 ' чтобы уменьшить ошибку
 ADC_Result = ADC_Result - Temp_Float ' И вычислим разницу

 ADC_Result = ADC_Result / 10 ' Вернем масштаб, учитывая, что 1 град. = 10 мВ

 If ADC_Result <> Last_Result1 Then ' Было ли изменение температуры?
 ' и обновим показания, если было
 Print At 1,1, Dec1 ADC_Result, 0, "C "
 Last_Result1 = ADC_Result ' Запомним новое значение
 Endif
 
Goto Main ' Начнем сначала

 
ADC_Average: ' Выполним усреднение для увеличения точности 

 ADC_Total = 0 ' Очистим суммирующий регистр
 
 ' Зациклим на выполнении усреднения определенное количество раз
 For Temp = 1 To ADC_Loops
 ADC_Result = ADIN ADC_Channel ' Получим новое значение
 ADC_Total = ADC_Total + ADC_Result ' Складываем в суммирующий регистр
 Delayus 1 ' Время на разряд внутреннего конденсатора
 Next Temp
 
 ' Определим среднее значение полученной величины
 ADC_Result = ADC_Total / ADC_Loops
 
 Return