cnc-club.ru

'-------------------------- Опции компилятора --------------------------------
Declare Watchdog = On
Declare FSR_CONTEXT_SAVE = OFF ' Не заботиться о сохранении содержимого регистра FSR
'Declare Optimiser_Level 1 ' Включить оптимизацию программы
'Stack_Size = 40
'-------------------------- Настройки USART ----------------------------------
'-------------------------- Настройки портов ---------------------------------
'PortB_Pullups = OFF ' Выключить подтягивающие резисторы на PORTB
Declare All_Digital = On' Каждый порт выполняет свою функцию по умолчанию
''-------------------------- Настройки процессора------------------------------
Device = 16F877A
Xtal = 4

' WATCHDOG вкл/выкл
'Declare Watchdog = On

'-------------------------- Настройки подключения ЖКИ ------------------------
Declare LCD_Type ALPHA ' Тип ЖКИ - буквенно -цифровой
Declare LCD_Interface 4 ' Разрядность шины данных
Declare LCD_Lines 2 ' Количество строк ЖКИ
Declare LCD_DTPin PORTD.4 ' Порт данных ЖКИ
Declare LCD_ENPin PORTA.3 ' Управление линией E
Declare LCD_RSPin PORTA.1 ' Управление линией RS

' переменные
Dim buttonvalue As Word ' счетчик
Dim f As Float '
Dim z As Float '
Dim P As Float '
Dim atm As Float '
Dim fbeep As Dword '
Dim fstop As Word '
Dim maxvalue As Word ' максимальное значение кнопок
Dim minvalue As Word ' минимальное значение кнопок

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

Declare Adin_Res 10 ' Разрядность результата преобразования АЦП
Declare Adin_Tad 2_FOSC ' Источник тактирования АЦП
Declare Adin_Stime 1 ' Время на подготовку АЦП к новому измерению

'-------------------------- Назначение портов --------------------------------
Symbol Out = PORTC.1
ADCON1.7 = 1 ' выравнивание данных по левому или правому

'TRISA = %00000001 ' задает AN0 (PORTA. 0) как вход
'ADCON1 = %10000000 ' задает PORTA. 0 как аналоговый вход



'-------------------------- Начало программы ---------------------------------
Low PORTC

'-------------------------- Прерывания ---------------------------------------


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

'-------------------------- Цикл программы --------------------------------
main:
Low Out
f = ADIn 0
z = 5/1024*f
' расчитываем давление по формуле
'P=(Vout/5.1 -0.04 )/0.00369

'Давление(кПа) = (Vацп - V0) / 18,8 * 1000
'P =(Z-0.17)/18.8*1000

P =(Z-0.17)/18.8
P=P*1000
atm=P/101.3250110297

Print At 1, 1, "davlenie " , Dec z , "V"
Print At 2, 1, Dec P , "kPa"
Print At 3, 1, Dec atm , "atm"
Print At 3, 1, Dec atm* , "atm"