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

;-------------------------- Общие настройки------------------------------------

Device = 16F877A   ' Используемый микроконтроллер

Xtal = 12   ' Частота осциллятора  12 МГц

'-------------------------- Опции компилятора --------------------------------

Declare  FSR_CONTEXT_SAVE = On   ' Заботиться о сохранении содержимого регистра FSR

Declare  Reminders = Off   ' Включить напоминания компилятора

Declare  Warnings = On    ' Включить предупреждения компилятора

Declare  Optimiser_Level 0    ' Выключить оптимизацию программы

Declare  Bootloader = OFF  ' Выключить загрузчик

'-------------------------- Конфигурация программирования --------------------

Config  CP_ON, DEBUG_OFF, WRT_OFF, CPD_ON, LVP_OFF, BODEN_OFF, PWRTE_OFF, WDT_OFF, HS_OSC

'-------------------------- Настройки АЦП ------------------------------------

Declare  Adin_Res 8   ' Разрядность результата преобразования АЦП

Declare  Adin_Tad FRC   ' Источник тактирования АЦП

Declare  Adin_Stime  100   ' Время на подготовку АЦП к новому измерению

'-------------------------- Настройки подключения ЖКИ ------------------------

Declare  LCD_Type ALPHA   ' Тип ЖКИ - буквенно -цифровой

Declare  LCD_DTPin  PORTC.0   ' Порт данных ЖКИ

Declare  LCD_ENPin  PORTC.4   ' Управление линией E

Declare  LCD_RSPin  PORTC.5   ' Управление линией RS

Declare  LCD_Interface  4   ' Разрядность шины данных

Declare  LCD_CommandUs  2000   ' Задержка перед посылкой команды

Declare  LCD_DataUs  50   ' Задержка перед посылкой данных

Declare  LCD_Lines   2   ' Количество строк ЖКИ                                                                 

Symbol TEMP1 = 0 ' Датчик температуры 1

Symbol TEMP2 = 1 ' Датчик температуры 2

Symbol TEMP3 = 2 ' Датчик температуры 3

Dim TEMP As Dword     'переменная для считывания аналогового значения температуры 

Dim TempVar As Byte '

Dim i As Byte ' Счетчик для цикла

Dim Temperature1 As Dword

Dim Temperature2 As Dword

Dim Temperature3 As Dword

'-------------------------- Начало -------------------------------------------

Clear

'-------------------------- ADCON0, ADCON1 -----------------------------------

'AN7-AN5 - цифровые порты ввода/вывода. Vref+ = AN3, Vref- = Vss. Остальные каналы - аналоговые входы

     ADCON0 = %11000000 ' Значение регистра ADCON0

     ADCON1 = %00000011 ' Значение регистра ADCON1                                                         

'Обратите внимание - в качестве источника опорного напряжения выбран вход AN3

' Если взглянуть на схему, можно увидеть, что к этому входу подключен делитель напряжения,

'который дает 2,5 вольта.

'-------------------------- Начало -------------------------------------------

'-------------------------- Главная программа -------------------------

Start:

    PORTC = %00000000

    TRISA = %001111

    TRISC = %00000000                                                                                                                     

    OPTION_REG = %00000111

    Cls

    For i = 20 To 4 Step - 1

        Print At 1,i, "Start system    "

        DelayMS 100

    Next                                                           

    DelayMS 1000

    Cls

'-------------------------Начало главной программы----------------------------------------

MainProgram:

'---------------------Обработка нажатия кнопок--------------------------------------------

     GoSub ReadRealTemp

     Print At 1,1, "T1=", SDec Temperature1," :","T2=", SDec Temperature2,"    "

     Print At 2,1,"T3=", SDec Temperature3, "     "

     DelayMS 100

GoTo  MainProgram   ' Возврат на начало основной программы

ReadRealTemp:

    TempVar = TEMP1   'Временной переменной мы присваиваем номер первого канала измерения (TEMP1 = 0канал AN0)

    GoSub ConvertTemp  ' Сделаем перерасчет

    Temperature1 = TEMP 'Возвращаемое реальное значение температуры уже со знаком, потому, что мы используем знаковую переменную 

    TempVar = TEMP2   'Канал AN1 (TEMP2 = 1)

    GoSub ConvertTemp 

    Temperature2 = TEMP'

    TempVar = TEMP3    'Канал AN2  (TEMP3 = 2)

    GoSub ConvertTemp

    Temperature3 = TEMP'

Return

ConvertTemp:

        TEMP = ADIn TempVar  ' Считываем значение напряжения по указанному каналу

        TEMP = TEMP - 50      'И вычитаем коэффициент

Return

End