program Test;

Uses WinDOS, FNameTransform, c_CVF, c_MI1201;

var
  c:c_MI1201.tCtrl;

  cl:c_CVF.tChannel;
  i:longint;

const
  cMax=500000;
  cInc=1000;

begin
  writeln;
  writeln('Тестирование контроллера МИ1201');
  write('Инициализация...');
  c.InitDefault;
  if c.ErrorCode=0 then begin
    writeln('закончена.');
  end else  begin
    writeln('ошибка: ', c.ErrorMessage(c.ErrorCode));
  end;

  writeln('  Тестирование сохранение состояния контроллера МИ1201');
  c.SaveToFile(GetPath(ParamStr(0))+'Mi1201.dat');
  if c.ErrorCode=0 then begin
    writeln('закончено.');
  end else  begin
    writeln('ошибка: ', c.ErrorMessage(c.ErrorCode));
  end;
  writeln('  Тестирование восстановления состояния контроллера МИ1201');
  c.exRestoreFromFile(GetPath(ParamStr(0))+'Mi1201.dat');
  if c.ErrorCode=0 then begin
    writeln('закончено.');
  end else  begin
    writeln('ошибка: ', c.ErrorMessage(c.ErrorCode));
  end;
halt;

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

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

    write('Чтение данных измерения...');
    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.