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

        3. Щѐлкнуть мышью на кнопке соответствующего элемента,
           расположенного на панели элементов. В нашем примере не-
           обходимы следующие элементы: Надписи (Label), Тексто-
           вые поля (TextBox), Кнопки (CommandButton).
        4. Переместить указатель мыши на форму-заготовку и после
           того, как он примет вид перекрестия, нажать левую кнопку
           мыши и, не отпуская еѐ, выделить место для элемента. Кро-
           ме этого можно дважды щѐлкнуть по кнопке нужного эле-
           мента левой кнопкой мыши. Тогда он появится в центре
           формы-заготовки, и его можно будет перетащить мышью в
           нужное место и с помощью маркеров размеров изменить
           размер. Для перемещения элемента по форме-заготовке
           можно использовать также комбинацию клавиш Ctrl и кла-
           виши управления курсором (клавиши со стрелками), а для
           изменения размеров – комбинацию клавиш Shift и клавиши
           управления курсором.
        5. После того как все нужные элементы будут нанесены на
           форму-заготовку, необходимо изменить их свойства. Для
           этого активизируем нужный элемент (щѐлкаем по нему ле-
           вой кнопкой мыши) и в окне свойств указываем новые свой-
           ства, предварительно удалив свойства по умолчанию. На-
           пример, щѐлкнув мышью по форме, находим свойство
           Caption и вместо свойства, указанного по умолчанию
           (Form1), вписываем ЭКС «Кадет». То же самое проделыва-
           ем с другими элементами, кроме текстовых полей, указав
           соответствующее им свойство Caption.
        6. Переходим к окну кодов, для этого можно щѐлкнуть мышью
           по кнопке перехода к окну кодов (см. первую лекцию) и в
           самом начале программы (секция General) объявляем пере-
           менные величины, так, как это показано на фрагменте
     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 'Время

24