У меня есть массив 6*6 ($polemassiv) и надо чтобы цикл for заполнил его значениями от 0 до 5 ,т.е. записал значения соответствующие 5 цветам, каждая переменная массива $color cодержит значение цвета, каждый цвет имеет значение
Вот на примерах ваших попробовал , но что то не работает
зелёный = 0x75BC3C = 1
синий = 08B983 = 2
жёлтый = 0xFFF528 =3
серебрянный = 0x8D8676 = 4
красный = 03131E =5
синий = 08B983 = 2
жёлтый = 0xFFF528 =3
серебрянный = 0x8D8676 = 4
красный = 03131E =5
Код:
Dim $color[5] = [$grinK, $cherep ,$elloweK, $lechenie, $redK]
For $pp = 0 To 4 Step 1
For $a = 0 To UBound($color) - 1
$Pozik1 = PixelSearch($XB, $YB , $XN, $YN, $color[$pp], $shade)
If Not @error Then
$PoleMassiv[0][0] = $a
Else
$PoleMassiv[0][0] = 0
EndIf
Next
Next