program Test;

Uses Crt, c_Bus, c_Count, MiscFunc;

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

  i:longint;
  n:byte;

const
  cMax=500000;
  cInc=1000;

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;

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

  write('Чтение данных...');
  i:=c.exRead;
  if c.ErrorCode=0 then begin
      write('закончено. ');
  end else begin
      writeln('ошибка: ', c.ErrorMessage(c.ErrorCode));
  end;
    writeln('Счетчик: ', i);
  Dec(n);
until (c.ErrorCode<>0) or (n=0);

END.