Ich bin noch n Anfänger im Programmieren
Code:
VB.net 2008
For i2 = 0 To pic_neu.Width - 1
For i = 0 To pic_neu.Height - 1
PixelY = i
PixelX = i2
PixelwertOrginal = pic_neu.GetPixel(PixelX, PixelY)
PixelwertVergleich = pic2_neu.GetPixel(PixelX, PixelY)
p1R = CInt(PixelwertVergleich.R)
p1G = CInt(PixelwertVergleich.G)
p1B = CInt(PixelwertVergleich.B)
p2R = CInt(PixelwertOrginal.R)
p2G = CInt(PixelwertOrginal.G)
p2B = CInt(PixelwertOrginal.B)
p1R = ((p1R + p1G + p1B) / 3) - ((p2R + p2G + p2B) / 3)
If p1R <= tbEmpfindlichkeit.Value And p1R > tbEmpfindlichkeit.Value * -1 Then 'Ich bin zu faul das aufs Gegenteil umzudenken^^
Else
SchnittY = SchnittY + i
ZählerY = ZählerY + 1
SchnittX = SchnittX + i2
ZählerX = ZählerX + 1
End If
Next
Next
If-Else Bedingung: Ich berechne später den Duchschitt aus allen Differenzpixeln und ziele dahin, um es einfach auszufrücken.
Ich zeichne das Bild vorher in ne PictureBox und les dann die Pixel aus.
Bremst bestimmt ganzschön.
Lesezeichen