Функция, обратная Pixelsearch

[Castellan]

Решил сделать функцию, которая в отличие от Pixelsearch ищет в заданной области пиксели, по цвету отличающиеся от заданного и , если находит, то присваивает @error=true, иначе false. Однако не находит пиксели (а они точно есть в данной области).

Global $Oblast
   Local $OptOblast[5] = [1, 1, 100, 100, 0x000000] ;область 100х100 
   Pixelmono($OptOblast[0], $OptOblast[1], $OptOblast[2], $OptOblast[3], $OptOblast[4]) ;ищем, есть ли в указанной области пиксели другого цвета, кроме указанного (черного)
   If @error Then 
	  $Oblast = "Есть пиксели другого цвета" 
   Else
	  $Oblast = "Нет пикселей другого цвета"
   EndIf
Func PixelMono ($x1, $y1, $x2, $y2, $cv)
   Local $x, $y
   Local $error = 0
   $y=$y1
   While $y<=$y2 & $error = 0
	  $x=$x1
	  While $x<=$x2 & $error = 0
		 PixelSearch ($x, $y, $x, $y, $cv)
		 If @error Then
			$error = 1
		 EndIf
	  $x=$x+1
	  WEnd
   $y=$y+1
   WEnd
EndFunc

 

[rusreg79]

Разве такого выражения не достаточно что бы определить есть черный цвет в области или нет?

PixelSearch (0, 0, 100, 100, 0x000000)
If @error Then
  ;пиксель не найден
EndIf

 

[Castellan]

Так смысл как раз в том, чтобы определить, есть ли в указанной области хотя бы один пиксель другого цвета.
P.S. Добавил комменты в первом сообщении, чтоб понятнее было.

 

[paulgator]

Local $error = 0

Может дело в этом?

 

[C2H5OH]

Не, скорее в этом

Список операторов, упорядоченный по снижению приоритета выглядит следующим образом:

NOT
^
* /
+ -
&
< > <= >= = <> ==
AND OR

И в этом

& - Объединение/конкатенация строк. "one" & 10 - ("one10")

То есть правильно надо было написать:

While ($y<=$y2) AND ($error = 0)

Добавлено:

Сообщение автоматически объединено: 13 Янв 2012

А вообще я бы написал

Func PixelMono ($x1, $y1, $x2, $y2, $cv)
   Local $i, $j
   For $i = $y1 To $y2
      For $j=$x1 To $x2
         PixelSearch ($i, $j, $i, $j, $cv)
         If @error Then Return 0
      Next
   Next
Return 1
EndFunc

 

[Castellan]

спасибо за ответ!
еще вопрос: после выполнения функции Return цикл прекращается?

 

[C2H5OH]

еще вопрос: после выполнения функции Return цикл прекращается?

Конечно!
Функцию можно закончить в любом месте этой замечательной командой. ;D
Поэтому предпочтительнее весь код писать в виде функций, а основную программу делать только из вызовов этих функций. Типа

Init()
Main()
Close()

;)

 

[Castellan]

и последний вопрос :-[ return присваивает значение самой функции или перменной? можно ли возвращать значение переменной? :-[

 

[Medic84]

Если в функции будет

Return 0

то функция вернет 0. Если будет

Return $Func

то функция вернет значение этой переменной