Четверг, 07.11.2024, 16:07
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Тестування онлайн
тестування онлайн 


Социальные закладк

 Приложение: подпрограмма1.rar

updatelabel.rar

Занятие 26.1.2.  Создание подпрограммы пользователя без аргументов

Задание 1

Напишем подпрограмму и рассмотрим, как использовать ее в приложении. 

Начнем с синтаксиса подпрограммы, затем создадим для нее код.

Синтаксис подпрограммы:

Private Sub  ИмяПодпрограммы()
   Последовательность операторов
End Sub  
  1. Создайте новое приложение и назовите его "Подпрограмма1".
  2. Откройте окно редактора кода.
            
    Наберите код:
Private Sub  MyMessage1()
           MessageBox.Show("Это сообщение выведено подпрограммой  MyMessage1")
   End Sub  


Вызов подпрограммы

Чтобы выполнить код внутри подпрограммы, нужно вызвать эту подпрограмму в коде программы. Когда подпрограмму вызывают, выполняется код в этой подпрограмме.

Синтаксис вызова подпрограммы:
                            нужно просто указать имя подпрограммы и пару скобок за ним.

Вызовем подпрограмму, которую только что написали.

  1. В проекте "Подпрограмма1" поместим на форму кнопку.
  2. Изменим значение свойства Text этой кнопки на  Сообщение.
  3. Выполните двойной щелчок по кнопке, чтобы отредактировать обработчик ее нажатия. Добавьте в обработчик следующую строку кода:

                                                                        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

Форма входа
Поиск
Календарь
«  Ноябрь 2024  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
252627282930
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Рейтинг@Mail.ru
    Copyright MyCorp © 2024
    Конструктор сайтов - uCoz