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

         Dim X1 As Single 'Координата X верхнего левого угла рамки
         Dim Y1 As Single 'Координата Y верхнего левого угла рамки
         Dim L1r As Single 'Долгота верхнего левого угла рамки
         Dim L2r As Single 'Долгота нижнего правого угла рамки
         Dim X2 As Single 'Координата X нижнего правого угла рамки
         Dim Y2 As Single 'Координата Y нижнего правого угла рамки
         Dim dLr As Single 'Разность долгот рамки
         Dim Kx As Single 'Коэффициент по оси x
         Dim Ky As Single 'Коэффициент по оси y
         Dim xt As Single 'Координата x текущей точки
         Dim yt As Single 'Координата y текущей точки
         Dim dLt As Single 'Разность долгот левой рамки карты и текущей точки
         Dim Lt As Single 'Долгота текущей точки
         Dim fsrk As Single 'Средняя широта карты
         Dim fsrt As Single 'Средняя широта текущей точки
         Dim OTr As Single 'Отшествие между верхним левым и нижним правым
     углами карты
         Dim OTt As Single 'Отшествие текущей точки
         Dim RMCHr As Single 'РМЧ рамки карты
         Dim rmcht As Single 'Разность меридиональных частей текущей точки
         Dim dfr As Single 'Разность широт верхней и нижней рамок карты
         Dim dft As Single 'Текущая разность широт
         Dim dfti As Single 'Предыдущее значение текущей разности широт
         Dim Ft As Single 'Широта текущей точки
         3. Переходим к окну дизайнера форм и дважды щѐлкаем по
            элементу Option1. Перейдя к окну кодов, в место, в котором
            находится курсор, записываем следующие коды:
         'Привязка карты (перевод географических координат в 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
         fsrk = (f1r + f2r) / 2

56