Практическая работа. Программирование на vb 6.0. Создание проектов с использованием процедур и функций


Практическая работа 7, 11 класс, VB6
Учитель Кравченко Лора Викторовна
Общеобразовательная школа № 1, г. Горловка, 2008 год.


Фамилия Класс Дата



Практическая работа №7

Тема: «Создание проектов с использованием процедур и
функций».

Цели:
По завершении работы вы сможете:
Использовать математические функции во время создания проектов;
Создавать программы с использованием подпрограмм.

Ход работы

Виды подпрограмм.

В большинстве языков используется два вида подпрограмм: процедура и функция, причем оба вида подразделяются на две группы: стандартные (встроенные) и созданные программистом (общие).
Отличие между процедурами и функциями состоит в том, что функция может вычислить и возвратить в основную программу значение только одной величины, а процедура формирует значение одной и более величин, т.е. у неё может быть несколько параметров – результатов разного типа.
Встроенные функции (математические).

Sqr(x) – извлечение квадратного корня
·х;
Cos(x) – косинус числа х;
Sin(x) - синус числа х;
Tan(x) – тангенс числа х;
Fix(x) – целое число, равное числу х без дробной части;
Abs(x)- модуль числа х.
3. Подпрограммы функции
Вызов подпрограммы-функции осуществляется так же, как и вызов стандартных математических функций и не вызывается, подобно процедуре, из какого-нибудь места программы, а включается в состав выражения, значение которого как-то используется в том или ином месте программы.

Определение функции:
[Область видимости][Static]Function Имя_Функции (Список параметров) _
As Тип_Значения

Выполняемые операторы
End Function

Пример программного кода определения функции Площадь_Треугольника, если известны три его стороны:

Public Function Площадь_Треугольника(a!, b!, c!,) As Double
p = (a + b + c) / 2
Площадь_Треугольника =Sqr (p * (p - a) * (p - b) * (p - c))
End Function
4. Общие процедуры

Вызов общей процедуры:

Call Имя_Процедуры (Список_параметров_вызова)

Упрощенная форма вызова:

Имя_процедуры Список_параметров_вызова

б) Определение общей процедуры:

[Область видимости][Static]Sub Имя-Процедуры (Список параметров)
Выполняемые операторы
End Sub
в) Размещение программного кода общей процедуры:
Один из вариантов: в окне программного кода для данной экранной формы (файле frm) .
Для этого существуют два способа:
Способ 1. Необходимо поместить курсор в то место Окна программного кода, которое не принадлежит никакой процедуре. Можно щелкнуть элемент (General) списка Object. Курсор автоматически переместится в область, общую для всех процедур модуля экранной формы. Ввести строку для определения общей процедуры.
Способ 2. Можно использовать меню Tools Главной панели проекта. Выбирается команда Add Procedure. После этого появляется панель, которая предназначена для создания, как общих процедур, так и процедур-функций.

Пример программного кода для вычисления площади треугольников по формуле Герона с использованием общей процедуры:

Private Sub Command1_Click()
Scale (0, 0)-(10, 10)
xa! = 1: ya! = 1: xb! = 3: yb! = 3: xc! = 5: yc! = 1.5
Ploshad xa, xb, xc, ya, yb, yc, S!
xa = 1.8: ya = 2: xb = 4: yb = 4: xc = 5: yc = 2.5
Ploshad xa, xb, xc, ya, yb, yc, S
xa = 5: ya = 5: xb = 9: yb = 3: xc = 6.8: yc = 1.5
Ploshad xa, xb, xc, ya, yb, yc, S
End Sub

Public Sub Ploshad(xa, xb, xc, ya, yb, yc, S)
a = Sqr((xa - xb) ^ 2 + (ya - yb) ^ 2)
b = Sqr((xb - xc) ^ 2 + (yb - yc) ^ 2)
c = Sqr((xa - xc) ^ 2 + (ya - yc) ^ 2)
p = (a + b + c) / 2
S = Sqr(p * (p - a) * (p - b) * (p - c))
Line (xa, ya)-(xb, yb)
Line (xc, yc)-(xb, yb)
Line (xa, ya)-(xc, yc)
Print S
End Sub
Задание на практическую работу

Создайте приложение, позволяющее вычислить длины ребер трех прямоугольных параллелепипедов, если известны их объемы и площади основания, причем, площадь каждого основания – квадрат. Объем и площадь вводятся в текстовые поля, результат появляется также в текстовом поле. Используйте подпрограмму-процедуру.

Задание для успешно справившихся:

Напишите программу для нахождения площади кольца, ограниченного окружностями с радиусами R1 и R2, используя для вычисления площади круга подпрограмму-функцию.

Контрольные вопросы

Рассмотрите внимательно пример программного кода для вычисления площади треугольника по формуле Герона. Какая переменная процедуры Ploshad не является ни входным, ни выходным параметром? Каков её математический смысл? _______________________________________________________________ __________________________________________________________________________________________________________________________________________________________________________________________________________________
Что вы увидите на экранной форме в результате выполнения этой программы? ______________________________________________________________________ _____________________________________________________________________________________________________________________________________________________________________________________________
Приведите пример подпрограммы, не имеющей входных, либо выходных параметров. ___________________________________________________________ ________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
Здесь запишите программные коды для первой и второй задач:





























Оценка:

(Теория + Практика) / 2 = Итог


+ =











Приложенные файлы

  • doc file58
    Размер файла: 132 kB Загрузок: 1

Добавить комментарий