Компьютерные книги
Главное меню
Главная Поиск по сайту Добавить материал О нас Карта книг Карта сайта
Реклама
computersbooks.net -> Добавить материал -> Языки программирования -> Фокселл Дж.Д. -> "Освой самостоятельно Visual Basic.NET за 24 часа" -> 121

Освой самостоятельно Visual Basic.NET за 24 часа - Фокселл Дж.Д.

Фокселл Дж.Д. Освой самостоятельно Visual Basic.NET за 24 часа — М.: Вильямс, 2002. — 416 c.
ISBN 5-8459-0304-1
Скачать (прямая ссылка): osvoysamostoyatelnovsn2002.pdf
Предыдущая << 1 .. 115 116 117 118 119 120 < 121 > 122 123 124 125 126 127 .. 181 >> Следующая

...'код выполняется, если выражение имеет значение True (Истина)
End If
В конструкции I f...Then используется булева логика, которая обсуждалась
в главе 13 "Операции со строками, числами и датами". Напомним, что в
булевой логике переменные могут иметь только два значения - True (истина)
или False (ложь). Выражения могут быть как простыми (if х=6 Then), так и
сложными (If Х=6 And Y>10 Then). Если выражение принимает значение True,
то выполняется программный код, расположенный между инструкцией If и
инструкцией End If. Если выражение принимает значение False, то Visual
Basic переходит к инструкции End If и продолжает выполнять программу,
пропуская код между инструкциями If и End If.
Перейдем к созданию простейшей конструкции If...Then в проекте Visual
Basic. Создайте новое приложение с именем Decisions. Переименуйте форму в
fclsDeci-sions, установите свойство Text формы в Decisions Example и
измените свойство Startup Object на fclsDecision.
Двойным щелчком на кнопке TextBox на панели инструментов добавьте новое
текстовое поле к форме. Установите следующие свойства текстового поля:
Свойство Значение
Name txtlnput
Location 44,44
Text Оставьте пустым
Затем двойным щелчком на кнопке Button (кнопка) на панели инструментов
до-
бавьте к форме новую кнопку. Установите следующие свойства кнопки:
Свойство Значение
Nfeme btnlsNumeric
Location 156,42
Size 100,23
Text Текст является числом?
Форма должна приобрести вид, показанный на рис. 14.1.
Сейчас приступим к написанию кода для события Click кнопки. Этот код
использует простейшую форму конструкции If...Then и функцию IsNumeric для
определения, является ли текст, введенный в текстовое поле, числом.
Щелкните дважды на кнопке для получения доступа к ее событию Click и
введите следующий код:
If IsNumeric (txtlnput (). Text Then
MsgBox ("Текст является числом.")
End If
Посмотрите внимательно на первую инструкцию. Напоминаем, что простейшая
инструкция If...Then имеет вид:
If выражение Then
В код мы ввели выражение:
IsNumeric (txt. Input () . Text.)
272
Часть III. Наминаем программировать!
On Hums - МншчиП Visii.iI Плчи.МТ • Iorml.vh |Ог\Н|1"Г
Defaut
Microsoft Sans Serif t 6*25pt ¦ CcntrdText
iJnaoa Index
{•: vm;
:: r r::: M::: : :r;i:
Щ location UM, 42
Щ lockad Falsa
с MoCUflars Assembly
fewqhtToLaft No
El] Sea 100,23
n Tahindex. . ii
nr 'abStoc True - -
. r"e
Ii text numeric?
iTMtAlgn MddiCarier
'rue
:
Рис. 14.1. Спомощью структуры I ?...Thei можно проверить, введеноли в
текстовое поле число
Функция IsNumeric в Visual Basic принимает строковые значения и
возвращает значение True, если строковое значение является числом и
False, если нет. Мы передали содержимое текстового поля функции
IsNumeric, в зависимости от результата, который выдает эта функция,
принимается решение. Если IsNumeric возвращает значение True, то
происходит выполнение команд, следующих после инструкции If, и выводится
сообщение. Если IsNumeric возвращает значение False, то выполнение
переходит к инструкции End If и сообщение не выводится.
Если программный код простейшей конструкции If...Then состоит из одной
сроки, можно разместить ее непосредственно после слова Then и пропустить
инструкцию End if. Например, представленный выше код можно переписать в
виде:
If IsNumeric (txtlnput() .Text) Then MsgBox ("Текст является числом.")
Хотя такой код работает как нужно, на практике все же предпочтительнее
использовать инструкцию End If.
Выполнение инструкций при ложном условии
ЕСЛИ необходимо выполнить некоторый программный код при значении
выражения False, то между инструкциями If и End If вставляется инструкция
Else:
If выражение Then
...'код выполняется, если выражение имеет значение True (Истина)
Else
.."кол выполняется, если выражение имеет значение False (Ложь)
End If
Час 14. Принятие решений в Visual Basic
273
. •
Если нужно выполнить код только в том когда w
равно НМЖё. используйте оператор Nst:. it Hot .¦(вьфяяйние? Then. Для по-
:
лучения более подробной информации по булевой логике обратитесь к главе
13.
При включении оператора Else в управляющую структуру один набор команд
выполняется при значении выражения, равном True, и другой, когда
выражение равно False. В рассматриваемом примере выдается сообщение, если
пользователь ввел число в текстовое поле. Однако если он ввел не число,
программа не выдаст никакого отклика. Если модифицировать программный
код, программа в обоих случаях будет выдавать сообщения:
If IsNumeric {txtlnput().Text) Then
MsgBox ["Текст является числом.")
Else
MsgBox ("Текст не является числом.")
End If
Теперь, если пользователь введет в текстовое поле число, отобразится
только одно сообщение Текст является числом. Когда программа подойдет к
инструкции Else, Visual Basic перейдет к инструкции End If, потому что
код внутри инструкции Else выполняется только в том случае, когда
выражение принимает значение False. В другом случае, если пользователь
Предыдущая << 1 .. 115 116 117 118 119 120 < 121 > 122 123 124 125 126 127 .. 181 >> Следующая
Книги
Web-программирован-
ие
Аппаратное обеспечение Графика Руководство по П.О. Самоучитель Теория программирования Фотошоп Языки программирования
Новые книги
Вирт Н. "Систематическое программирование " (Теория программирования)

Эком "Microsoft Excel 2000 шаг за шагом Русская версия самоучитель " (Самоучитель)

Поляков А.Ю. "Методы и алгоритмы компьютерной графики в примерах Vizual C++" (Графика)

Баяковский Ю.М. "Графическая библиотека Open GL " (Графика)

Валиков А. "Технология " (Языки программирования)
Авторские права © 2013 ComputersBooks. Все права защищены.