program Test;

Uses Crt, c_Bus, c_CVF, c_Roll, MiscFunc;

var
  c:c_CVF.tCtrl;
  m:c_Roll.tCtrl;
  bs:c_Bus.tCtrl;

  cl:tChannel;
  i:longint;

const
  cMax=500000;
  cInc=1000;

begin
  writeln;
  writeln('Тестирование контроллера ПНЧ');
  bs.InitDefault;
  c.InitDefault(bs);
  m.InitDefault(bs);

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

  write('Калибровка...');
  c.exCalibrate;
  if c.ErrorCode=0 then begin
    writeln('закончена.');
  end else  begin
    writeln('ошибка: ', c.ErrorMessage(c.ErrorCode));
  end;

    write('Старт измерения...');
    c.exStart;
    if c.ErrorCode=0 then begin
      writeln('закончен.');
    end else  begin
      writeln('ошибка: ', c.ErrorMessage(c.ErrorCode));
    end;

    write('Чтение данных измерения...');
    c.exRead;
    if c.ErrorCode=0 then begin
      writeln('закончено.');
    end else begin
      writeln('ошибка: ', c.ErrorMessage(c.ErrorCode));
    end;

    writeln('Каналы ПНЧ:');
    for cl:=1 to 9 do begin
      write(' ',Byte(cl):1, ': ', c.Channel(cl):10);
      if (cl div 3)*3=cl then writeln;
    end;
    writeln;

    write('Старт измерения (Fast) ...');
    c.FastMode(True);
    c.exStart;
    if c.ErrorCode=0 then begin
      writeln('закончен.');
    end else  begin
      writeln('ошибка: ', c.ErrorMessage(c.ErrorCode));
    end;

    write('Чтение данных измерения...');
    c.exRead;
    if c.ErrorCode=0 then begin
      writeln('закончено.');
    end else begin
      writeln('ошибка: ', c.ErrorMessage(c.ErrorCode));
    end;

    writeln('Каналы ПНЧ:');
    for cl:=1 to 9 do begin
      write(' ',Byte(cl):1, ': ', c.Channel(cl):10);
      if (cl div 3)*3=cl then writeln;
    end;
    writeln;
exit;

  m.exScroll(-cMax); m.SetNoError;

  i:=0;
  while (i<cMax) and (m.ErrorCode=0) and (c.ErrorCode=0) do begin
    write('Изменение поля...');
    Inc(i, cInc); m.exScroll(cInc);
    if m.ErrorCode=0 then begin
      writeln('закончено.');
    end else  begin
      writeln('ошибка: ', c.ErrorMessage(c.ErrorCode));
    end;

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

    writeln('Каналы ПНЧ:');
    for cl:=1 to 9 do begin
      write(' ',Byte(cl):1, ': ', c.Channel(cl):10);
      if (cl div 3)*3=cl then writeln;
    end;
    writeln;
  end;

  m.SetNoError; m.exScroll(-cMax);
END.