Реклама Опции

[vitt_vox]

<описание>
<связь>

[arhimag]

Код

a:=1; b:=1; c:=2; // по умолчанию, а=1 - средняя, b=1 - большая, с=2 - маленькая

Определения положения каждой из 3-х цифр.

// 1 цифра
for x:=1 to 13 do
    if img1[1,x]=clblack then // нам встретился черный цвет, значит…
        a:=2; // первая цифра большая
// 2 цифра
for x:=1 to 13 do
    if img2[4,x]=clblack then
        b:=2; // 2 цифра - средняя
// 3 цифра
for x:=1 to 13 do
    if img3[4,x]=clblack then
        c:=3; // третья цифра средняя
// 3 цифра
for x:=1 to 13 do
    if (img3[1,x]=clblack) and (img3[14,x]=clblack) then
        c:=4; // 3 цифра большая
// 3 цифра
for x:=1 to 13 do
     if (img3[15,x]=clblack) and (img3[4,x]=clwhite) then
         c:=1; // 3 цифра косая

(автор перепутал x и y ?.. --прим. редактора)
ХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХ
ХХХХХХХХХХХХХХХХХХХХХХХ

Имея базу для сравнения, можно приступать к распознанию цифр.

for d:=1 to 3 do begin // 1..3 цифра
    if (a=1)and(d=1) then begin // рассматриваем средний размер 1 цифры
        for j:=0 to 9 do begin // 0..9 цифр
            Z:=0; // число совпадений
            for x:=0 to 17 do
                for y:=0 to 14 do begin
                    // Проверяем, является ли цифра - нулем
                    if j=0 then begin
                        if img1[x,y]= cifra0[x,y] then Z:= Z +1; // совпадение
                        if Z =270 then S1:=j; // Первая цифра 0!
                    end;
                    // .. проверяем остальные Cifra0-9 цифр
                end;
        end;
    if (a=2) and (d=1) then begin // рассматриваем большой размер 1 цифры
        // .. массив cifraB0[x,y] // cifraB - массив из больших цифр
        // .. проверяем остальные CifraB0-9 цифр

    end;
end;

// ..проверяем для 2 и 3 цифры, S2 и S3

вот кусок кода, как общеал, полный исходник не нашел