Ход работы

Постановка задачи

End Sub

End If

Else

Label3.Caption = Str(b) + " больше " + Str(a)'действия, если условие неверно

9. Напишите обработчик события Click для кнопки «Очистить», применив навыки, полученные при выполнении предыдущих лабораторных работ

10. Сохраните проект (выбрав File – Save frmМаксимум.frm и Save Максимум.vbp) в папке 6.1.

11. Проверьте работоспособность проекта, запустив его на выполнение.

12. Создайте exe-файл программы с помощью команды File → Make Максимум.exe.

13. Выйдите из среды Visual Basic.

14. Запустите на выполнение файл Максимум.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.

Задание 2. Программа вычисления значения функции.

Составить программу, которая вычисляет значение функции в зависимости от введенного пользователем значения аргумента X по формуле:

Программа также должна иметь кнопку для очистки полей ввода и вывода данных

1. Создайте папку Лабораторная_работа_№6, а в ней папку – 6.2.

2. Запустите программу Microsoft Visual Basic 6.0.

3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».

4. Разместите на форме 2 компонента CommandButton, 3 компонента Label, 1 компонент TextBox, 1 компонент Image, в котором будет находиться изображение формулы функции.

5. Установите свойства компонентов в соответствии с Таблицей 6.2. Примерный внешний вид приложения приведен на Рис.6.2

Таблица 6.2 – Значения свойств компонентов приложения «Значение функции»

Компонент	Свойство	Значение
Form1	Caption	Значение функции
Name	frmФункция
MinButton, MaxButton	False
Command1	Caption	Вычислить значение функции
Name	cmdY
Label1	Caption	Введите значение аргумента X:
Label2	Caption	Значение функции равно:
Label3	Caption
Command2	Caption	Очистить
Name	cmdO4istka
TextBox1	Text
Image1	Picture	Загрузите изображение с формулой функции
Для всех компонентов свойство Font и Color – по своему усмотрению У компонентов CommandButton свойство Style = 1 Graphical

6. Откройте окно программного кода (View - Code).

7. В верхних строках программного кода опишите переменные входных и выходных данных:

Dim x As Single, y As Single

8. Щелкните два раза по кнопке «Вычислить значение функции» и напишите обработчик события Click (необходимые комментарии приведены после апострофов):

Private Sub CmdY_Click()

x = Val(Text1.Text) 'получение числа X из поля Text1

If (x > 0) Then 'Задаем условие, которое необходимо проверить

y = 2 / x 'действия, если x>0

Дата добавления: 2014-12-23