Что нового

выбор значений из массива

stormovik

Новичок
Сообщения
58
Репутация
1
значение цвета пикселя может принимать множество значений.
но если он черный или белый, то нужно вывести уведомление об этом
Код:
If pixelgetcolor (0,1) = белый or  pixelgetcolor (0,1) = черный  then msgbox

вопрос: можно ли занести значения цветов в массив и хоть немного сократить условие выполнения функции Msgbox ?
 

edyapd

Осваивающий
Сообщения
380
Репутация
30
Попробуйте объяснить подробнее, что требуется?
Как предположение
Код:
HotKeySet("{ESC}", "_Quit")
Dim $x = 0
Dim $y = 0
Dim $aColor[3][2] = [[0x000000, "Чёрный"], [0xFFFFFF, "Белый"], [0xFF0000, "Красный"]]
While 1
	Switch PixelGetColor($x, $y)
		Case $aColor[0][0]
			TrayTip("", $aColor[0][1], 3)
			;MsgBox(0, "Цвет", $aColor[0][1], 3)
		Case $aColor[1][0]
			TrayTip("", $aColor[1][1], 3)
			;MsgBox(0, "Цвет", $aColor[1][1], 3)
	EndSwitch
WEnd

Func _Quit()
	ConsoleWrite("Принудительная остановка." & @LF)
    Exit
EndFunc
 
Верх