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

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

Фокселл Дж.Д. Освой самостоятельно Visual Basic.NET за 24 часа — М.: Вильямс, 2002. — 416 c.
ISBN 5-8459-0304-1
Скачать (прямая ссылка): osvoysamostoyatelnovsn2002.pdf
Предыдущая << 1 .. 130 131 132 133 134 135 < 136 > 137 138 139 140 141 142 .. 181 >> Следующая

следующий текст в командном окне, после чего нажмите клавишу <Enter>:
? txtlnpct.Тех!
В командном окне будет выведено ваше имя.
Итак, мы столкнулись с исключением, которое вызвано не передачей пустой
строки в функцию Clng (), а чем-то другим. Нажмите <F5> для продолжения
выполнения программы с тем, чтобы более подробно рассмотреть текст
исключения. Последнее предложение этого текста гласит, что строчный тип
не может быть преобразован в целый (cast from String ("ycurname") to Long
is not valid). Случилось так, что не существует логических методов
преобразования текста в число. Функции Clng {) для работы требуется в
качестве параметра числовое значение. Это можно легко проверить, введя
число в поле ввода. Выполните это, нажав Break, выбрав в меню Debug пункт
Stop Debugging, и снова запустив на выполнение проект. Введите число в
текстовое поле и нажмите кнопку на форме. Выполнение снова прервется в
точке останова. Нажмите <F11> для выполнения оператора. На этот раз
ошибок не произошло! Нажмите <F5> для продолжения выполнения, и программа
в окне сообщения отобразит результат вычисления. Нажмите ОК на сообшении
и закройте форму для выхода из программы.
Так как функция Clng Г; требует числового значения, а текстовое поле не
имеет встроенных механизмов для избирательного ввода только чисел, то
данную ситуацию можно исправить исключительно в тексте программы. Visual
Basic содержит удобную функцию isNuineг 1с (). которая возвращает True,
если передаваемый ей аргумент является числом, и False - если нет. Вы
можете использовать эту функцию для отсева текстовых значений параметра,
передаваемого в функцию Clng (). Добавьте следующую строку сразу после
только что введенного оператора If...Then:
If Mot (IsNumeric (txtInput .Text) ) Then Exit Sub
Этот оператор просто передает значение, введенное в текстовое поле, в
функцию IsNumeric (;. Если функция возвращает False (т.е. значение
текстового поля не является числом), то выполняется выход из процедуры.
Теперь ваша процедура уже выглядит так, как показано на рис. 16.7.
Снова запустите проект клавишей <F5>, введите в текстовое поле любые
нецифровые данные и нажмите кнопку. Если вы правильно ввели все
предложенные фрагменты, то исключений не возникнет. Вставленные
предварительные проверки данных исключат передачу некорректных параметров
в процедуру Clng (). Итак, мы отладили процедуру!
Командное окно является мощным средством отладки программ. С его помощью
можно просмотреть и изменить значения переменных и свойств. Это окно
можно еше использовать для вызова функций. В частности, можно, находясь в
режиме паузы, набрать в командном окне следующую строку, и Visual Basic
выведет на печать результат вьтолнения функции:
? IsNumeric(txtlnput.Text)
Чувствуйте себя свободно, используя командное окно. Оно поможет вам во
множестве самых, казалось бы, безысходных ситуаций.
Окно вывода используется Visual Basic для отображения на экране различных
сообщений и ошибок построения. Наиболее полезной функцией этого окна в
повседневном использовании является способность работающих приложений
посылать в него свой вывод. Это особенно ценно на этапе отладки
приложения.
ний переменных, но также и для их изменений.
Использование окна вывода
308
Часть Начинаем программировать!
J^fdrt""busKj)ngEKnmple_-(Debugg"ng__lt"mp1e): Public Class | Inherits
System.Wlndoue,Forms.Form
-j; ! t L^r-', -i::r ¦- cr.-Or j
Private sub btnPrer?ormDivision_Cliek(EyVal sender Аз System.ОЬ^еес,
ByVal к Аг" Syat This procedure
• . h-' . _
Dim IngAnsuer As Single
I
12 txtlnput.Text - "" Then Exit Sub If Hot (IsNumeric(txtlnput.Text) )
Then Exit Sub
lngJUvsnrec - 100 / CLng( ext Input. Text)
EtsgSox (,f 10Q/,! С ¦ ¦ ? " <¦ " ? ingAnsoer)
|-
End r.L U
Cnd С1азз
"l.
;:SHW
Col 5й " OiW ' 1Г "
m
Puc. 16. 7. Текст процедуры, включающий проверку данных
-V* I ¦ • гвгшТШТПШ^теэчг *
09 ?d№: Vfew effect &j*d &Лмь. loot Hefc
1 j
gl- ty- ii Ы 9 ж Ча в! " - г. - fi. к; , мы" . -jf ,
iB ^\лиил.
Start pflge I Formi.vb [ОеядпГ Forml.vb* |
j^kl*OebucMkigExample (Debocjglng^Example)
[a Public Class fclsDebugginglxample
Inherits System.Blndows.Forms.Form
g][ Uiririn-"* Forir; designer generated cole 1
•*! |дф btnPrerformOtvlslon CJ"ck~
OX
~3
:
Sub btnPisriorrnDi id/jicip^iidk!BtfSn j. sender A?J System, Ckjееv..
3yV"l e A?? Syst-
• This procedure divides 100 bu the value entered in the ¦ V',-;;-.-
v.' rin^uv. .
bun iugAnsaer As Single
----L
ЯИ1Я
"3
Debug
¦DafaultDoaain': Leaded ' c: \wiiixit\*J.cro:jo ft. net\ freatvtirktvl.
0.2914\a*corlib. dll', No eyaboli loaded. * lj?a? i^a^ed :c'.:',b4t,'-
^4''-r.s and ¦¦. ¦¦1.,¦-¦ ¦ :: ¦¦ : Studio
'Debugging Seaapl*. "¦" *: Loaded ' e: WUratl, "<ir*ubly\gae\
*y*ca*.window*. forai\l, 0.2411. C b77aSc561934aOBS
'Debugging Ikaaple.eke'! Loaded 1 с: \vinttt\ a"kaably4gac\ "у"сее\1. 0.
241L - 0___Ь77а5е561ЭЗ*в0891| system, dll1 ,
'Debugging Xkenpla.aka1: Loaded 1 c: >einnt\вжееаЫу1двс\жуеПе*.
Предыдущая << 1 .. 130 131 132 133 134 135 < 136 > 137 138 139 140 141 142 .. 181 >> Следующая
Книги
Web-программирован-
ие
Аппаратное обеспечение Графика Руководство по П.О. Самоучитель Теория программирования Фотошоп Языки программирования
Новые книги
Завалишин Д. "Интернетско-русский разговорник" (Web-программирование)

Заенцев И.В. "Нейронные сети: основные модели" (Web-программирование)

Владимиров А.А. "Wi-фу: «боевые» приемы взлома и защиты беспроводных сетей" (Web-программирование)

Вьейра Р. "SQL Server 2000. Программирование в 2 ч." (Web-программирование)

Веллинг Л.Т. "Разработка web приложений с помощью php и mysql" (Web-программирование)
Авторские права © 2013 ComputersBooks. Все права защищены.

c1c0fc952cf0704ad12d6af2ad3bf47e03017fed