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

UptoLike

ВУЗ: 

МГУ им. Невельского | Владивосток

Составители: 

Рубрика: 

59
Рис. 11. Графическое представление результатов работы программы ЭКС «Кадет»
Код программы-приложения ЭКС «Кадет» для северных широт и
восточных долгот и плавании судна курсами в NE четверти приведѐн
ниже.
Код программы-приложения ЭКС «Кадет»
'Объявление переменных величин (разработка главной формы)
Dim f1 As Single 'Широта пункта отхода
Dim f2 As Single 'Широта пункта прихода
Dim L1 As Single 'Долгота пункта отхода
Dim L2 As Single 'Долгота пункта прихода
Dim df As Single 'Разность широт
Dim dL As Single 'Разность долгот
Dim fsr As Single 'Средняя широта
Dim OT As Single 'Отшествие
Dim K As Single 'Истинный курс
Dim S As Single 'Расстояние
Dim V As Single 'Скорость
Dim T As Single 'Время
'Объявление переменных величин (привязка карты)
Dim f1r As Single 'Широта верхнего левого угла рамки карты
Dim f2r As Single 'Широта нижнего правого угла рамки
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 'Разность широт верхней и нижней рамок карты 
Рис. 11. Графическое представление результатов работы программы ЭКС «Кадет»

   Код программы-приложения ЭКС «Кадет» для северных широт и
восточных долгот и плавании судна курсами в NE четверти приведѐн
ниже.

              Код программы-приложения ЭКС «Кадет»

   'Объявление переменных величин (разработка главной формы)
    Dim f1 As Single 'Широта пункта отхода
    Dim f2 As Single 'Широта пункта прихода
    Dim L1 As Single 'Долгота пункта отхода
    Dim L2 As Single 'Долгота пункта прихода
    Dim df As Single 'Разность широт
    Dim dL As Single 'Разность долгот
    Dim fsr As Single 'Средняя широта
    Dim OT As Single 'Отшествие
    Dim K As Single 'Истинный курс
    Dim S As Single 'Расстояние
    Dim V As Single 'Скорость
    Dim T As Single 'Время
   'Объявление переменных величин (привязка карты)
   Dim f1r As Single 'Широта верхнего левого угла рамки карты
   Dim f2r As Single 'Широта нижнего правого угла рамки
   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 'Разность широт верхней и нижней рамок карты
                                                                        59

Страницы