VB обработка ошибок
Формулировка задачи:
Как реализовать следующую схему :
Процедура
========
Оператор А1
Оператор А2
Оператор А3
ВыходИзПроцедуры
Если произошла любая ошибка при выполнении А1 или А2 или А3 то выполнить
Оператор Б1
Оператор Б2
Оператор Б3
ВыходИзПроцедуры
Если произошла любая ошибка при выполнении Б1 или Б2 или Б3 то выполнить
Оператор С1
Оператор С2
Оператор С3
ВыходИзПроцедуры
КонецПроцедуры
=============
Процедура
========
Оператор А1
Оператор А2
Оператор А3
ВыходИзПроцедуры
Если произошла любая ошибка при выполнении А1 или А2 или А3 то выполнить
Оператор Б1
Оператор Б2
Оператор Б3
ВыходИзПроцедуры
Если произошла любая ошибка при выполнении Б1 или Б2 или Б3 то выполнить
Оператор С1
Оператор С2
Оператор С3
ВыходИзПроцедуры
КонецПроцедуры
=============
Решение задачи: «VB обработка ошибок»
textual
Листинг программы
<font color="blue">Public</font> <font color="blue">Sub</font> TestError()
<font color="blue">Dim</font> intI <font color="blue">As</font> <font color="blue">Integer</font>
<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">GoTo</font> MarkA
intI = <font color="darkblue"><b>1</b></font> \ <font color="darkblue"><b>4</b></font>
intI = <font color="darkblue"><b>1</b></font> \ <font color="darkblue"><b>3</b></font>
intI = <font color="darkblue"><b>1</b></font> \ <font color="darkblue"><b>0</b></font>
MarkA:
Debug.<font color="blue">Print</font> Err.Description
<font color="blue">Resume</font> MarkB
MarkB:
<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">GoTo</font> MarkC
intI = <font color="darkblue"><b>2</b></font> \ <font color="darkblue"><b>4</b></font>
intI = <font color="darkblue"><b>2</b></font> \ <font color="darkblue"><b>3</b></font>
intI = <font color="darkblue"><b>2</b></font> \ <font color="darkblue"><b>1</b></font>
MarkC:
Debug.<font color="blue">Print</font> Err.Description
<font color="blue">Resume</font> MarkD
MarkD:
<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">GoTo</font> ExitHere
intI = <font color="darkblue"><b>3</b></font> \ <font color="darkblue"><b>4</b></font>
intI = <font color="darkblue"><b>3</b></font> \ <font color="darkblue"><b>3</b></font>
intI = <font color="darkblue"><b>3</b></font> \ <font color="darkblue"><b>0</b></font>
<font color="00AA00">'---</font>
<font color="blue">exit</font> <font color="blue">sub</font>
ExitHere:
Debug.<font color="blue">Print</font> Err.Description
<font color="blue">End</font> <font color="blue">Sub</font>