Recunoastere grafica ?!

Salut !

Are ceineva idee cu pot face o recunoastere grafica au unei imagini ?

Aceasta este imaginea [ http://freshmeat.srw.ro/images/bonus.jpg - Pentru incarcare in pagina (embed) Click aici ]

Mai exact vreau sa aflu coordonatele exacte ale imaginii aceasta nefiind situata pe form (in visual basic)

Ex.: x=321 y=645 (coordonate pixel)

Dupa aceea fac eu ca mousele sa se duca pe acele coordonate !

Multumesc !

Unde se afla imaginea ? Problema se reduce la jocul cu matrici. O imagine e o matrice de pixeli, fiecare pixel mai are un atribut (pe laga X si Y) anume culoarea.

neagu_laurentiu, on 19th October 2010, 08:41, said:

Nu am inteles exact intrebarea asa ca iti voi da 2 raspunsuri

1) In caz ca nu a mers primu link de sus   - [ http://img842.imageshack.us/img842/6536/boxgn.jpg - Pentru incarcare in pagina (embed) Click aici ]


2) Nu stiu care este pozitia imaginii (x si y)px ...asta incerc sa aflu in functie de imagine! cu aproximatie nu stiu cum sa iti explic defapt imaginea este o animatie ! defapt trebuie sa detecteze doar cateva culori din acea imagine pe o anumita zona 30x30 sau ceva de genu





Ghidarea cursor-ului o va face scriptu' urmator (vb6.0) :

Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal Dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)


Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
	Public Const MOUSEEVENTF_LEFTDOWN = &H2
	Public Const MOUSEEVENTF_LEFTUP = &H4
	Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
	Public Const MOUSEEVENTF_MIDDLEUP = &H40
	Public Const MOUSEEVENTF_RIGHTDOWN = &H8
	Public Const MOUSEEVENTF_RIGHTUP = &H10
	Public Const MOUSEEVENTF_MOVE = &H1


Public Type POINTAPI
	X As Long
	Y As Long
	End Type


Public Function GetX() As Long
	Dim n As POINTAPI
	GetCursorPos n
	GetX = n.X
End Function


Public Function GetY() As Long
	Dim n As POINTAPI
	GetCursorPos n
	GetY = n.Y
End Function


Public Sub LeftClick()
	LeftDown
	LeftUp
End Sub


Public Sub LeftDown()
	mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
End Sub


Public Sub LeftUp()
	mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub


Public Sub MiddleClick()
	MiddleDown
	MiddleUp
End Sub


Public Sub MiddleDown()
	mouse_event MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0
End Sub


Public Sub MiddleUp()
	mouse_event MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0
End Sub


Public Sub MoveMouse(xMove As Long, yMove As Long)
	mouse_event MOUSEEVENTF_MOVE, xMove, yMove, 0, 0
End Sub


Public Sub RightClick()
	RightDown
	RightUp
End Sub


Public Sub RightDown()
	mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
End Sub


Public Sub RightUp()
	mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
End Sub


Public Sub SetMousePos(xPos As Long, yPos As Long)
	SetCursorPos xPos, yPos
End Sub

Astept un raspuns ! Multumesc.

Edited by freshmeat, 19 October 2010 - 22:39.