2015-05-14
228
1. Расположите на экранной форме объекты в соответствии с рис.13.19.
2. Установите значения свойства Name для текстовых полей соответственно txtA, txtB, txtC, txtUgA, txtUgB и txtUgC.
3. Установите значения свойства Name для кнопки — cmdStart.
4. Установите значения свойства Caption для формы, кнопки, меток в соответствии с рис.13.19.
Замечание. В языке Visual Basic нет встроенной функции arccos, но есть встроенная функция arctg (Atn).
5. Создайте функцию вычисления arccos через arctg:
Private Function Arccos(x As Single) As Single
Arccos = -Atn(x / Sqr(-x * x + 1)) + 1.5708
End Function
6. Создайте функцию вычисления углов:
Private Function Ugol(x As Single, у As Single, z As Single) As Single
Ugol = Arccos(у ^ 2 + z ^ 2 - x ^ 2) / (2 * у * z)
End Function
7. Напишите процедуру, которая будет выполняться при щелчке по кнопке < Вычислить >:
Private Sub cmdStart_Click()
Dim а As Single, b As Single, с As Single
а = Val(txtA.Text)
b = Val(txtB.Text)
с = Val(txtC.Text)
txtUgA = Str(Ugol(а, b, с))
txtUgB = Str(Ugol(b, а, с))
txtUgC = Str(Ugol(с, а, b))
End Sub
8. Проверьте правильность работы проекта.
9. Сохраните проект под именем ЛР13_Зад6.
ЗАВДАННЯ 13.7. Постановка задачи: ДОПОЛНИТЬ ПРОЕКТ ТАКИМ ОБРАЗОМ, ЧТОБЫ ОН ПОЗВОЛЯЛ ВЫВОДИТЬ ЗНАЧЕНИЯ УГЛОВ НЕ ТОЛЬКО В РАДИАНАХ, НО И В ГРАДУСАХ. ДЛЯ ПЕРЕВОДА ЗНАЧЕНИЙ УГЛОВ ИЗ РАДИАННОЙ МЕРЫ В ГРАДУСНУЮ СОЗДАТЬ ДОNОЛНИТЕЛЬНУЮ ФУНКЦИЮ.
|
|
|
ЛАБОРАТОРНА РОБОТА № 14. НАЛАГОДЖЕННЯ ПРОГРАМ
При работе над проектом, особенно сложным и большим, неизбежны ошибки. Поэтому при создании проекта важным этапом является отладка приложения — поиск и ликвидация ошибок. Этот процесс проходит четыре стадии:
ü определение факта наличия ошибок;
ü поиск ошибок;
ü выявление причин возникновения ошибок;
ü устранение ошибок.
В программах различают три категории ошибок:
ü синтаксические;
ü ошибки этапа выполнения программы;
ü логические.
Со всеми видами ошибок Вы, вероятно, уже встречались. Visual Basic располагает эффективными инструментами для поиска источников ошибок. В данной работе вы познакомитесь с некоторыми из них. Для большей наглядности будем рассматривать конкретные примеры.
