Создание обучающей системы автоматизированного проектирования маломощных электромеханических следящих систем, страница 60

    DMGrid.Cells[0,5]:='К743КТ1А';    DMGrid.Cells[1,5]:='-6.3±1.5%';     DMGrid.Cells[2,5]:='63';         DMGrid.Cells[3,5]:='50';         DMGrid.Cells[4,5]:='40';          DMGrid.Cells[5,5]:='100';     DMGrid.Cells[6,5]:='3.5';         DMGrid.Cells[7,5]:='6.5';

    DMGrid.Cells[0,6]:='К743КТ1Б';    DMGrid.Cells[1,6]:='-6.3±1.5%';     DMGrid.Cells[2,6]:='63';         DMGrid.Cells[3,6]:='150';        DMGrid.Cells[4,6]:='40';          DMGrid.Cells[5,6]:='100';     DMGrid.Cells[6,6]:='3.5';         DMGrid.Cells[7,6]:='6.5';

    DMGrid.Cells[0,7]:='К743КТ1В';    DMGrid.Cells[1,7]:='-3±1.5%';       DMGrid.Cells[2,7]:='30';         DMGrid.Cells[3,7]:='50';         DMGrid.Cells[4,7]:='40';          DMGrid.Cells[5,7]:='100';     DMGrid.Cells[6,7]:='3.5';         DMGrid.Cells[7,7]:='6.5';

    DMGrid.Cells[0,8]:='К743КТ1Г';    DMGrid.Cells[1,8]:='-3±1.5%';       DMGrid.Cells[2,8]:='30';         DMGrid.Cells[3,8]:='150';        DMGrid.Cells[4,8]:='40';          DMGrid.Cells[5,8]:='100';     DMGrid.Cells[6,8]:='3.5';         DMGrid.Cells[7,8]:='6.5';

  end;

  if(curDM=5) then

  begin

    DMImage.Picture.LoadFromFile('img/dm_05.jpg');

    DMGrid.RowCount:=3;

    DMGrid.ColCount:=5;

    DMGrid.Cells[0,0]:='Обозн.';         DMGrid.Cells[1,0]:='Uпит, В';  DMGrid.Cells[2,0]:='Uост, мкВ';  DMGrid.Cells[3,0]:='Iут.вых, нА';  DMGrid.Cells[4,0]:='Rээ, Ом';

    DMGrid.Cells[0,1]:='К762КТ1А-1';     DMGrid.Cells[1,1]:='±30';      DMGrid.Cells[2,1]:='300';        DMGrid.Cells[3,1]:='100';          DMGrid.Cells[4,1]:='100';

    DMGrid.Cells[0,2]:='К762КТ1Б-1';     DMGrid.Cells[1,2]:='±30';      DMGrid.Cells[2,2]:='450';        DMGrid.Cells[3,2]:='150';          DMGrid.Cells[4,2]:='150';

  end;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

  curDM:=curDM+1;

  if(curDM>5) then curDM:=1;

  OutputDM();

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

  curDM:=curDM-1;

  if(curDM<1) then curDM:=5;

  OutputDM();

end;

procedure TForm1.OutputU();

begin

  if(curU=1) then

  begin

    UImage.Picture.LoadFromFile('img/u_01.jpg');

    UGrid.RowCount:=6;

    UGrid.ColCount:=7;

    UGrid.Cells[0,0]:='Тип МС';      UGrid.Cells[1,0]:='Uи.п., В';  UGrid.Cells[2,0]:='Ку на 12 кГц (5 МГц)';  UGrid.Cells[3,0]:='Uвых, В';  UGrid.Cells[4,0]:='Rвых, кОм'; UGrid.Cells[5,0]:='Uвх, В'; UGrid.Cells[6,0]:='Rвх, кОм';

    UGrid.Cells[0,1]:='К118УН1А';    UGrid.Cells[1,1]:='+6.3';      UGrid.Cells[2,1]:='250 (30)';      UGrid.Cells[3,1]:='1.0';      UGrid.Cells[4,1]:='1.2...3.0'; UGrid.Cells[5,1]:='1.2';    UGrid.Cells[6,1]:='2.0';

    UGrid.Cells[0,2]:='К118УН1Б';    UGrid.Cells[1,2]:='+6.3';      UGrid.Cells[2,2]:='400 (30)';      UGrid.Cells[3,2]:='1.5';      UGrid.Cells[4,2]:='1.2...3.0'; UGrid.Cells[5,2]:='1.2';    UGrid.Cells[6,2]:='2.0';

    UGrid.Cells[0,3]:='К118УН1В';    UGrid.Cells[1,3]:='+12.6';     UGrid.Cells[2,3]:='350 (50)';      UGrid.Cells[3,3]:='2.2';      UGrid.Cells[4,3]:='1.2...3.0'; UGrid.Cells[5,3]:='1.2';    UGrid.Cells[6,3]:='2.0';

    UGrid.Cells[0,4]:='К118УН1Г';    UGrid.Cells[1,4]:='+12.6';     UGrid.Cells[2,4]:='500 (50)';      UGrid.Cells[3,4]:='1.8';      UGrid.Cells[4,4]:='1.2...3.0'; UGrid.Cells[5,4]:='1.2';    UGrid.Cells[6,4]:='2.0';

    UGrid.Cells[0,5]:='К118УН1Д';    UGrid.Cells[1,5]:='+12.6';     UGrid.Cells[2,5]:='800 (50)';      UGrid.Cells[3,5]:='1.8';      UGrid.Cells[4,5]:='1.2...3.0'; UGrid.Cells[5,5]:='1.2';    UGrid.Cells[6,5]:='2.0';

  end;

  if(curU=2) then

  begin

    UImage.Picture.LoadFromFile('img/u_02.jpg');

    UGrid.RowCount:=4;

    UGrid.ColCount:=9;

    UGrid.Cells[0,0]:='Тип МС';      UGrid.Cells[1,0]:='Uи.п.1, В';  UGrid.Cells[2,0]:='Uи.п.2, В';  UGrid.Cells[3,0]:='Rвых, кОм';  UGrid.Cells[4,0]:='Rвх, кОм';  UGrid.Cells[5,0]:='Iвх, мкА';  UGrid.Cells[6,0]:='dIвх, мкА';  UGrid.Cells[7,0]:='Uвх, В';     UGrid.Cells[8,0]:='Ку на 12 кГц (5 МГц)';