Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Порядок выполнения. 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. Результат показать преподавателю.



Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.007 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал