program Test;

Uses Crt, c_Bus, c_Volts;

var
  cv:c_Volts.tCtrl;
  bs:c_Bus.tCtrl;

  cl:tChannel;
  b:boolean;
  v:longint;

begin
  writeln;
  writeln('Тестирование контроллера напряжений ');
  bs.InitDefault;
  cv.InitDefault(bs);

  for cl:=tChannel(0) to Lens do begin
    cv.Channel(cl);
    v:=cv.exCurVoltage;
    writeln('Канал ',Byte(cl),': V=', v, ' мкV',
	    ': ошибка ', cv.ErrorCode, ' ', cv.ErrorMessage(cv.ErrorCode));
  end;
END.