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

                                                      ПРИЛОЖЕНИЕ 18
  '***************************************************************
  '*        ВЫБОР МОНТАЖНОГО КРАНА                             *
  '* По заданным данным производит расчет                          *
  '* основных параметров монтажных кранов                          *
  '* трех типов:                                            *
  '*          1. Башеный кран                                 *
  '*          2. Самоходный кран оснащенный стрелой *
  '*          3. Самоходный кран оснащенный гуськом *
  '* Версия программы 1.0 от 18.01.2008 г.                           *
  '* Авторы программы: Г.С. Юнусов, профессор,                       *
  '* доктор технических наук                                   *
  '* В.Л. Торопов, ведущий программист ИВЦ, МарГУ *
  '***************************************************************
  Dim Dat(1 To 4, 1 To 50) As Double 'Исходные данные
  Dim Rez(1 To 4, 1 To 50) As Double 'Вычисленные параметры
  Public N As Integer
  Public I As Integer
  Public J As Integer
  Public X As Double
  Public Y As Double
  Public L1 As Double
  Public L2 As Double
  Public I2 As Double
  Public Alfa As Double
  Public Beta As Double
  Public StrR As String
  Public FlName As String
  Const Titul = "Выбор монтажных кранов"
  Const Zero = 0.00000000000001
  Const FName = "Data" 'Имя файла по умолчанию
  Const ExtName = "dat" 'Расширение файла по умолчанию
  Public Sub Computer(Nomer As Integer)
  'Производит вычисления для крана Nomer
  With MSFlexGrid1(Nomer - 1)
  'Преобразуем данные строкого типа из таблицы 1 в число-
вые N = .Rows - 1
    For I = 1 To N
     StrR = .TextMatrix(I, 1)
     StrR = Replace(StrR, ",", ".")

                                  128