Компьютерные технологии в судовождении. Фадюшин С.Г. - 60 стр.

     Dim dft As Single 'Текущая разность широт
     Dim dfti As Single 'Предыдущее значение текущей разности широт
     Dim Ft As Single 'Широта текущей точки

    Private Sub Command1_Click()
    f1 = Text1.Text ‘Ввод исходных данных в соответствующее текстовое поле
    L1 = Text2.Text
    f2 = Text3.Text
    L2 = Text4.Text
    df = f2 f1
    dL = L2 L1
    fsr = (f1 + f2) / 2
    OT = (dL / 57.3) * Cos(fsr / 57.3) ‘Углы под знаком тригонометрической функ-
ции вводятся в радианах
    K = OT / (df / 57.3)
    K = Atn(K)
    S = (((df / 57.3) * (1 / Cos(K))) * 57.3) * 60
    K = K * 57.3
    Text6.Text = K ‘Вывод результатов в соответствующее текстовое поле
    Text7.Text = S
    V = Text5.Text
    T=S/V
    Text8.Text = T
    End Sub

     Private Sub Command2_Click()
     End
     End Sub

     'Привязка карты (перевод географических координат в X и Y)
     Private Sub Option1_Click()
     f1r = Text13.Text
     L1r = Text14.Text
     X1 = Text15.Text
     Y1 = Text16.Text
     f2r = Text17.Text
     L2r = Text18.Text
     X2 = Text19.Text
     Y2 = Text20.Text
     Ft = Text11.Text
     Lt = Text12.Text
     dLr = L2r L1r
     Kx = (X2 X1) / dLr
     dLt = Lt L1r
     xt = dLt * Kx
     xt = X1 + xt
     Text9.Text = xt
60