Hallo!
Ich bearbeite Bilder und konvertiere diese von Bitmap zu Byte() und speichere dann alles in einer .XML-Datei ab!
Nun habe ich das Problem das ich eine Funktion hab die mit einem Boolean(,) Array funktioniert..d.H. ich brauche eine Funktion, bzw. zwei, mit denen ich von Byte() zu Boolean(,) konvertieren kann!
Hmm, meine versuche dazu funktionieren iwie nicht! Wenn ich das Array zurück inn Bitmap verwandel sehe ich nur paar Bildpunkte in der ersten Zeile tanzen..
Spoiler anzeigen
Ich bearbeite Bilder und konvertiere diese von Bitmap zu Byte() und speichere dann alles in einer .XML-Datei ab!
Nun habe ich das Problem das ich eine Funktion hab die mit einem Boolean(,) Array funktioniert..d.H. ich brauche eine Funktion, bzw. zwei, mit denen ich von Byte() zu Boolean(,) konvertieren kann!
Hmm, meine versuche dazu funktionieren iwie nicht! Wenn ich das Array zurück inn Bitmap verwandel sehe ich nur paar Bildpunkte in der ersten Zeile tanzen..
Quellcode
- Private Function _boolToByte(ByVal _Bool As Boolean(,)) As Byte()
- Dim _byte(_Bool.Length) As Byte
- 'Dim _stride As Integer = 20
- Dim _loop As Integer = 0
- For x As Integer = 0 To _Bool.GetUpperBound(0) - 1
- For y As Integer = 0 To _Bool.GetUpperBound(1) - 1
- If _Bool(x, y) = True Then
- _byte(x + y) = 0
- Else
- _byte(x + y) = 255
- End If
- ' Debug.WriteLine("x:" & x & "-y:" & y & "--" & _byte(x + y).ToString)
- Next
- Next
- Return _byte
- End Function
- Private Function _byteToBool(ByVal _Byte As Byte()) As Boolean(,)
- Dim _bool(20, 20) As Boolean
- Debug.WriteLine(_Byte.Length)
- For x = 0 To 19
- For y = 0 To 19
- If _Byte(x + y) < 127 Then
- _bool(x, y) = False
- Else
- _bool(x, y) = True
- End If
- Next
- Next
- Return _bool
- End Function
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Morrison“ ()