Самостоятельная работа 8, 9

8. Разработайте приложение вычисления объема цилиндра и конуса, которые имеют одинаковую высотуHи одинаковый радиус основанияR. Разработайте диалоговое окно для ввода исходных данных и вывода результатов. В диалоговом окне расположите рисунок задания. Объем цилиндра вычисляется по формулеV=R²H, а объем конуса — по формулеV=1/3R²H, где=3,14.

9. Создайте приложение вычисления периметра и площади треугольника. Площадь треугольникаSрассчитывается по формуле Герона:P=(A+B+C)/2;S=,

где: A,B,C— стороны треугольника;P— полупериметр треугольника.

Разработайте диалоговое окно для ввода исходных данных и вывода результатов. В диалоговом окне расположите рисунок задания. Проверьте подкоренное значение. Если значение отрицательное или равно 0 выведите сообщение об ошибке.

Практическое задание № 10

Создадим приложение, имитирующее игровой автомат. Игра начинается при нажатии на кнопку Играем. После нажатия появляются три одноразрядных десятичных числа. Если хотя бы одно из них равно 7, то вы выиграли, и появляется изображение денег. Если же ни одно из трех выпавших чисел не равно 7, то изображение не появляется.

Технология:

Создайте новый файл. Сохраните его. Создайте диалоговое окно. В диалоговом окне элементы управления:

• CommandButton1 — кнопка для начала игры

• CommandButton2 — кнопка для закрытия формы

• Ladel1,Ladel2,Ladel3 — окна для вывода случайных чисел

• Ladel4 — метка для названия игры

• Ladel5 — метка для вывода фамилии

• Image1 — окно для вывода рисунка в случае выигрыша.

Установите значения свойств для объектов формы.

Установите значения свойств для первых трех надписей Ladel1,Ladel2,Ladel3.

Свойства надписей будут одинаковыми, поэтому задайте их для группы объектов.

Свойство	Значение
Caption	Удалить
Font	Verdana, жирный, 24
Width	50
Height	50
SpecialEffect	2
TextAlign	2

Установите значения свойств для надписей Ladel4 и Ladel5 самостоятельно.

Свойство	Значение
Caption
Font
Width
Height
SpecialEffect
TextAlign
ForeColor
BorderStyle

Установите значения свойств для рисунка Image1

Свойство	Значение
BorderStyle	1
SpecialEffect	2
PictureAlignmtnt	2
Picture	Вызвать построитель и указать путь к рисунку
Visible	False
AutoSize	True
PictureSizeMode	3

Программа для кнопки «Играть».

Текст программы	Пояснение
Private Sub CommandButton1_Click()	Начало программы
Randomize Timer	Инициализация датчика случайных чисел. Используется для генерации различных значений при каждом новом запуске программы
Image1. Visible = False	Скрыть рисунок. Установив свойство Falseстираем рисунок, который может остаться от предыдущей игры
Ladel1. Caption = Int(Rnd*10)	Эти три строки генерируют случайные числа между 0 и 1. Функция Intвозвращает целую часть аргумента (в данном случае — произведение случайного числа на 10 и отбрасывает дробную часть аргумента). Затем случайные числа присваиваются названиям первых трех надписей, после чего они появляются на экране в форме
Ladel2.Caption=Int(Rnd*10)
Ladel3.Caption=Int(Rnd*10)
If(Ladel1. Caption=7) Or (Ladel2. Caption=7) Or (Ladel3. Caption=7) then Image1. Visible=True	В этой строке, проверяется нет ли семерок среди полученных трех случайных чисел. Если хотя бы одна семерка есть, картинка делается видимой
EndSub	Конец программы

Составьте программу для кнопки выход. Создайте кнопку на листе для вывода формы.