Монтаж, эксплуатация и ремонт технологического оборудования. Курсовое проектирование. Юнусов Г.С - 136 стр.

UptoLike

135
.TextMatrix(9, 0) = "Расст.от стрелы крана до точки O1,
включая зазор между элементом и стрелой,м d'="
.TextMatrix(10, 0) = "Высота шарнира пяты стрелы от
уровня стоянки крана (1-2м) hш="
.TextMatrix(11, 0) = "Расстояние от оси вращения крана до
оси шарнира пяты стрелы (1-2м) с="
.TextMatrix(12, 0) = "Расстояние от центра строповки эле-
мента до точки O2,м b="
.TextMatrix(13, 0) = "Угол наклона основной стрелы к гори-
зонту (75-80°) альфа="
.TextMatrix(14, 0) = "Угол наклона гуська к горизонту (25-
30°) бэта="
.TextMatrix(15, 0) = "Длина гуська, м I2="
End With
With MSFlexGrid2(2)
.ColWidth(0) = 8620
.Height = 1640
.FixedAlignment(0) = flexAlignCenterCenter
.FixedAlignment(1) = flexAlignCenterCenter
.Rows = 6
.TextMatrix(0, 0) = "Наименование"
.TextMatrix(0, 1) = "Значение"
.TextMatrix(1, 0) = "Требуемая высота подъема крюка кра-
на, м Hкр(тр)="
.TextMatrix(2, 0) = "Миним. требуемое расстояние от уров-
ня стоянки крана до верха стрелы Нст(тр)="
.TextMatrix(3, 0) = "Требуемый вылет крюка, м Lкр(тр)="
.TextMatrix(4, 0) = "Требуемая грузоподъемность, т
Q(треб)>="
.TextMatrix(5, 0) = "Требуемая длина стрелы крана, м
Iстр(тр)="
End With
'Таблицы для технико-экономических показателей кра-
нов
Frame1(3).Height = 5200
With MSFlexGrid1(3)
.ColWidth(0) = 8620
.Height = 2905
.FixedAlignment(0) = flexAlignCenterCenter
.FixedAlignment(1) = flexAlignCenterCenter
      .TextMatrix(9, 0) = "Расст.от стрелы крана до точки O1,
включая зазор между элементом и стрелой,м d'="
      .TextMatrix(10, 0) = "Высота шарнира пяты стрелы от
уровня стоянки крана (1-2м)            hш="
      .TextMatrix(11, 0) = "Расстояние от оси вращения крана до
оси шарнира пяты стрелы (1-2м) с="
      .TextMatrix(12, 0) = "Расстояние от центра строповки эле-
мента до точки O2,м              b="
     .TextMatrix(13, 0) = "Угол наклона основной стрелы к гори-
зонту (75-80°)             альфа="
     .TextMatrix(14, 0) = "Угол наклона гуська к горизонту (25-
30°)                   бэта="
      .TextMatrix(15, 0) = "Длина гуська, м   I2="
    End With
    With MSFlexGrid2(2)
      .ColWidth(0) = 8620
      .Height = 1640
      .FixedAlignment(0) = flexAlignCenterCenter
      .FixedAlignment(1) = flexAlignCenterCenter
      .Rows = 6
      .TextMatrix(0, 0) = "Наименование"
      .TextMatrix(0, 1) = "Значение"
      .TextMatrix(1, 0) = "Требуемая высота подъема крюка кра-
на, м                   Hкр(тр)="
      .TextMatrix(2, 0) = "Миним. требуемое расстояние от уров-
ня стоянки крана до верха стрелы Нст(тр)="
      .TextMatrix(3, 0) = "Требуемый вылет крюка, м Lкр(тр)="
      .TextMatrix(4, 0) = "Требуемая грузоподъемность, т
Q(треб)>="
      .TextMatrix(5, 0) = "Требуемая длина стрелы крана, м
Iстр(тр)="
    End With
    'Таблицы для технико-экономических показателей кра-
нов
    Frame1(3).Height = 5200
    With MSFlexGrid1(3)
      .ColWidth(0) = 8620
      .Height = 2905
      .FixedAlignment(0) = flexAlignCenterCenter
      .FixedAlignment(1) = flexAlignCenterCenter
                              135