Программный код подпрограммы коррекции параметров

Программный код подпрограммы коррекции составляется в соответствии с составленным алгоритмом с использованием соответствующих программных ресурсов высокоуровневого языка программирования Pascal - SCM и аппаратных ресурсов микроконтроллера.

В данном случае используются из аппаратных ресурсов микроконтроллера только устройства ввода/вывода.

Из программных ресурсов языка Pascal - SCM используются математические команды, система команд для работы с подключаемым ЖКИ и команды обслуживания матричной клавиатуры.

Например, программный код подпрограммы коррекции параметров для системы фазового управления будет иметь следующий вид:

Procedure PP_PARAM;

Begin

repeat until (Param =true);

GetKeyRaised; // запуск процесса опроса клавиатуры

case GetKey of

Key1: if (q>=4) Then q:=1;  //NEXT

else

q:=q+1;

endif;|

Key2: if (q<=0) Then q:=4;  //PREV

else

q:=q+1;

endif;|

Key3: case q of

1: PP_Voltage;|

2: PP_Current;|

3: PP_Speed;|

4: PP_Temperature;|

endcase;|

endcase;

until (ACTIVE=false) or (TEST=false);

LCDclr;

LCDxy(0,0);

write(LCDout, 'ГОТОВ!');

end PP_PARAM;

Программный код подпрограммы коррекции напряжения

Программный код подпрограммы коррекции напряжения, так же как и тока, скорости и температуры, является вспомогательной подпрограммой для общей подпрограммы коррекции параметров.

Составляется код в соответствии с алгоритмом с использованием соответствующих программных ресурсов языка Pascal - SCM и аппаратных ресурсов микроконтроллера.

В данном случае используются из аппаратных ресурсов микроконтроллера только устройства ввода/вывода и встроенное ЭСППЗУ.

Из программных ресурсов языка Pascal - SCM используются математические команды, система команд для работы с подключаемым ЖКИ и команды обслуживания матричной клавиатуры.

Например, программный код подпрограммы коррекции напряжения для системы фазового управления будет иметь следующий вид:

Procedure PP_Voltage;

Begin

y:=0; p:=false; n:=0;

repeat

LCDclr;

LCDxy(0,0);

write(LCDout, 'Введите напряжение!');

LCDxy(0,1);

write(LCDout, 'аU=');

PP_KeyBoard;

aU:=y;

GetKeyRaised;

until (GetKey=Key5); //Enter

LCDclr;

LCDxy(0,0);

write(LCDout, Сохранить?');

repeat

GetKeyRaised;

if (GetKey=Key5) Then aUeeprom:=aU;

LCDclr;

LCDxy(0,0);

write(LCDout, Сохранено!');

endif;

until (GetKey<>Key5);

end PP_Voltage;

Программный код подпрограммы опроса матричной клавиатуры

Программный код подпрограммы опроса матричной клавиатуры, является вспомогательной подпрограммой для группы подпрограмм коррекции параметров.

Составляется код в соответствии с алгоритмом с использованием соответствующих программных ресурсов языка Pascal - SCM.

Из программных ресурсов языка Pascal - SCM используются математические команды, система команд для работы с подключаемым ЖКИ и команды обслуживания матричной клавиатуры.

Например, программный код подпрограммы опроса матричной клавиатуры для системы фазового управления будет иметь следующий вид:

procedure PP_KeyBoard;

begin

//_______________ Начальные условия _____________________//

j:=1; // счетчик знаков после запятой

flag1:=false; // флаг ввода дробной части числа

flag2:=false; // флаг момента нажатия запятой

y:=0; // начальное значение итогового числа = 0

x:=0; // начальное значение текущего числа = 0

i:=1; //счетчик количества используемых символов

//________________________________________________________//

repeat

//___________________ Опрос клавиатуры __________________//

GetKeyRaised;

case GetKey of

Key1:  i:=i-1;

j:=j-1;

x:=0;  | // кнопка не задействована

Key2:  i:=i-1;

j:=j-1;

x:=0;  | // кнопка не задействована

Key3:  i:=i-1;

j:=j-1;

x:=0;  | // кнопка не задействована

Key4:  x:=0;

y:=0;

flag1:=false;

flag2:=false;

j:=1;

i:=0; | // Кнопка СБРОС!!!

Key5:  i:=i-1;  | // кнопка ENTER!!!

Key6:  x:=3; | //3

Key7:  x:=6; | //6

Key8:  x:=9; | //9

Key9:  x:=0; | //0

Key10: x:=2; | //2

Key11: x:=5; | //5

Key12: x:=8; | //8

Key13: flag1:=true; //флаг запятой

flag2:=true; //флаг момента нажатия

x:=0;

i:=i-2; | //сброс счета для запятой

Key14: x:=1; | //1

Key15: x:=4; | //4

Key16: x:=7; | //7

endcase;

//____________ ограничение количества символов ___________//

if i>9 then

x:=0;

i:=i-1;

endif;

//____________ формирование набранного числа _____________//

if flag1=true Then //если была нажата запятая,то:

if flag2=true then

//если это момент нажатия запятой, то:

flag2:=false;// восстановление состояния флага

else

j:=j+1;

y:=y+x/pow10(j);//формула дробной части числа

endif;

else y:=y*10+x; //формула целой части числа

endif;

i:=i+1;

//__________________ вывод на ЖКИ ________________________//

LCDxy(15-i, 1);

Write(LCDout, floattostr(y:9:6));

//________________________________________________________//

until (GetKey<>Key5);

end PP_KeyBoard;

 

Прил. 2.

Основные технические данные и характеристики тахогенераторов постоянного тока типов 1,6ТГП-2(а), 2,5ТГП-4 (б), ТГП-5 (г), ТП-20 (д)

Параметр