Самостоятельно

1. Написать программу «Программирование таймера», которая бы демонстрировала временные промежутки таймера, задаваемые пользователем:

Форма

Код (сначала самостоятельно)

Dim a As Integer

Private Sub cmdTimerOn_Click()

If Option1.Value Then Timer1.Interval = 1000

If Option2.Value Then Timer1.Interval = 500

If Option3.Value Then Timer1.Interval = 100

Timer1.Enabled = True

End Sub

Private Sub cmdTimerOff_Click()

Timer1.Enabled = False

End Sub

Private Sub cmdUnset_Click()

Timer1.Enabled = False

Label1.Caption = ""

a = 0: Timer1.Interval = 0

End Sub

Private Sub Timer1_Timer()

a = a + 1

Label1.Caption = a

End Sub

2. Приложение выводит в метку слово ПРИВЕТ по букве в полсекунды.

Подпрограммы и функции Использование процедур в Visual Basic

Вы, скорее всего, уже работали с подпрограммами и функциями. Например, под­программами являются процедуры обработки событии Сlick() и Load(). Visual Basic имеет также ряд встроенных функций, например LoadPicture() и Len ().

Visual Basic — процедурный язык программирования. Это означает, что в нем можно создавать блоки программного кода, на которые затем можно ссылаться по имени. После того как блок кода получит имя, он может быть вызван и выполнен. Другими словами, можно написать несколько строк кода, заключив их в блок и присвоив блоку имя, а затем вызвать этот блок кода, когда в нем возникнет необходимость. Это по­хоже на программу в программе. Маленькие программы, "живущие" в больших про­граммах, называются функциями, если они возвращают какое-либо значение, и под­программами, если они значений не возвращают.

Программисты с давних пор создают собственные подпрограммы и функции. (Ключевое слово Sub, которое используется для обозначения подпрограмм, является со­кращением от subroutine — подпрограмма.) Подпрограммы и функции делают процесс программирования более простым и быстрым, а создаваемый код — более надежным. Создание собственных подпрограмм и функций — первый шаг к разработке инкапсули­рованного и повторно используемого кода. Под инкапсуляцией следует понимать сокры­тие реализации свойств и методов объекта за его внешним интерфейсом.

Подпрограммы дают возможность легко изменять программный код. Если какой-то фрагмент программы будет использоваться неоднократно, поместите его в подпро­грамму. Затем, при необходимости изменить этот код, достаточно будет внести соот­ветствующие изменения, только в саму подпрограмму. Если же не воспользоваться подпрограммой, придется просмотреть все включения этого фрагмента кода и внести необходимые изменения в каждый из них. Чем больше будет рассредоточен про­граммный код, тем .сложнее будет вносить в него изменения.

Создание и вызов простой подпрограммы

Подпрограмма представляет собой процедуру, выполняющую программный код в преде­лах своего блока и не возвращающую значения. Синтаксис простой подпрограммы таков:

[Private | Public] Sub ИмяПодпрограммы()

...строки кода

End Sub

• [Private | Public] — необязательные ключевые слова Visual Basic, опреде­ляющие область видимости подпрограммы.

• Sub — ключевое слово Visual Basic, определяющее тип процедуры (а имен­но — подпрограмму).

• ИмяПодпрограммы () — имя, присваиваемое подпрограмме.

• End Sub — ключевые слова Visual Basic, указывающие на окончание блока кода подпрограммы.

Следующий фрагмент кода является примером простой подпрограммы:

Public Sub Primer()

MsgBox "Пример вызова подпрограммы”, vbInformation

End Sub

При вызове этой подпрограммы из произвольной точки на экране появится сообщение «Пример вызова подпрограммы. Вызывать подпрограмму можно с помощью оператора Call или просто написать имя подпрограммы в нужном месте.

Создание процедур с помощью команды Add Procedure

1. Создайте новый проект.

2. Перейдите в окно редактирования кода.

3. Из меню Tools выберите пункт Add Procedure, чтобы открыть окно Add Procedure:

4. Введите имя процедуры в полое Name.

5. ОК

Создание простой функции

Функция — это процедура, которая выполняет строки своего кода и возвращает некоторое значение. Синтаксис простой функции таков:

[Private | Public] Function FunctionName() As DataType

...строки кода

FunctlonName = ReturnValue

End Function

• [Private | Public] — ключевое слово Visual Basic, определяющее область ви­димости функции.

• Function — ключевое слово Visual Basic, указывающее на то, что это именно функция.

• FunctionName() — имя, присваиваемое функции.

• As — ключевое слово Visual Basic, предваряющее назначение типа данных.

• DataType — тип данных возвращаемого значения.

• ReturnValue — собственно возвращаемое значение, которое должно быть присвоено имени функции (это очень важный момент!).

• End Function — ключевые слова Visual Basic, обозначающие конец данного блока кода.

Добавить в проект функцию можно теми же двумя способами, которые используются для добавления подпрограмм — ввести код функции непосредственно в раздел General объявлений формы или модуля и с помощью диалогового окна Add Procedure. Однако помните, что при создании функций с помощью диалогового окна Add Procedure все равно придется добавить некоторую часть кода функции вручную.

Передача аргументов в подпрограммах и функциях

Возможности подпрограмм и функций можно расширить с помощью аргументов. Аргументы (передаваемые значения), которые также называют параметрами, — это переменные, используемые для хранения значений, которые будут переданы в подпрограмму или функцию. Вы создаете аргументы, заключая их в круглые скобки в операторе объявления подпро­граммы или функции. Ниже приведено объявление функции EndDay (). Эта функция имеет два аргумента, один — типа Integer, второй — типа String:

Public Function EndDay(NumOne As Integer, strName As String) As Integer

Благодаря аргументам код становится более универсальным. Пусть, например, во многих частях программы требуется вычислять большее из двух чисел. Конечно, для этого можно каждый раз вводить один и тот же фрагмент кода строка за строкой. Но можно создать функцию, выполняющую соответствующие вычисления, и просто вы­зывать ее каждый раз, когда требуется вычислить большее из двух чисел.

Пример функции Greater(), которая воз­вращает большее из двух чисел, которые передаются ей в качестве аргументов.

Public Function Greater(NumOne As Integer, NumTwo As Integer) As Integer

' Если первое число больше второго,

If NumOne > NumTwo Then

' то возвращаем первое число

Greater = NumOne

Else

‘ в противном случае возвращаем второе

Greater = NumTwo

End If

End Function

Создайте приложение, которое возвращает большее из 5 введенных чисел.

Форма:

Код (сначала напишите его самостоятельно)

Private Sub Command1_Click()

Dim a, b, c, d, e As Integer

a = CInt(Text1.Text)

b = CInt(Text2.Text)

c = CInt(Text3.Text)

d = CInt(Text4.Text)

e = CInt(Text5.Text)

Text6.Text = Greater(a, b, c, d, e)

End Sub

Public Static Function Greater(a, b, c, d, e)

Dim Max As Integer

Max = a

If Max < b Then Max = b

If Max < c Then Max = c

If Max < d Then Max = d

If Max < e Then Max = e

Greater = Max

End Function

Примечание: если необходимо выйти из функции дострочно – в нужном месте функции ставится оператор Exit Function.