Kann mir jemand bei meinem komischen fehler helfen?

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von EugenIS.

    Kann mir jemand bei meinem komischen fehler helfen?

    Hallo, ich habe hier ein kleines problem, und komme nicht drauf wocher das kommt:

    hab eine webcam, da nehme ich ein bild mit auf:

    Quellcode

    1. Friend Function getBmp1() As Bitmap
    2. PictureBox1.Image = webcam.CapturePicture(webcam.videoHandle)
    3. Return PictureBox1.Image
    4. End Function


    so, das bild ist in der picbox1. so jetzt will ich das bild binär haben und picbox2 abspeichern. damit ich das bild binärisieren kann, hab ich das in einen neuen bild kopiert:

    ps. funkt2 zeigt auf die getBmp1()

    Quellcode

    1. bmp_origenal = owner.Invoke(funk2)
    2. bmp_binaer = bmp_origenal
    3. bmp_new = bmp_origenal
    4. bmp_old = bmp_origenal


    so, so weit so gut. jetzt habe ich zwei bilder, in zwei picboxen. das eine ist farbig, das andere binär.

    jetzt kommt meine frage:

    wenn ich jetzt das binäre bild noch einmal kopiere und damit noch was mache, ändert es die picbox2 und picbox3. und ich komm nicht auf dem fehler. mein hintergrundprozess sieht so aus:

    ich habe sogar schon einfach mal zu probe:bmp_new = bmp_origenal, und danach mache ich mit dem bmp_new nichts und dennoch zeigt er beide picboxen (2 und 3) das binäre bild.

    Quellcode

    1. Dim funk1 As New funktion1(AddressOf owner.changBild)
    2. Dim funk2 As New funktion2(AddressOf owner.getBmp1)
    3. Dim bmp_origenal As Bitmap
    4. Dim bmp_binaer As Bitmap
    5. Dim bmp_old As Bitmap
    6. Dim bmp_new As Bitmap
    7. Dim x, y As System.Drawing.Color
    8. Dim i, j, r, g, b, ans, h As Integer
    9. Dim erkannt As Boolean = False
    11. 'owner.PictureBox2.Image = owner.webcam.CapturePicture(owner.webcam.videoHandle)
    12. bmp_origenal = owner.Invoke(funk2)
    13. bmp_binaer = bmp_origenal
    14. bmp_new = bmp_origenal
    15. bmp_old = bmp_origenal
    16. While True
    17. bmp_origenal = owner.Invoke(funk2)
    18. bmp_binaer = bmp_origenal
    19. bmp_new = bmp_origenal
    20. i = 0
    21. Do
    22. Do
    23. x = bmp_binaer.GetPixel(j, i)
    24. r = Convert.ToInt16(x.R)
    25. g = Convert.ToInt16(x.G)
    26. b = Convert.ToInt16(x.B)
    27. If r > 250 And erkannt = False Then
    28. x = Color.FromArgb(255, 0, 0)
    29. bmp_binaer.SetPixel(j, i, x)
    30. For h = -10 To 10
    31. If (j + h > 0) And (j + h < bmp_binaer.Width) Then bmp_binaer.SetPixel(j + h, i, x)
    32. If (i + h > 0) And (i + h < bmp_binaer.Height) Then bmp_binaer.SetPixel(j, i + h, x)
    33. Next
    34. erkannt = True
    35. Else
    36. ans = ((r + (g + b)) / 3)
    37. If (ans > 128) Then
    38. r = 255
    39. g = 255
    40. b = 255
    41. Else
    42. r = 0
    43. g = 0
    44. b = 0
    45. End If
    46. x = Color.FromArgb(r, g, b)
    47. bmp_binaer.SetPixel(j, i, x)
    48. End If
    49. j += 1
    50. Loop While j < bmp_binaer.Width
    51. j = 0
    52. i += 1
    53. Loop While i < bmp_binaer.Height
    54. For i = -50 To 50
    55. bmp_binaer.SetPixel(bmp_binaer.Width / 2 + i, bmp_binaer.Height / 2, Color.Blue)
    56. bmp_binaer.SetPixel(bmp_binaer.Width / 2, bmp_binaer.Height / 2 + i, Color.Blue)
    57. Next
    58. erkannt = False
    59. bmp_new = bmp_origenal
    61. Do
    62. Do
    63. x = bmp_new.GetPixel(j, i)
    64. 'y = bmp_old.GetPixel(j, i)
    65. If x <> y Then
    66. x = Color.FromArgb(255, 255, 255)
    67. 'bmp_new.SetPixel(j, i, x)
    68. End If
    69. j += 1
    70. Loop While j < bmp_binaer.Width
    71. j = 0
    72. i += 1
    73. Loop While i < bmp_binaer.Height
    74. owner.Invoke(funk1, bmp_origenal, bmp_binaer, bmp_new)
    75. End While
    76. End Sub


    kann mir jemand helfen?

    Bitmap ist eine Klasse, damit ein Referenztyp. Beim Zuweisen mit = wird lediglich die Referenz kopiert (zwei Variablen zeigen auf das gleiche Bitmap). Um ein eigenständiges Bitmap zu erstellen, nimmt den Bitmap-Konstruktor, der ein Vorlage-Bitmap erwartet.
    PS: Das ist eine Vermutung, ich kann daher nichts garantieren.

    Viele Grüße, Phil.

Facebook
Telefonspende