Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!
Порядок выполнения. 9. Откройте новый проект, установите следующие объекты и измените им свойства
|
|
9. Откройте новый проект, установите следующие объекты и измените им свойства
| Объект | Свойство | Значение |
| Рамки | Caption | Длины сторон треугольника |
| Caption | Результаты проверки | |
| Текстовые окна | Name | TxtA |
| Name | TxtB | |
| Name | TxtC | |
| Метки | Name | LblInfo1 |
| Caption | (отсутствует) | |
| Name | LblInfo2 | |
| Caption | (отсутствует) | |
| Name | LblInfo3 | |
| Caption | (отсутствует) | |
| Name | LblInfo4 | |
| Caption | (отсутствует) | |
| Командная кнопка | Name | CmdProverka |
| Caption | Проверить |
10.
 |
Приведите свою форму в соответствие с образцом
11. В окне кода процедуры обработки события Click набрать для объекта cmdProverka
Dim a, b, c As Integer
Dim info As String
a = Val(txtA.Text)
b = Val(TxtB.Text)
c = Val(TxtC.Text)
'проверка существует ли треугольник
If (a > = b + c) Or (b > = a + c) Or (c > = a + b) Then
LblInfo1.Caption = " треугольник не существует"
Else
LblInfo1.Caption = " треугольник существует"
End If
'проверка на равенство сторон
If a = b And a = c Then
LblInfo2.Caption = " треугольник равносторонний"
Else
LblInfo2.Caption = " треугольник не равносторонний"
End If
'проверка на равнобедренность
If a = b Or a = c Or b = c Then
LblInfo3.Caption = " треугольник равнобедренный"
Else
LblInfo3.Caption = " треугольник не равнобедренный"
End If
'проверка на наличие прямого угла
If (a ^ 2 = b ^ 2 + c ^ 2) Or (b ^ 2 = a ^ 2 + c ^ 2) Or (c ^ 2 = a ^ 2 + b ^ 2) Then
LblInfo4.Caption = " треугольник прямоугольный"
Else
LblInfo4.Caption = " треугольник не прямоугольный"
End If
12. Проверьте работу программы.
13. Измените приложение так, чтобы оно определяло, умещается ли треугольник с заданными сторонами в окружность заданного радиуса. (самостоятельно).
14. Результат показать преподавателю.
|
|