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

       If StrR = "" Then Dat(Nomer, I) = 0 Else Dat(Nomer, I) =
Val(StrR)
     Next I
   End With
   If Nomer = 1 Then
   'Расчеты для крана 1 – Башенный кран
     Rez(1, 1) = Dat(1, 1) + Dat(1, 2) + Dat(1, 3) + Dat(1, 4)
     Rez(1, 2) = Rez(1, 1) + Dat(1, 5)
     Rez(1, 3) = Dat(1, 6) / 2 + Dat(1, 7) + Dat(1, 8)
     Rez(1, 4) = Dat(1, 9) + Dat(1, 10)
   End If
   If Nomer = 2 Then
   'Расчеты для крана 2 – Самоходный кран, оснащенный
стрелой
     Rez(2, 1) = Dat(2, 1) + Dat(2, 2) + Dat(2, 3) + Dat(2, 4)
     Rez(2, 2) = Rez(2, 1) + Dat(2, 5)
     Rez(2, 4) = Dat(2, 6) + Dat(2, 7)
     X = Dat(2, 5) + Dat(2, 4) 'hn+hc
     If Abs(X) < Zero Then
       Y=0
     Else
       Y = (Dat(2, 8) + Dat(2, 9)) * (Rez(2, 2) - Dat(2, 10))
       Y = Y / X + Dat(2, 11)
     End If
     Rez(2, 3) = Y 'Требуемый вылет крюка
     X = Rez(2, 3) - Dat(2, 11)
     Y = Rez(2, 2) - Dat(2, 10)
     Rez(2, 5) = Sqr(X * X + Y * Y)
   End If
   If Nomer = 3 Then
   'Расчеты для крана 3 – Самоходный кран, оснащенный
гуськом
     Rez(3, 1) = Dat(3, 1) + Dat(3, 2) + Dat(3, 3) + Dat(3, 4)
     Rez(3, 2) = Rez(3, 1) + Dat(3, 5)
     Rez(3, 4) = Dat(3, 6) + Dat(3, 7)
     Alfa = Dat(3, 13)
     Beta = Dat(3, 14)
     If (Sin(Alfa) < Zero) Or (Cos(Beta) < Zero) Then
       Rez(3, 5) = 0
       Rez(3, 3) = 0
                              129