Создание процедур

1. В меню Файл выберите Создать проект.

2. В диалоговом окне Создание проекта в области Шаблоны выберите Приложение Windows.

3. В поле Имя введите MyFirstProcedure и нажмите кнопку ОК. Откроется новый проект Windows Forms.

4. Дважды щелкните форму, чтобы открыть редактор кода.

5. В редакторе кода найдите строку, в которой записано End Class. Это конец кода раздела, который составляет форму. Непосредственно перед этой строкой добавьте следующую процедуру:

Function GetTime() As String Return CStr(Now)End Function

Эта функция использует встроенную функцию Now, чтобы получить текущее время, а затем использует функцию CStr для преобразования значения, возвращенного Now, в удобный для восприятия тип String. Наконец, значение типа String возвращается как результат функции.

6. Над функцией, добавленной в предыдущем шаге, добавьте следующую Sub.

Sub DisplayTime() MsgBox(GetTime)End Sub

Эта процедура вызывает функцию GetTime и отображает возвращаемый ею результат в окне сообщения.

7. Наконец, добавьте строку в код обработчика событий Form1_Load, которая вызывает процедуру DisplayTime, как показано ниже.

DisplayTime()

8. Нажмите клавишу F5 для запуска программы.

При запуске программы выполняется код обработчика событий Form1_Load. Эта процедура вызывает подпрограмму DisplayTime, поэтому управление переходит к процедуре подпрограммы DisplayTime. Эта процедура в свою очередь вызывает функцию GetTime, поэтому управление переходит к функции GetTime. Эта функция возвращает значение типа String, представляющее время для процедуры DisplayTime, которая затем отображает эту строку в окне сообщения. После завершения выполнения подпрограммы, программа будет продолжать выполнение в обычном режиме и отобразит форму.

Параметры функций и подпрограмм

Иногда необходимо предоставить процедурам дополнительные сведения. Например, в процедуре PlaySound может потребоваться воспроизвести один из нескольких различных звуков. Можно предоставить сведения о том, какой именно звук нужно воспроизвести, с помощью параметров.

Параметры очень похожи на переменные. Они имеют тип и имя, а также хранят сведения, как переменные. Их можно использовать так же, как переменные в процедуре. Ниже приведены два основных различия между параметрами и переменными.

· Параметры объявляются в объявлении процедуры, а не в отдельных строках кода.

· Параметры могут использоваться только в процедуре, в которой они объявлены.

Параметры объявляются в объявлении процедуры в скобках, следом за именем процедуры. Ключевое слово As используется для объявления типа, каждому параметру обычно предшествует ключевое слово ByVal. Это ключевое слово будет добавлено Visual Basic автоматически, если его не добавить самостоятельно; и оно имеет еще одну дополнительную функцию, описание которой выходит за рамки этого занятия.

Здесь приведен пример подпрограммы с параметрами.

Sub PlaySound(ByVal SoundFile As String, ByVal Volume As Integer) My.Computer.Audio.Play(SoundFile, Volume)End Sub

Затем необходимо вызвать подпрограмму со значениями параметров, как показано ниже.

PlaySound("Startup.wav", 1)

Параметры для функций можно объявить таким же образом, как и для подпрограмм.

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