Приложение: подпрограмма1.rar
updatelabel.rar
Занятие 26.1.2. Создание подпрограммы пользователя без аргументов
Задание 1
Напишем подпрограмму и рассмотрим, как использовать ее в приложении.
Начнем с синтаксиса подпрограммы, затем создадим для нее код.
Синтаксис подпрограммы:
Private Sub ИмяПодпрограммы()
Последовательность операторов
End Sub |
- Создайте новое приложение и назовите его "Подпрограмма1".
- Откройте окно редактора кода.
Наберите код:
Private Sub MyMessage1()
MessageBox.Show("Это сообщение выведено подпрограммой MyMessage1")
End Sub |
Вызов подпрограммы
Чтобы выполнить код внутри подпрограммы, нужно вызвать эту подпрограмму в коде программы. Когда подпрограмму вызывают, выполняется код в этой подпрограмме.
Синтаксис вызова подпрограммы:
нужно просто указать имя подпрограммы и пару скобок за ним.
Вызовем подпрограмму, которую только что написали.
- В проекте "Подпрограмма1" поместим на форму кнопку.
- Изменим значение свойства Text этой кнопки на Сообщение.
- Выполните двойной щелчок по кнопке, чтобы отредактировать обработчик ее нажатия. Добавьте в обработчик следующую строку кода:
MyMessage1( )
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MyMessage1( )
End Sub
Задание 2 (материал Интернет)
Разработка проекта "Выбор" с использованием подпрограммы пользователя без аргументов.
Интерфейс проекта
Программный код
Public Sub updatelabel() 'подпрограмма пользователя
Dim info As String
If CheckBox1.Checked Then
info = "звук выбран"
Else
info = "звук отвергнут"
End If
If CheckBox2.Checked Then
info = info & vbCrLf & "мышь выбрана"
Else
info = info & vbCrLf & "мышь отвергнута"
End If
If CheckBox3.Checked Then
info = info & vbCrLf & "цвет выбран"
Else
info = info & vbCrLf & "цвет не выбран"
End If
If RadioButton1.Checked = True Then info = info & vbCrLf & "выбран уровень1"
If RadioButton2.Checked = True Then info = info & vbCrLf & "выбран уровень2"
If RadioButton3.Checked = True Then info = info & vbCrLf & "выбран уровень3"
Label1.Text = info
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
updatelabel() ' вызов подпрограммы
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
updatelabel() ' вызов подпрограммы
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
updatelabel() ' вызов подпрограммы
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
updatelabel() ' вызов подпрограммы
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
updatelabel() ' вызов подпрограммы
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
updatelabel() ' вызов подпрограммы
End Sub
Занятие 26.2
| 
