Расчет неприступного расстояния

Рис.39 Программа для расчета неприступного расстояния с помощью Visual Basic

Рис. 40. Расчет неприступного расстояния с помощью программы Visual Basic

Расчет превышения

Рассмотрим вычисление превышения с помощью Visual Basic. Будем исходить из того, что входные величины будут заданы в полях окна программы. Запустим систему Visual Basic. С помощью окна свойств изменим значение свойства Caption для формы со значения Form1 на Превышение. Поместим на форму одну командную кнопку. Пользуясь окном свойств зададим значение ее свойства Caption равным Расчет. Поместим на форму пять компонентов Text, разместив около каждого из них по компоненту Label (рис.42). Через окно свойств свойство Text каждого компонента Text заполним соотвествующими значениями величин (например, из тестового примера, разделитель между целой и дробной частью - точка).

Подписи полей ввода созданы с помощью компонентов Label, а именно в свойство Caption поместим: i1, S1-2 и т.д.

Выполним два быстрых щелчка на кнопке Расчет. Тем самым будет создан каркас процедуры обработки события, возникающего при нажатии на кнопку при последующем исполнении программы:

Private Sub Command1_Click()

End Sub

Между этими двумя строками необходимо поместить операторы, производящие расчет превышения.

Самым первым действием в процедуре обработки события должно быть очистка формы от предшествующих надписей. Это делается оператором cls. Затем необходимо прочитать введенные в поля значения величин. Для первой величины это можно сделать с помощью конструкции:

i1 = Val(Text1.Text).

В результате вычислений для тестового примера получаем результат, представленный на рис. 42.

Рис.41 Программа для расчета превышения с помощью Visual Basic

Рис.42 Расчет превышения с помощью Visual Basic

Для величин S и V2 нужно поступать аналогичным образом.

Величина n может быть введена следующим образом:

n = Val(Text4.Text) + Val(Text5.Text) / 60,

т.е. значение величины прочитывается с двух полей ввода.

После ввода исходных величин и введя постоянную величину pi = 3.1415926 необходимо выполнить вычисление превышения. Это можно сделать с помощью конструкции:

h = s * Tan(n * pi / 180) + i1 - v2 + 0.0675 * (s / 1000) ^ 2.

Здесь знаком ^2 обозначена операция возведения в квадрат, множитель pi/180 служит для преобразования из градусов в радианы, Tan – обозначает вызов стандартной функции тангенс.

После вычислений необходимо выдать результат на форму. Это можно сделать с помощью оператора:

Print "h= "; h.

Таким образом, вся процедура будет иметь вид:

Private Sub Command1_Click()

Cls

pi = 3.1415926

i1 = Val(Text1.Text): s = Val(Text2.Text): v2 = Val(Text3.Text)

n = Val(Text4.Text) + Val(Text5.Text) / 60

h = s * Tan(n * pi / 180) + i1 - v2 + 0.0675 * (s / 1000) ^ 2

Print "h= "; h

End Sub