Программа, используемая управляющими эвм при испытании материалов

# include <string.n>

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

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

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

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

main ()

{

int adc25, adc65, adcx, slope, tverd;

char c = 0

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

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

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

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

call protocol();ф

cprintf («Калибровка 1: испытать эталонную меру твердости со значением (25±5) HRC, испытание проводить при 20 ^оС \n»);

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

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

adc25 = get_data() /* Получить данные от АЦП */

/* для этолонной меры твердости (25±5) HRC */

cprintf(«Калибровка 2: испытать эталонную меру твердости со значением (65±5) HRC, испытание проводить при 20 ^оС \n2»);

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

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

adc65 = get_data()

slope = 40/(adc65 – adc25); /* Расчет коэффициента линейной */

/* зависимости твердости от ЭДС */

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

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

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

{

if (kbnit() /* Отсчет твердости, если нажата любая клавиша */

{

adcx = get_data();

tverd = slope*(adcx – adc25); /* Расчет твердости */

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

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

cprintf(«Твердость = %d\n», tverd);

c = getch();

get = data()

{

int datum;

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

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

datum = inp(ADC);

return (datum); }

protocol ()

{

char s1[40], s2[40], s3[40], s4[40]

/ *s1 – протокол № Мп_09_06/18 */

/ *s2 – дата ……..*/

/ *s3 – время ……..*/

/*s4-наименование «газоанализатор ГАМмА100»

gets(s1);

cprintf(«Протокол №… \n», streln(s1));

gets(s2);

cprintf(«Дата …… \n», strelen(s2));

gets(s3);

cprintf(«Время …….\n», stren(s3));

gets(s4);

cprintf(«Наименование …….\n», stren(s4));

return();

}

Дата добавления: 2015-08-27