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

       7. Переходим к окну дизайнера формы, для этого можно щѐлк-
          нуть мышью по соответствующей кнопке интегрированной
          среды разработки. Выбираем элемент, для которого требует-
          ся написать код (в данном случае это кнопка ПУСК), и два-
          жды щѐлкаем по нему левой кнопкой мыши. В то место, где
          находится курсор после выполнения вышеуказанной коман-
          ды (между ключевыми словами Private Sub Command1_Click() и
          End Sub), вписываем нижеприведѐнные коды:
    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
       8. Пункт 7 повторяем для кнопки ВЫХОД, в качестве кодов
          указав только один оператор End:
    Private Sub Command2_Click()
    End
    End Sub
       9. Запускаем программу, нажав кнопку START или клавишу F5.
    Примечание. В настоящем учебном пособии имена управляющих элементов
    заданы по умолчанию. Выбор информативных имѐн предлагается сделать са-
    мостоятельно.

                         Вопросы для самоконтроля

       1. Какие способы ввода данных в программу и вывода резуль-
          татов вы знаете?
       2. Что такое переменные и постоянные величины?
       3. Как задаются свойства элементов формы?
                                                               25