Автоматизация процессов управления испытаниями и обработки результатов

В зависимости от назначения, типа и условий эксплуатации маятниковых копров измерительная информация с них может поступать как в аналоговом, так и цифровом виде. Для визуальных наблюдений информация об измеряемых параметрах представляется на цифровых индикаторах либо стрелочных приборах.

В настоящее время в качестве выходных приборов все шире используются экраны дисплеев, на которых измеряемые параметры представляются в виде графиков, диаграмм и таблиц. При этом, как правило, параллельно происходит запись измерительной информации на соответствующий носитель.

Измерительная информация может передаваться через выходные приборы в систему мониторинга объектов для принятия решений.

Программа калибровки

Protocol ( )

Char S1 [40], S2[40], S3[40], Si[ ]

/*S1 – протокол №…*/

/*S2 – дата */

/*S3 – время */

Gets (S1);

Cprintf (“протокол №…/n”, strlen (S1));

Gets (S2);

Cprintf (“дата …/n”, strlen (S1));

Gets (S3);

Cprintf (“время…/n”, strlen (S1));

………

Return ( );

#define STAT 0 x 309 /*Регистр состояния макетной платы*/

#define CNTRL 0 x 30С /*Управляющий регистр макетной платы*/

#define ADC 0 x 308 /* АЦП: адрес и данные*/

#define STRTAD 0x30A /*Регистр запуска преобразования*/

main ( )

{

int rab15, rab150, rabx, slope, S, udarnayavyazkost;

char c=0

output(CNTRL,1); /*Установка второго бита в управляющем*/

/*регистре для разрешения запуска программы*/

/*преобразования*/

output(ADC,1): /*Выбор канала 1*/

cprintf («Ввести значение площади S= м². \ n»);

cprintf («Калибровка 1: задать значение работы=15 Дж. \ n»);

cprintf («Через 1 минуту нажмите любую клавишу. \n»);

while (!kbhite()); /*Ждать нажатия клавиши*/

rab15=get_data() /*Получить значение ударной вязкости для работы 15 Дж*/

cprintf («Ввести значение площади S= м². \ n»);

cprintf («Калибровка 2: задать значение работы=150 Дж. \ n»);

cprintf («Через 5 минут нажмите любую клавишу. \n»)

while (!kbhit()); /*Ждать нажатия клавиши*/

rab150=get_data()

slope=135/(rab150-rab15); /*Расчет коэффициента линейной*/

/*зависимости ударной вязкости от работы*/

cprintf («Нажмите любую клавишу для отсчета ударной вязкости. \n»);

cprintf («Нажмите е для выхода из программы. \n»);

while(c!=’e’) /*Повторять, пока не нажата клавиша е*/

{

If (kbhit() /*Отсчет ударной вязкости, если нажата*/

/*любая клавиша*/

{

rabx=get_data();

udarnayavyazkost=slope*(rabx/S); /*Расчет ударной вязкости */

cprintf («Ударная вязкость = Дж/м² d/n», udarnayavyazkost);

c=getch();

}

}

}

get=data()

{

int datum;

outp(STRTAD); /*Запуск преобразования*/

while(!(inp(STAT)&2)); /*Ждать завершения преобразования*/

datum=inp(ADC);

return(datum);

}