Практическая работа
Откройте проект «Ввод пароля»
Добавьте еще одну форму в проект (Меню – Project – Add Form) – появится Form2.
Дайте заголовок форме «Рабочее окно приложения» (Свойство Caption)
Измените код:
Private Sub Command1_Click()
If Text1.Text = “123” Then
Form1.Visible = False
Form2.Visible = True
Else
MsgBox “Повторите ввод пароля” , vbCritical, “Ошибка пароля”
End If
End Sub
Запустите программу
Сохраните проект (имя для второй формы – frmWork)
Переменные
Типы используемых переменных:
Integer целые числа (-32768 до +32767)
Long целые числа (большие Integer)
Single десятичные числа
Double десятичные числа с двойной точностью
Currency числа, имеющие 15 цифр перед точкой и 4 после
String текстовая информация
Date информация о дате и времени
Object ссылки на рисунок или любой другой объект
Variant значения любого из вышеперечисленных типов данных
Объявление переменных
Явное объявление переменных означает, что для определения переменных должен быть использован оператор. Для явного объявления переменных можно использовать варианты:
Dim <VarName> [As VarType]
Private <VarName> [As VarType]
Static <VarName> [As VarType]
Public <VarName> [As VarType]
Одним оператором можно объявить несколько переменных, разделяя их запятыми. Ключевые слова Dim, Private, Static, Public определяют, где и когда может использоваться данная переменная.
Область видимости переменной
Часть программного кода, в которой можно использовать переменную, называется областью видимости переменной.
Dim – для объявления локальной переменной уровня процедуры или модуля. Вне данной процедуры или модуля такая переменная невидима.
Public – для объявления глобальной переменной, доступной из любой части программы. Объявляется в разделе General Declarations модуля. Например, если имеется переменная Num, объявленная как Public в форме Form1, получить к ней доступ можно с помощью следующего выражения:
Y = Form1.Num
Такие Public – свойства могут использоваться для обмена информацией между формами и другими частями программы.
Static – для создания переменной, сохраняющей значение после завершения процедуры. (Так как при завершении процедуры переменная обнуляется)
Практическая работа
Пример 1:
рма:
Программа:
Private Sub Command1_Click()
Dim a As Integer
a = 123
Text1.Text = a
End Sub
Private Sub Command2_Click()
Text2.Text = a
End Sub
При щелчке на первую кнопку в текстовом поле появится 123, при щелчке на вторую кнопку во втором окне ничего не появится.
Пример 2:
Форма та же.
Код:
Dim a As Integer (Объявлен в разделе General)
Private Sub Command1_Click()
a = 123
Text1.Text = a
End Sub
Private Sub Command2_Click()
Text2.Text = a
End Sub
Теперь при нажатии на второй кнопке в окне 2 тоже появится 123
Пример 3:
Добавьте вторую форму в проект и измените где нужно код.