Класс TTerminalBearing
// Класс терминала подшипника public class TTerminalBearing { private TBearingParam BearingParam;//Структура параметров //подшипника public TCommandQueue CommandQueue; //Ссылка на очередь //команд public bool IsQuery; //Флаг, разрешающий //опрос терминала // Конструктор public TTerminalBearing() // Опрашивает терминал private long QueryTerminal() // Запрашивает и обрабатывает статус терминала public void Process() }
Класс используется для взаимодействия с терминалом подшипника. Операции:
- Конструктор TTerminalBearing() инициализирует поле BearingParam и устанавливает значение флага IsQuery в true.
- Метод QueryTerminal() вызывает функцию внешнего модуля IBearing.GetRollerPar(...), присваивает возвращенные значения полю BearingParam и возвращает значение статуса терминала.
- Метод Process() вызывает метод QueryTerminal(). Если статус терминала равен 0 (это означает, что параметры подшипника были успешно возвращены), то на первое место в очередь команд добавляется команда GetR - получить из входной ячейки: CommandQueue.AddCommand(TCommand.GetR,-1,0,-1, this.BearingParam, null,0);
Если получены другие значения статуса терминала, то в журнал сообщений добавляется запись в соответствии с FS пункт 1.а.iv.