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

      ' Рассчитав значение момента инерции первой ступени, можно найти приведённый момент инерции редуктора.');

    mmRedu.Lines.Add('Для рассчёта пользуйтесь "Рассчётными формулами №2". Теперь необходимо пересчитать двигатель по'+

     '"Рассчётным формулам №1", с учётом момента инерции редуктора. ');

    mmRedu.Lines.Add('По полученным значениям коэффициентов перегрева и перегрузки двигателя судят об окончательном выборе данного двигателя.');

    mmRedu.Lines.Add('Требования к коэффициентам: 1,3 < Коэффициент перегрузки < 2,8; Коэффициент перегрева > 0,7.');

    mmRedu.Lines.Add('Чтобы проверить подходит ли данный двигатель нажмите кнопку "Проверить".');

imformuls2.Visible := true; // Показать формулы 2

    Button7.Caption := 'Расчёт ПФ';

    // Включаем кнопки

    Button1.Enabled := True;  // Активировать кнопку начать расчёт

    Button5.Enabled := True; // Включение кнопки редуктора

end; // else begin

 end; // else if Button7.Caption = 'Дальше >>' then

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

  // !!! <тест 4>

  if test_res[4].right<5 then

  begin

    Form1.Enabled:=false;

    Form2.SetTest(4);

    Form2.Show;

  end

  else begin

    mmEvent.Clear; // Очистка информационного поля

    Button8.Enabled := False;

    vars[9] := StrToFloat(Edit9.Text); // Возвращаем значение tau2, если оно изменилось

    // Включаем временно кнопки

    Button1.Enabled := True;  // включение кнопку начать расчёт

    Button5.Enabled := True; // включение кнопки редуктора

Button7.Enabled := True; // включение кнопки БД

    btView.Enabled := True; // включаем кнопку просмотр схемы

    CalcForDraw;

    PageControl1.ActivePageIndex:=4;

  end;

  // !!! <тест 4>

end;

procedure TForm1.OutputDM();

begin

  if(curDM=1) then

  begin

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

    DMGrid.RowCount:=9;

    DMGrid.ColCount:=9;

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

    DMGrid.Cells[0,1]:='101КТ1А';     DMGrid.Cells[1,1]:='6.3';     DMGrid.Cells[2,1]:='6.5';     DMGrid.Cells[3,1]:='3.5';     DMGrid.Cells[4,1]:='10';        DMGrid.Cells[5,1]:='0.6…0.9';   DMGrid.Cells[6,1]:='50';          DMGrid.Cells[7,1]:='100';     DMGrid.Cells[8,1]:='10';

    DMGrid.Cells[0,2]:='101КТ1Б';     DMGrid.Cells[1,2]:='6.3';     DMGrid.Cells[2,2]:='6.5';     DMGrid.Cells[3,2]:='3.5';     DMGrid.Cells[4,2]:='10';        DMGrid.Cells[5,2]:='0.6…0.9';   DMGrid.Cells[6,2]:='150';         DMGrid.Cells[7,2]:='100';     DMGrid.Cells[8,2]:='10';

    DMGrid.Cells[0,3]:='101КТ1В';     DMGrid.Cells[1,3]:='3.0';     DMGrid.Cells[2,3]:='3.5';     DMGrid.Cells[3,3]:='3.5';     DMGrid.Cells[4,3]:='10';        DMGrid.Cells[5,3]:='0.6…0.9';   DMGrid.Cells[6,3]:='50';          DMGrid.Cells[7,3]:='100';     DMGrid.Cells[8,3]:='10';

    DMGrid.Cells[0,4]:='101КТ1Г';     DMGrid.Cells[1,4]:='3.0';     DMGrid.Cells[2,4]:='3.5';     DMGrid.Cells[3,4]:='3.5';     DMGrid.Cells[4,4]:='10';        DMGrid.Cells[5,4]:='0.6…0.9';   DMGrid.Cells[6,4]:='150';         DMGrid.Cells[7,4]:='100';     DMGrid.Cells[8,4]:='10';

    DMGrid.Cells[0,5]:='К101КТ1А';    DMGrid.Cells[1,5]:='6.3';     DMGrid.Cells[2,5]:='-';       DMGrid.Cells[3,5]:='-';       DMGrid.Cells[4,5]:='-';         DMGrid.Cells[5,5]:='-';         DMGrid.Cells[6,5]:='100';         DMGrid.Cells[7,5]:='120';     DMGrid.Cells[8,5]:='40';

    DMGrid.Cells[0,6]:='К101КТ1Б';    DMGrid.Cells[1,6]:='6.3';     DMGrid.Cells[2,6]:='-';       DMGrid.Cells[3,6]:='-';       DMGrid.Cells[4,6]:='-';         DMGrid.Cells[5,6]:='-';         DMGrid.Cells[6,6]:='300';         DMGrid.Cells[7,6]:='120';     DMGrid.Cells[8,6]:='40';