ПОНЯТНО О Visual Basic NET (том 3)




К чему все эти сложности? - часть 2


Процедуры с параметрами – путь к свободе. Второй совет – вместо процедур без параметров используйте процедуры с параметрами. Покажу на простом примере, что я имею в виду.

Задача:  Переменная равна 3. Нужно увеличить ее на 2 и результат напечатать.

Дадим переменной имя A. Вот простейшая программа для решения задачи:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim A As Integer = 3

        A = A + 2

        Debug.WriteLine(A)

End Sub

Однако простейшая программа нас не устраивает. Нам нужно показать всю прелесть параметров. Для этого мы будем действовать так же, как действовал Том Сойер в книге «Приключения Гекльберри Финна». Ему нужно было освободить негра Джима из ветхого сарайчика, где того держали взаперти. Вместо того, чтобы просто отпереть дверь имевшимся у него ключом, Том придумал для освобождения массу ненужных вещей вроде веревочной лестницы, отпиленной ножки кровати и т.п. И все для того, чтобы побег из заточения был обставлен «как положено».

Вот и мы сейчас усложним проект, чтобы все было «как положено». Прежде всего, посчитав, что наша процедура слишком длинная, разобьем ее на две процедуры П1 и П2, первая из которых увеличивает переменную на 2, а вторая распечатывает результат.

Dim A As Integer = 3

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Увеличиваем_на_2()

        Печатаем()

End Sub

Private Sub Увеличиваем_на_2()

        A = A + 2

End Sub

Private Sub Печатаем()

        Debug.WriteLine(A)

End Sub

Программа работает. Но нам этого мало. Будем усложнять дальше. Добавим к нашим процедурам параметры:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim A As Integer = 3

        Увеличиваем_на_2(A)

        Печатаем(A)

End Sub

Private Sub Увеличиваем_на_2(ByRef A1)      'А1 - переменная, которую увеличиваем

        A1 = A1 + 2




Содержание  Назад  Вперед