TESTAR SEMELHAN?A ENTRE IMAGENS
Eu sei o que quer dizer semelhança...
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....
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....
Não deu certo!
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
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
Mas aparece 2 msgbox! Me explica isso!
Tópico encerrado , respostas não são mais permitidas