program Test;

Uses Crt, c_Bus, c_Panel, MiscFunc;

procedure PE;
begin
  writeln('Нажмите клавишу <ENTER>');
  readln;
end;

var
  c:c_Panel.tCtrl;
  bs:c_Bus.tCtrl;

  b:tBlocks;
  bt:byte;
  v:longint;

begin
  writeln;
  writeln('Тестирование контроллера пульта управления');
  bs.InitDefault;
  c.InitDefault(bs);

  write('Инициализация...');
  c.exInit;
  if c.ErrorCode=0 then begin
    writeln('закончена.');
  end else  begin
    writeln('ошибка: ', c.ErrorMessage(c.ErrorCode));
  end;

  writeln('Включение блоков...');

  write('  выключение ВСЕХ...');
  c.exBlocksON([]);
  if c.ErrorCode=0 then begin
    writeln('OK.');
  end else  begin
    writeln('ошибка: ', c.ErrorMessage(c.ErrorCode));
  end;
PE;

  write('  включение БПГИ...');
  c.exCurBlocksON(b);
  Include(b,fBPGI);
  c.exBlocksON(b);
  if c.ErrorCode=0 then begin
    writeln('OK.');
  end else  begin
    writeln('ошибка: ', c.ErrorMessage(c.ErrorCode));
  end;
PE;

  write('  включение 10кВ...');
  c.exCurBlocksON(b);
  Include(b,f10kV);
  c.exBlocksON(b);
  if c.ErrorCode=0 then begin
    writeln('OK.');
  end else  begin
    writeln('ошибка: ', c.ErrorMessage(c.ErrorCode));
  end;
PE;

  write('  включение ВЭУ...');
  c.exCurBlocksON(b);
  Include(b,fVEU);
  c.exBlocksON(b);
  if c.ErrorCode=0 then begin
    writeln('OK.');
  end else  begin
    writeln('ошибка: ', c.ErrorMessage(c.ErrorCode));
  end;
PE;

  write('  выключение ВСЕХ...');
  c.SetNoError;
  c.exBlocksON([]);
  if c.ErrorCode=0 then begin
    writeln('OK.');
  end else  begin
    writeln('ошибка: ', c.ErrorMessage(c.ErrorCode));
  end;
PE;


END.