TESTAR SEMELHAN?A ENTRE IMAGENS

PEDROALSOI 21/06/2014 08:06:28
#439069
Eu sei o que quer dizer semelhança...
ALEVALE 21/06/2014 13:53:40
#439072
Testa ae....

Dim bmp1 As New Bitmap([Ô]c:\img_one_300.png[Ô])
Dim bmp2 As New Bitmap([Ô]c:\img_two_301.png[Ô])

Dim sameCount As Integer = 0
Dim diffCount As Integer = 0

For x As Integer = 0 To (bmp1.Width) - 1
For y As Integer = 0 To (bmp1.Height) - 1
If bmp1.GetPixel(x, y).Equals(bmp2.GetPixel(x, y)) Then
sameCount += 1
Else
diffCount += 1
End If
Next
Next

Dim total As Integer = sameCount + diffCount

MessageBox.Show(String.Format([Ô]Same Percentage: {0}{1}Difference Percentage: {2}[Ô], (sameCount / total).ToString([Ô]p[Ô]), Environment.NewLine, (diffCount / total).ToString([Ô]p[Ô])))


Testei com essas duas imagens:
http://www.codeproject.com/Articles/374386/Simple-image-comparison-in-NET

Peguei na net mas perdi o link se achar coloco....
NICKOLASCARLOS 22/06/2014 08:22:55
#439078
Não deu certo!
ALEVALE 22/06/2014 18:30:25
#439094
Aff como não....

Bom enfim o exemplo está anexo com 2 opções, testa ae e informe o que não está errado, fica mais fácil para identificar
NICKOLASCARLOS 22/06/2014 20:49:26
#439099
Mas aparece 2 msgbox! Me explica isso!
Página 2 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas