Определение контура изображения

[DeBass]

Уважаемые форумчане, помогите пожалуйста, проблема следующая: есть картинка которая является чертяжем детали, черным цветом обозначен контур этой детали, надо определить все точки этого контура(именно черного цвета). Авот как это сделать я не знаю! Зарание спасибо!

[Anubis]

Делай проверку на цвета, если цвет чёрный, тогда... А что именно с этим контуром тебе надо сделать?

[Gemini]

Загрузи изображение в контрол Picture

Код: Выделить всё

Private Declare Function GetPixel Lib "gdi32" Alias "GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

with Picture1
    .ScaleMode = vbPixels
    .AutoSize = True
    .AutoRedraw = True
end with

for x = 0 to width
  for y = 0 to Height
    if getpixel(Picture1.hdc,x,y)=vbblack then
       /////code
   else
     ////code
   end if
  next
next


[DeBass]

Дело в том, что по этому контуру надо двигаться последовательно, поэтому вариант Gemini не подходит, надо двигаться все время по одной стороне(правило левого берега), это нужно для управления шаговых двигателей через LPT порт ПК. у меня идея такая:
1)находим первый пиксель черного цвета:

Код: Выделить всё


For lY = 0 To iHeight - 1
        For lX = 0 To iWidth - 1
        temp = GetPixel(Original.hdc, lX, lY)
        If temp = 0 Then Exit For
        Next
    pb.Value = lY
Next


2) определяем положение ближайшего черного пикселя, всего их может (направлений) 8
3)идем по определенному направлению пока цвет пикселя черный
4)порверяем не дошли ли мы до начальной точки

[Viper]

DeBass, это надо в сторону распознования линий смотреть. Была когда то тема аналогичная, но вот где и к чему там пришли...

[Lumen]

Если не ошибаюсь, DeBass и был автором того топика...

[Viper]

Если не ошибаюсь, DeBass и был автором того топика...

Вряд ли... сие пораньше было.
З.Ы. Хотя вопрос может быть он и задавал уже.

[hCORe]

Там было как раз про прямые, прямоугольники и окружности.
Поиском я не нашел, но одним из (со)авторов точно был Mikle. Перевыкладываю.

upd. Там еще треугольники распознаются
Оригинальная тема (без вложенного архива), кажется, вот: http://bbs.vbstreets.ru/viewtopic.php?t ... sc&start=0

[Antonariy]

Можно попробовать приладить Дейкстру.

[DeBass]

Пример конечно замечательный, но он мне тожне подходит, там как я понял контур заливкой определяется, а мне надо по нему последовательно идти, сейчас изучаю алг. Дейкстры.

З.Ы. Этот вопрос я задаю впервые, так что вы обознались

[botaniQ]

Даров народ!!! помогите пжл: как определить цвет пикселя на форме, если есть просто линия( нарисованная) и надо определить цвет и координату данного пикселя, заранее спасибо

[Lumen]

А пиксель где находится? на линии или где? может просто GetPixel заюзать?

[botaniQ]

пиксель находиться на линии, а можно небольшой пример, а то я уже весь интернет перерыл, там ничего.....

[Mikle]

botaniQ
Color=Point(x,y)
Это определение цвета по координатам.
Но "определить цвет и координаты данного пикселя", это как? Как он дан, если не известны ни координаты, ни цвет?

[Matew]

DeBass, смотрел edgescan?

[botaniQ]

а ну да точно, че то я прогнал.....спс, буду пробовать

[DeBass]

Извините что так долго не появлялся! =) edgescan я не нашел, туплю может, или кривизна рук проявляется =) пока пользуюсь своим алгоритмом.

[Matew]

DeBass
http://bbs.vbstreets.ru/viewtopic.php?t ... t=edgescan

[netdemon]

Извините что так долго не появлялся! =) edgescan я не нашел, туплю может, или кривизна рук проявляется =) пока пользуюсь своим алгоритмом.

Твой алгоритм в корне не правильный если ты говоришь о шаговых двигателях. По твоему алгоритму можно только прямые линии строго вертикальные или горизонталььные чертить. Тут много нюансов связанных с именно шаговыми движками. При рисовании наклонных линий тебе придется заставить Движки за одинаковое время отрабатывать разное количество шагов например по X-10 , а по Y-5. Из примера предложенного выше у меня получилось выудить распознование отдельных линий и определение начальных и кон координат линии. Тут нужен особый интерфейс который бы обеспечивал буфферизацию смещения по 2м координатам с одновременной отработкой по сигналу готовности и расчётом частоты импульсов для каждого движка. Тут всё зависит от твоего аппаратного обеспечения.

[botaniQ]

всем привет!!! нужна помощь: как остановить выполнение программы в этом коде If count_y >= 100 Then End, чтобы она не закрывалась как у меня а просто остановилась, заранее спасибо

[Gemini]

botaniQ
Немного не понятно...

Варианты:
1.Goto метка
2.Exit sub
3.Exit function
----------------
Побольше кода, если можно...

[botaniQ]

If r <> "255" Then
yy.SetValue(y, count_y)
If count_y >= 100 Then End
count_y = count_y + 1
ListBox1.Items.Add(x)
ListBox1.Items.Add(y)
g = PictureBox2.CreateGraphics()
g.FillEllipse(Brushes.Blue, x, y, 3, 3)

find_x(y)

End If


вот, с END'ом она просто закрывается, а надо чтобы остановилась в выполнении

[Gemini]

botaniQ

If r <> "255" Then 'Убери кавычки.
-------
В зависимости от того где разположен код и куда сделать выход.
Например:
1.

Код: Выделить всё

Private sub MyCode()
If count_y >= 100 Then Exit sub
end sub


2.

Код: Выделить всё

Private Function MyCode()
If count_y >= 100 Then Exit Function
end Function


3.

Код: Выделить всё

Private sub MyCode()
If r <>  255 Then
  yy.SetValue(y, count_y)
  If count_y >= 100 Then Goto Metka1
  count_y = count_y + 1
  ListBox1.Items.Add(x)
  ListBox1.Items.Add(y)
  g = PictureBox2.CreateGraphics()
  g.FillEllipse(Brushes.Blue, x, y, 3, 3)
  find_x(y)
End If

Exit sub
Metka1:
Msgbox "Выход"
end sub


4.

Код: Выделить всё

Private sub MyCode()
Do While True
If r <>  255 Then
  yy.SetValue(y, count_y)
  If count_y >= 100 Then Goto Metka1
  count_y = count_y + 1
  ListBox1.Items.Add(x)
  ListBox1.Items.Add(y)
  g = PictureBox2.CreateGraphics()
  g.FillEllipse(Brushes.Blue, x, y, 3, 3)
  find_x(y)
End If
loop
Metka1:
.....Продолжаем выполнение кода
end sub


[DirectXManiac]

botaniQ
Тебе совсем надо остановить выполнение кода?
Тогда Stop

[botaniQ]

Gemini
ага, понятно, спс


DirectXManiac
я пробовал, но stop он же полностью останавляет, он мне не подходит[/b]

[Memfivosfey]

Клавиша "F5", позволит тебе продолжить выполнение программы прямо с места останова оператором "STOP"

Клавиша F8, позволит тебе пошагово выполнять программу, для более детального рассмотрения сложных мест программы.

Эт так, на всяк случай, если ты не знал.