[решено] Проверка выполнения нескольких условий

Creat0R · Конфигурация компьютера

Цитата Smokie_id11243755:

я подозреваю, что можно реализовать это как-то поумнее и понормальнее »

Можно, но одного лишь этого фрагмента не достаточно. Тем более что он нерабочий.

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

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

Код:

$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

gregaz · Отправлено: **23:29, 04-09-2010** | #4

Так ?
$dw="dw0"
$dh="dh0"
$dd="dd0"
$dr="dr0__"

If $dw="dw0" Then
If $dh="dh0"Then
If $dd="dd0"Then
If $dr="dr0" then
Exit
Else
_msgbox()
EndIf
Else
_msgbox()
EndIf
Else
_msgbox()
EndIf
Else
_msgbox()
EndIf

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

FlatX007 · Отправлено: **23:44, 04-09-2010** | #5

Цитата gregaz:

gregaz »

Ему скорее всего нужно использование функций ...

Smokie_id11243755 · Отправлено: **00:59, 05-09-2010** | #6

да не... мне без разницы. я просто только функциями смог это сделать - не сумел "if" оформить)

madmasles · Конфигурация компьютера

Так, вроде, покороче будет, если не важно, какое из условий не выполняется:

Код:

$dw = "dw0"
$dh = "dh0"
$dd = "dd0"
$dr = "dr0__"

If $dw <> "dw0" Or $dh <> "dh0" Or $dd <> "dd0" Or $dr <> "dr0__" Then
    MsgBox(0, "Проверка нескольких условий", "Хотя бы одно из условий не выполняется.")
Else
    MsgBox(0, "Проверка нескольких условий", "Все условия выполняются.")
EndIf