Разработка процедур предотвращающих появление ошибок
Разработка процедур, предотвращающих появление ошибок
При составлении приложений важно предусмотреть, чтобы программа анализировала возможные ошибки, возникающие при ее выполнении по вине пользователя, и информировала его об этом, подсказывая, что конкретно он сделал неправильно. При этом возможно два подхода:
- Предотвращение ошибок: программно анализировать вводимые или вычисляемые данные и в случае, если они могут приводить к ошибке, обеспечить, чтобы программа информировала пользователя о необходимости корректного задания данных.
- Обработка ошибок: в случае появления ошибки, перехватить ее, обработать и программно откликнуться на возникшую ошибку.
- При создании приложений надо сочетать оба подхода, применяя в каждом конкретном случае и для каждой возможной ошибки тот, который кажется разработчику наиболее эффективным.
- В данном разделе рассмотрим процесс создания приложения, в котором предотвращается появление ошибок, на простейшем примере:
- В диалоговом окне два поля (числитель и знаменатель) предусмотрены для ввода данных. Пользователь вводит в них по числу (Рисунок 12.1).
- По нажатию кнопки Счет, программа делит число, введенное в поле Числитель, на число, введенное в поле знаменатель, и выводит полученный результат в поле ответ.
Следующая программа производит деление числителя на знаменатель по нажатию кнопки Счет без контроля появления возможных ошибок:
Private Sub CommandButtonl_Click()
Dim Числитель, Знаменатель, Результат As Double
Числитель = CDbl(TextBoxl.Text)
Знаменатель = CDbl(TextBox2.Text)
Результат = Числитель / Делитель
TextBoxS.Text = CStr(Результат)
End Sub
