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

UptoLike

133
End With
'Таблицы для 1 – крана (Самоходный кран со стрелой)
Frame1(1).Height = 6200
With MSFlexGrid1(1)
.ColWidth(0) = 8620
.Height = 3160
.FixedAlignment(0) = flexAlignCenterCenter
.FixedAlignment(1) = flexAlignCenterCenter
.Rows = 12
.TextMatrix(0, 0) = "Наименование"
.TextMatrix(0, 1) = "Значение"
.TextMatrix(1, 0) = "Высота опоры монтируемого элемента
от уровня стоянки крана, м h0="
.TextMatrix(2, 0) = "Запас по высоте между опорой и низом
монтируемого элемента(0,5-2м) hз="
.TextMatrix(3, 0) = "Высота монтируемого элемента, м
hэ ="
.TextMatrix(4, 0) = "Расч. высота грузозах. приспособления
от верха монт. элемента до центра крюка, м hс="
.TextMatrix(5, 0) = "Высота полиспаста в стянутом состоя-
нии (1,5-2,5м) hn="
.TextMatrix(6, 0) = "Масса монтируемого конструктивного
элемента, т Pк(n)="
.TextMatrix(7, 0) = "Масса установленной на нем оснастки,
т Pо(n)="
.TextMatrix(8, 0) = "Расстояние от центра строповки под-
нимаемого элемента до точки O1, м а="
.TextMatrix(9, 0) = "Расст.от стрелы крана до точки O1,
включая зазор между элементом и стрелой,м d'="
.TextMatrix(10, 0) = "Высота шарнира пяты стрелы от
уровня стоянки крана (1-2м) hш="
.TextMatrix(11, 0) = "Расстояние от оси вращения крана до
оси шарнира пяты стрелы (1-2м) с="
End With
With MSFlexGrid2(1)
.ColWidth(0) = 8620
.Height = 1640
.FixedAlignment(0) = flexAlignCenterCenter
   End With


    'Таблицы для 1 – крана (Самоходный кран со стрелой)
    Frame1(1).Height = 6200
    With MSFlexGrid1(1)
      .ColWidth(0) = 8620
      .Height = 3160
      .FixedAlignment(0) = flexAlignCenterCenter
      .FixedAlignment(1) = flexAlignCenterCenter
      .Rows = 12
      .TextMatrix(0, 0) = "Наименование"
      .TextMatrix(0, 1) = "Значение"
      .TextMatrix(1, 0) = "Высота опоры монтируемого элемента
от уровня стоянки крана, м           h0="
      .TextMatrix(2, 0) = "Запас по высоте между опорой и низом
монтируемого элемента(0,5-2м)         hз="
      .TextMatrix(3, 0) = "Высота монтируемого элемента, м
hэ ="
      .TextMatrix(4, 0) = "Расч. высота грузозах. приспособления
от верха монт. элемента до центра крюка, м hс="
      .TextMatrix(5, 0) = "Высота полиспаста в стянутом состоя-
нии (1,5-2,5м)                hn="
      .TextMatrix(6, 0) = "Масса монтируемого конструктивного
элемента, т                 Pк(n)="
      .TextMatrix(7, 0) = "Масса установленной на нем оснастки,
т                      Pо(n)="
      .TextMatrix(8, 0) = "Расстояние от центра строповки под-
нимаемого элемента до точки O1, м         а="
      .TextMatrix(9, 0) = "Расст.от стрелы крана до точки O1,
включая зазор между элементом и стрелой,м d'="
      .TextMatrix(10, 0) = "Высота шарнира пяты стрелы от
уровня стоянки крана (1-2м)            hш="
      .TextMatrix(11, 0) = "Расстояние от оси вращения крана до
оси шарнира пяты стрелы (1-2м) с="
    End With
    With MSFlexGrid2(1)
      .ColWidth(0) = 8620
      .Height = 1640
      .FixedAlignment(0) = flexAlignCenterCenter
                              133