Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Пользователь


Сообщения: 65
Благодарности: 3

Профиль | Отправить PM | Цитировать


Вот так допустим

Код: Выделить весь код
$dw="dw0"
$dh="dh0"
$dd="dd0"
$dr="dr0__"

If $dw="dw0" then
	_dh()
Else
	_msgbox()
EndIf
Func _dh()
If $dh="dh0" then
	_dd()
Else
	_msgbox()
EndIf
EndFunc
Func _dd()
If $dd="dd0" then
	_dr()
Else
	_msgbox()
EndIf
EndFunc
Func _dr()
If $dr="dr0" then
	Exit
Else
	_msgbox()
EndIf
EndFunc

Func _msgbox()
msgbox(0,"Проверка нескольких условий","Хотя бы одно из условий не выполняется")
EndFunc

Отправлено: 22:59, 04-09-2010 | #3