Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 9
Тема: Процедуры общего назначения Цель: Получить навыки использования вызываемых процедур и функций Часть Постановка задачи: Разработать приложение нахождения максимума из четырех чисел, используя функцию нахождения максимума из двух. Порядок выполнения: 1. Установите на форме следующие объекты и измените им свойства:
2. Приведите свою форму в соответствие с образцом 3. В окне кода процедуры обработки события Click для объекта Cmd набрать:
Dim x1 As Single, x2 As Single Dim x3 As Single, x4 As Single x1 = Val(Text1.Text) x2 = Val(Text2.Text) x3 = Val(Text3.Text) x4 = Val(Text4.Text) TxtMax.Text = max(max(x1, x2), max(x3, x4)) 4. Создать функцию нахождения максимума из двух значений, для этого: - в окне программного кода в списке Object выбрать General - набрать следующий текст
Function max(a As Single, b As Single) As Single If a > b Then max = a Else max = b End If End Function 5. Проверить работу программы 6. Изменить программу, для того чтобы она определяла и максимум и минимум (самостоятельно создайте еще одну функцию) 7. Результат показать преподавателю
Часть Постановка задачи: Разработать приложение, которое строит три вида графика. Для подготовки графического поля перед выводом графика разработать вызываемую процедуру
8. Добавьте на форму графическое окно (PicDraw) и три командных кнопки (Cmd1, Cmd2, Cmd3) 9. Приведите свою форму в соответствие с образцом 10. Создайте процедуру общего назначения для инициализации графического окна, для этого: - в окне программного кода в списке Object выбрать General - набрать следующий текст
|