Читайте также:
|
Переменные логического типа могут иметь всего два значения — True и False. Чаще всего они применяются для «включения» или «выключения» некоторого признака или условия в программе. Логические переменные нередко используются для возврата логических значений из вызываемых функций. Код возврата равен True, если работа функции завершилась успешно, и False — в случае неудачи. Мы воспользуемся логическим типом для написания функции, которая определяет, существует ли на диске файл с заданным именем:
1. Создайте новый проект командой File > New Project.
2. В окне Project Wizard выберите значок Standard EXE.
3. Создайте на форме Form1 текстовое поле и задайте его свойству Name значение txtFilename.
4. Очистите свойство Caption текстового поля — для этого следует дважды щелкнуть на свойстве Caption в окне свойств и удалить текст Textl.
5. Создайте на форме кнопку. В окне свойств задайте ее свойству Name значение
cmdSearch, а свойству Caption — значение &Search.
6. Дважды щелкните на форме Form1, чтобы открыть окно программы.
7. Введите в окне программы исходный текст функции IsFile:
Private Function IsFile(Filename As String) As Boolean
If Len(Dir$(Filename)) > 0 Then
IsFile = True
Else
IsFile = False
End If
End Function
8. Выберите строку cmdSearch из раскрывающегося списка объектов (в левой верхней части окна программы). При этом будет автоматически выбрано событие Click.
9. Добавьте следующий фрагмент в процедуру события Click кнопки cmdSearch:
Private Sub cmdSearch_Click()
Dim filename As String
Dim rc As Boolean
filename = txtFilename.Text
rc = IsFile(filename)
If rc = True Then
MsgBox "Файл существует!"
Else
MsgBox "Файл не найден!"
End If
End Sub
10.Запустите программу.
Чтобы проверить, как работает написанная функция, введите в текстовом поле имя файла. Если файл существует, IsFile возвращает логическое значение True, в противном случае возвращается False. Обратите внимание на использование строковой переменной filename, передаваемой в качестве параметра функции IsFile. Значение filename задается в процедуре события Click кнопки cmdSearch.
ПОДСКАЗКА Чтобы проверить, существует ли на диске файл с заданным именем, можно воспользоваться функцией Dir$(), вложенной в функцию Len(), — например Len(Dir$(filename)). Результат будет положительным, если файл существует, и равным 0 в противном случае. Функция наподобие IsFile из предыдущего примера позволяет немного упростить проверку.
Дата добавления: 2015-07-20; просмотров: 85 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| Целые переменные | | | Область видимости переменных |