Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Логические переменные






Переменные логического типа могут иметь всего два значения — 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 из предыдущего примера позволяет немного упростить проверку.

 


Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.005 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал