Barcode128B

    • VB.NET

    Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von nafets3646.

      Barcode128B

      Hallo Community,

      Da ich mich zur Zeit sehr für alltagsnahe Darstellung von Texten und Ähnlichem interessiere habe ich mich mal an eine Klasse gemacht die Text zu einem 128BBarcode Kodieren kann. Diese sind wie folgt aufgebaut:

      ' Startsequenz + Umkodierter Text + Prüfsequenz + Stopsequenz
      Startsequenz: bb w b ww b wwww
      Prüfsequenz: Den Wert der Zeichen * Gewichtung Mod 103
      Stopsequenz: bb www bbb w b w bb

      Das b steht hierbei für Black, also einen schwarzen Strich, w für Weiß. Die Leerzeichen dienen lediglich zur Gruppierung.
      Die einzelnen Sequenzen für Zeichen können hier eingesehen werden: hi-tier.de/Entwicklung/technik/barcode_Code128.html

      Hier die kommentierte Klasse(Da es sich um etwas eher simples handelt und wir hier im Sourcecodeautausch sind verzichte ich auf weitere Erläuterungen):
      BarCode128B.vb

      VB.NET-Quellcode

      1. Option Strict On
      2. Imports System.Drawing
      4. Option Strict On
      5. Imports System.Drawing
      7. Public Class BarCode128B
      8. Private sign_dictonary As New Dictionary(Of Char, String)
      10. ''' <summary>
      11. ''' Lädt die Zeichen in das Wörterbuch
      12. ''' </summary>
      13. ''' <remarks></remarks>
      14. Private Sub Load_Dictonary()
      15. sign_dictonary.Clear()
      16. Add(" ", "bb w bb ww bb ww")
      17. Add("!", "bb ww bb w bb ww")
      18. Add("""", "bb ww bb ww bb w")
      19. Add("#", "b ww b ww bb www")
      20. Add("$", "b ww b www bb ww")
      21. Add("%", "b www b ww bb ww")
      22. Add("&", "b ww bb ww b www")
      23. Add("'", "b ww bb www b ww")
      24. Add("(", "b www bb ww b ww")
      25. Add(")", "bb ww b ww b www")
      26. Add("*", "bb ww b www b ww")
      27. Add("+", "bb www b ww b ww")
      28. Add(",", "b w bb ww bbb ww")
      29. Add("-", "b ww bb w bbb ww")
      30. Add(".", "b ww bb ww bbb w")
      31. Add("/", "b w bbb ww bb ww")
      32. Add("0", "b ww bbb w bb ww")
      33. Add("1", "b ww bbb ww bb w")
      34. Add("2", "bb ww bbb ww b w")
      35. Add("3", "bb ww b w bbb ww")
      36. Add("4", "bb ww b ww bbb w")
      37. Add("5", "bb w bbb ww b ww")
      38. Add("6", "bb ww bbb w b ww")
      39. Add("7", "bbb w bb w bbb w")
      40. Add("8", "bbb w b ww bb ww")
      41. Add("9", "bbb ww b w bb ww")
      42. Add(":", "bbb ww b ww bb w")
      43. Add(";", "bbb w bb ww b ww")
      44. Add("<", "bbb ww bb w b ww")
      45. Add("=", "bbb ww bb ww b w")
      46. Add(">", "bb w bb w bb www")
      47. Add("?", "bb w bb www bb w")
      48. Add("@", "bb www bb w bb w")
      49. Add("A", "b w b www bb www")
      50. Add("B", "b www b w bb www")
      51. Add("C", "b www b www bb w")
      52. Add("D", "b w bb www b www")
      53. Add("E", "b www bb w b www")
      54. Add("F", "b www bb www b w")
      55. Add("G", "bb w b www b www")
      56. Add("H", "bb www b w b www")
      57. Add("I", "bb www b www b w")
      58. Add("J", "b w bb w bbb www")
      59. Add("K", "b w bb www bbb w")
      60. Add("L", "b www bb w bbb w")
      61. Add("M", "b w bbb w bb www")
      62. Add("N", "b w bbb www bb w")
      63. Add("O", "b www bbb w bb w")
      64. Add("P", "bbb w bbb w bb w")
      65. Add("Q", "bb w b www bbb w")
      66. Add("R", "bb www b w bbb w")
      67. Add("S", "bb w bbb w b www")
      68. Add("T", "bb w bbb www b w")
      69. Add("U", "bb w bbb w bbb w")
      70. Add("V", "bbb w b w bb www")
      71. Add("W", "bbb w b www bb w")
      72. Add("X", "bbb www b w bb w")
      73. Add("Y", "bbb w bb w b www")
      74. Add("Z", "bbb w bb www b w")
      75. Add("[", "bbb www bb w b w")
      76. Add("", "bbb w bbbb w b w")
      77. Add("]", "bb ww b wwww b w")
      78. Add("^", "bbbb www b w b w")
      79. Add("_", "b w b ww bb wwww")
      80. Add("`", "b w b wwww bb ww")
      81. Add("a", "b ww b w bb wwww")
      82. Add("b", "b ww b wwww bb w")
      83. Add("c", "b wwww b w bb ww")
      84. Add("d", "b wwww b ww bb w")
      85. Add("e", "b w bb ww b wwww")
      86. Add("f", "b w bb wwww b ww")
      87. Add("g", "b ww bb w b wwww")
      88. Add("h", "b ww bb wwww b w")
      89. Add("i", "b wwww bb w b ww")
      90. Add("j", "b wwww bb ww b w")
      91. Add("k", "bb wwww b ww b w")
      92. Add("l", "bb ww b w b wwww")
      93. Add("m", "bbbb w bbb w b w")
      94. Add("n", "bb wwww b w b ww")
      95. Add("o", "b www bbbb w b w")
      96. Add("p", "b w b ww bbbb ww")
      97. Add("q", "b ww b w bbbb ww")
      98. Add("r", "b ww b ww bbbb w")
      99. Add("s", "b w bbbb ww b ww")
      100. Add("t", "b ww bbbb w b ww")
      101. Add("u", "b ww bbbb ww b w")
      102. Add("v", "bbbb w b ww b ww")
      103. Add("w", "bbbb ww b w b ww")
      104. Add("x", "bbbb ww b ww b w")
      105. Add("y", "bb w bb w bbbb w")
      106. Add("z", "bb w bbbb w bb w")
      107. Add("{", "bbbb w bb w bb w")
      108. Add("|", "b w b w bbbb www")
      109. Add("}", "b w b www bbbb w")
      110. Add("~", "b www b w bbbb w")
      112. End Sub
      114. ''' <summary>
      115. ''' Verkürzung von sign_dictonary.Add()
      116. ''' </summary>
      117. ''' <param name="char"></param>
      118. ''' <param name="code"></param>
      119. ''' <remarks></remarks>
      120. Private Sub Add(ByVal [char] As String, ByVal code As String)
      121. sign_dictonary.Add(CChar([char]), code)
      122. End Sub
      124. #Region "Encoder"
      125. ''' <summary>
      126. ''' Gibt Index des Zeichens zurück
      127. ''' </summary>
      128. ''' <param name="char"></param>
      129. ''' <returns></returns>
      130. ''' <remarks></remarks>
      131. Private Function GetIndex(ByVal [char] As Char) As Integer
      132. For u As Integer = 0 To sign_dictonary.Count - 1
      133. If sign_dictonary.Keys(u) = [char] Then
      134. Return u
      135. End If
      136. Next
      137. End Function
      139. ''' <summary>
      140. ''' Konvertiert eine Zeichenfolge in Black and White Stripes
      141. ''' </summary>
      142. ''' <param name="text">Zu Übersetzender Text</param>
      143. ''' <returns></returns>
      144. ''' <remarks></remarks>
      145. Private Function Convert(ByVal text As String) As String
      146. Load_Dictonary()
      147. Dim returnstring As String = ""
      149. Dim prüfsumme As Double = 0
      150. Dim gewichtung As Integer = 1
      152. For Each cr As Char In text
      153. returnstring = returnstring & " " & sign_dictonary(cr)
      154. prüfsumme = prüfsumme + GetIndex(cr) * gewichtung
      155. gewichtung = gewichtung + 1
      156. Next
      157. prüfsumme = prüfsumme + 104
      158. Dim prüfsummenmod As Integer = CInt(prüfsumme Mod 103)
      160. Dim prüfensummenkodierung As String = sign_dictonary(sign_dictonary.Keys(prüfsummenmod))
      163. 'Beginncode & TextCode & StopCode
      164. Return ("bb w b ww b wwww" & returnstring.Substring(1, returnstring.Length - 1) & prüfensummenkodierung & "bb www bbb w b w bb").Replace(" ", "")
      165. End Function
      167. ''' <summary>
      168. ''' Kodiert eine Zeichenfolge in einen 128B-Barcode
      169. ''' </summary>
      170. ''' <param name="text">Der darzustellende Text</param>
      171. ''' <param name="height">Die Höhe des Barcodes</param>
      172. ''' <returns></returns>
      173. ''' <remarks></remarks>
      174. Public Function Encode(ByVal text As String, ByVal height As Integer) As Bitmap
      175. Dim kombination As String = Convert(text)
      177. Dim bmp As New Bitmap((kombination.Length), height)
      179. Dim gr As Graphics = Graphics.FromImage(bmp)
      180. With gr
      181. .SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
      182. .TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
      183. .PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
      184. .InterpolationMode = Drawing2D.InterpolationMode.HighQualityBilinear
      185. .CompositingQuality = Drawing2D.CompositingQuality.HighQuality
      186. End With
      190. For u As Integer = 0 To kombination.Length - 1
      191. If kombination.Substring(u, 1) = "w" Then
      192. gr.FillRectangle(Brushes.White, New Rectangle(u, 0, 1, height))
      193. End If
      194. If kombination.Substring(u, 1) = "b" Then
      195. gr.FillRectangle(Brushes.Black, New Rectangle(u, 0, 1, height))
      196. End If
      197. Next
      199. Return bmp
      200. End Function
      201. #End Region
      204. End Class


      Verwendung:

      VB.NET-Quellcode

      1. Dim barcoder as New BarCode128B
      2. PictureBox1.Image = barcoder.Encode("Test",50)



      Um die Dekodierungsfunktion werde ich mich im Laufe der nächsten Woche kümmern :). Hoffe jemand kann was damit anfangen.

      Greetz faxe1008
      Bilder

      • Klassendiagramm.jpg

        13,71 kB, 148×171, 896 mal angesehen
      Dateien

      • BarCode128B.vb

        (6,28 kB, 321 mal heruntergeladen, zuletzt: )

      8-) faxe1008 8-)

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „faxe1008“ ()

      Hier nun die Dekodierung - war einfacher als gedacht :). Ich habe die Klasse noch ein bisschen mit Regions gegliedert um es mit Foldingmarkers ein bzw. ausklappbar zu machen. Ich habe hier bewusst Bitmap.getPixel verwendet, da ich bei einer Bitmap, die eine Width von 100 hat, auch nur dieselbe Anzahl an Pixel prüfen muss. In einem Testprojekt mit einer Stopwatch dauerte ein solcher Dekodierungsvorgang lediglich 4 Millisekunden, was glaube ich verschmerzbar ist :D .

      Barcode128B.vb

      VB.NET-Quellcode

      1. Option Strict On
      2. Imports System.Drawing
      4. Public Class BarCode128B
      5. Private sign_dictonary As New Dictionary(Of Char, String)
      7. ''' <summary>
      8. ''' Lädt die Zeichen in das Wörterbuch
      9. ''' </summary>
      10. ''' <remarks></remarks>
      11. Private Sub Load_Dictionary()
      12. sign_dictonary.Clear()
      13. Add(" ", "bb w bb ww bb ww")
      14. Add("!", "bb ww bb w bb ww")
      15. Add("""", "bb ww bb ww bb w")
      16. Add("#", "b ww b ww bb www")
      17. Add("$", "b ww b www bb ww")
      18. Add("%", "b www b ww bb ww")
      19. Add("&", "b ww bb ww b www")
      20. Add("'", "b ww bb www b ww")
      21. Add("(", "b www bb ww b ww")
      22. Add(")", "bb ww b ww b www")
      23. Add("*", "bb ww b www b ww")
      24. Add("+", "bb www b ww b ww")
      25. Add(",", "b w bb ww bbb ww")
      26. Add("-", "b ww bb w bbb ww")
      27. Add(".", "b ww bb ww bbb w")
      28. Add("/", "b w bbb ww bb ww")
      29. Add("0", "b ww bbb w bb ww")
      30. Add("1", "b ww bbb ww bb w")
      31. Add("2", "bb ww bbb ww b w")
      32. Add("3", "bb ww b w bbb ww")
      33. Add("4", "bb ww b ww bbb w")
      34. Add("5", "bb w bbb ww b ww")
      35. Add("6", "bb ww bbb w b ww")
      36. Add("7", "bbb w bb w bbb w")
      37. Add("8", "bbb w b ww bb ww")
      38. Add("9", "bbb ww b w bb ww")
      39. Add(":", "bbb ww b ww bb w")
      40. Add(";", "bbb w bb ww b ww")
      41. Add("<", "bbb ww bb w b ww")
      42. Add("=", "bbb ww bb ww b w")
      43. Add(">", "bb w bb w bb www")
      44. Add("?", "bb w bb www bb w")
      45. Add("@", "bb www bb w bb w")
      46. Add("A", "b w b www bb www")
      47. Add("B", "b www b w bb www")
      48. Add("C", "b www b www bb w")
      49. Add("D", "b w bb www b www")
      50. Add("E", "b www bb w b www")
      51. Add("F", "b www bb www b w")
      52. Add("G", "bb w b www b www")
      53. Add("H", "bb www b w b www")
      54. Add("I", "bb www b www b w")
      55. Add("J", "b w bb w bbb www")
      56. Add("K", "b w bb www bbb w")
      57. Add("L", "b www bb w bbb w")
      58. Add("M", "b w bbb w bb www")
      59. Add("N", "b w bbb www bb w")
      60. Add("O", "b www bbb w bb w")
      61. Add("P", "bbb w bbb w bb w")
      62. Add("Q", "bb w b www bbb w")
      63. Add("R", "bb www b w bbb w")
      64. Add("S", "bb w bbb w b www")
      65. Add("T", "bb w bbb www b w")
      66. Add("U", "bb w bbb w bbb w")
      67. Add("V", "bbb w b w bb www")
      68. Add("W", "bbb w b www bb w")
      69. Add("X", "bbb www b w bb w")
      70. Add("Y", "bbb w bb w b www")
      71. Add("Z", "bbb w bb www b w")
      72. Add("[", "bbb www bb w b w")
      73. Add("", "bbb w bbbb w b w")
      74. Add("]", "bb ww b wwww b w")
      75. Add("^", "bbbb www b w b w")
      76. Add("_", "b w b ww bb wwww")
      77. Add("`", "b w b wwww bb ww")
      78. Add("a", "b ww b w bb wwww")
      79. Add("b", "b ww b wwww bb w")
      80. Add("c", "b wwww b w bb ww")
      81. Add("d", "b wwww b ww bb w")
      82. Add("e", "b w bb ww b wwww")
      83. Add("f", "b w bb wwww b ww")
      84. Add("g", "b ww bb w b wwww")
      85. Add("h", "b ww bb wwww b w")
      86. Add("i", "b wwww bb w b ww")
      87. Add("j", "b wwww bb ww b w")
      88. Add("k", "bb wwww b ww b w")
      89. Add("l", "bb ww b w b wwww")
      90. Add("m", "bbbb w bbb w b w")
      91. Add("n", "bb wwww b w b ww")
      92. Add("o", "b www bbbb w b w")
      93. Add("p", "b w b ww bbbb ww")
      94. Add("q", "b ww b w bbbb ww")
      95. Add("r", "b ww b ww bbbb w")
      96. Add("s", "b w bbbb ww b ww")
      97. Add("t", "b ww bbbb w b ww")
      98. Add("u", "b ww bbbb ww b w")
      99. Add("v", "bbbb w b ww b ww")
      100. Add("w", "bbbb ww b w b ww")
      101. Add("x", "bbbb ww b ww b w")
      102. Add("y", "bb w bb w bbbb w")
      103. Add("z", "bb w bbbb w bb w")
      104. Add("{", "bbbb w bb w bb w")
      105. Add("|", "b w b w bbbb www")
      106. Add("}", "b w b www bbbb w")
      107. Add("~", "b www b w bbbb w")
      109. End Sub
      111. ''' <summary>
      112. ''' Verkürzung von sign_dictonary.Add()
      113. ''' </summary>
      114. ''' <param name="char"></param>
      115. ''' <param name="code"></param>
      116. ''' <remarks></remarks>
      117. Private Sub Add(ByVal [char] As String, ByVal code As String)
      118. sign_dictonary.Add(CChar([char]), code)
      119. End Sub
      122. #Region "Encoder"
      123. ''' <summary>
      124. ''' Gibt Index des Zeichens zurück
      125. ''' </summary>
      126. ''' <param name="char"></param>
      127. ''' <returns></returns>
      128. ''' <remarks></remarks>
      129. Private Function GetIndex(ByVal [char] As Char) As Integer
      130. For u As Integer = 0 To sign_dictonary.Count - 1
      131. If sign_dictonary.Keys(u) = [char] Then
      132. Return u
      133. End If
      134. Next
      135. End Function
      137. ''' <summary>
      138. ''' Konvertiert eine Zeichenfolge in Black and White Stripes
      139. ''' </summary>
      140. ''' <param name="text">Zu Übersetzender Text</param>
      141. ''' <returns></returns>
      142. ''' <remarks></remarks>
      143. Private Function Convert(ByVal text As String) As String
      144. Load_Dictionary()
      145. Dim returnstring As String = ""
      147. Dim prüfsumme As Double = 0
      148. Dim gewichtung As Integer = 1
      150. For Each cr As Char In text
      151. returnstring = returnstring & " " & sign_dictonary(cr)
      152. prüfsumme = prüfsumme + GetIndex(cr) * gewichtung
      153. gewichtung = gewichtung + 1
      154. Next
      155. prüfsumme = prüfsumme + 104
      156. Dim prüfsummenmod As Integer = CInt((prüfsumme Mod 103))
      159. Dim prüfensummenkodierung As String = sign_dictonary(sign_dictonary.Keys(prüfsummenmod))
      162. 'Beginncode & TextCode & StopCode
      163. Return ("bb w b ww b wwww" & returnstring.Substring(1, returnstring.Length - 1) & prüfensummenkodierung & "bb www bbb w b w bb").Replace(" ", "")
      164. End Function
      166. ''' <summary>
      167. ''' Kodiert eine Zeichenfolge in einen 128B-Barcode
      168. ''' </summary>
      169. ''' <param name="text">Der darzustellende Text</param>
      170. ''' <param name="height">Die Höhe des Barcodes</param>
      171. ''' <returns></returns>
      172. ''' <remarks></remarks>
      173. Public Function Encode(ByVal text As String, ByVal height As Integer) As Bitmap
      174. Dim kombination As String = Convert(text)
      176. Dim bmp As New Bitmap((kombination.Length), height)
      178. Dim gr As Graphics = Graphics.FromImage(bmp)
      179. With gr
      180. .SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
      181. .TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
      182. .PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
      183. .InterpolationMode = Drawing2D.InterpolationMode.HighQualityBilinear
      184. .CompositingQuality = Drawing2D.CompositingQuality.HighQuality
      185. End With
      189. For u As Integer = 0 To kombination.Length - 1
      190. If kombination.Substring(u, 1) = "w" Then
      191. gr.FillRectangle(Brushes.White, New Rectangle(u, 0, 1, height))
      192. End If
      193. If kombination.Substring(u, 1) = "b" Then
      194. gr.FillRectangle(Brushes.Black, New Rectangle(u, 0, 1, height))
      195. End If
      196. Next
      198. Return bmp
      199. End Function
      200. #End Region
      203. #Region "Decoder"
      205. ''' <summary>
      206. ''' Filtert die Kombination von weißen und schwarzen Stripes aus der BMP
      207. ''' </summary>
      208. ''' <param name="bmp">Bitmap, die den Barcode enthält</param>
      209. ''' <returns>Black und White Bar Kombination</returns>
      210. ''' <remarks></remarks>
      211. Private Function Get_Combination(ByVal bmp As Bitmap) As String
      212. Dim kombination As String = ""
      213. For u As Integer = 0 To bmp.Width - 1
      214. If bmp.GetPixel(u, 1) = Color.FromArgb(0, 0, 0) Then
      215. kombination = kombination + "b"
      216. End If
      217. If bmp.GetPixel(u, 1) = Color.FromArgb(255, 255, 255) Then
      218. kombination = kombination + "w"
      219. End If
      220. Next
      221. Return kombination
      222. End Function
      224. ''' <summary>
      225. ''' Bildet 11er Gruppen aus dem String
      226. ''' </summary>
      227. ''' <param name="combination">die Kombination der Black und White Bars</param>
      228. ''' <returns>Liste der 11er Gruppen</returns>
      229. ''' <remarks></remarks>
      230. Private Function Build_Groups(ByVal combination As String) As List(Of String)
      231. Dim kombinationen As New List(Of String)
      232. For u = 0 To CInt((combination.Length / 11) - 1)
      233. kombinationen.Add(combination.Substring(u * 11, 11))
      234. Next
      235. Return kombinationen
      236. End Function
      238. ''' <summary>
      239. ''' Findet den Key anhand des Values
      240. ''' </summary>
      241. ''' <param name="combination"></param>
      242. ''' <returns>Key des Dictionary</returns>
      243. ''' <remarks></remarks>
      244. Private Function Get_Key_By_Value(ByVal combination As String) As Char
      245. For u = 0 To sign_dictonary.Count - 1
      247. If sign_dictonary(sign_dictonary.Keys(u)).Replace(" ", "") = combination Then
      248. Return sign_dictonary.Keys(u)
      249. End If
      250. Next
      251. End Function
      253. ''' <summary>
      254. ''' Dekodiert eine Bitmap zu Text
      255. ''' </summary>
      256. ''' <param name="bmp">Die zu dekodierende Bitmap</param>
      257. ''' <returns>Den dekodierten Text</returns>
      258. ''' <remarks></remarks>
      259. Public Function Decode(ByVal bmp As Bitmap) As String
      260. Load_Dictionary()
      261. Dim groups = Build_Groups(Get_Combination(bmp))
      262. Dim decodedstring As String = ""
      263. For u As Integer = 1 To groups.Count - 3
      264. decodedstring = decodedstring + Get_Key_By_Value(groups(u))
      265. Next
      266. Return decodedstring
      267. End Function
      268. #End Region
      269. End Class


      Hier das erneuerte Klassendiagramm:


      Und für diejenigen, die es einfach mal schnell testen wollen habe ich ein Testprogramm angehängt :) . Ich werde weitere Kodierungsklassen schreiben (vllt. QRCode o.ä.) und euch dann ebenfalls zur Verfügung stellen, in der Hoffnung das jemand es brauchen kann.

      Greetz Fabian
      Dateien

      • BarCode-128B.rar

        (86,12 kB, 150 mal heruntergeladen, zuletzt: )

      8-) faxe1008 8-)

      Interessantes Projekt, aber beim Decoder hab ich meine Zweifel, dass der praktikabel ist.

      Denn Barcodes, die dekodiert werden sollen, kommen in den seltensten Fällen als glasklare Bitmap, sondern meist als Scan oder Foto.
      Das bedeutet, dass die schwarzen Balken von den weißen Zwischenräumen nicht mehr so klar abgegrenzt sind, dass man einfach Pixel für Pixel durchgehen kann. Zudem wird der Barcode rein theoretisch in beliebigen Winkeln, mindestens aber mit ein paar Grad "Tilt" abgelichtet. ;)
      Weltherrschaft erlangen: 1%
      Ist dein Problem erledigt? -> Dann markiere das Thema bitte entsprechend.
      Waren Beiträge dieser Diskussion dabei hilfreich? -> Dann klick dort jeweils auf den Hilfreich-Button.
      Danke.

      Die Klasse dient ja dem Dekodieren von Barcodes, die richtig "gedreht" sind. Falls dies nicht der Fall ist kannst du es ja mit RotateTransform so drehen, dass es lesbar ist ;). Die Qualität des Bildes hängt nun mal vom Drucker/Scanner ab und da kann ich mit der Klasse nichts dran ändern.
      So eben ist mir noch eine Sache eingefallen, die vielleicht noch interessant wäre. Eine Funktion die anhand der Prüfsequenz zurückgibt ob es sich um einen gültigen Barcode handelt.

      8-) faxe1008 8-)

      @nafets3646:
      Weil es von sehr vielen Faktoren abhängt:
      Ist das Bild vollständig?
      Wurde möglicherweise gezoomt, wodurch ein Bar dann größer als 1 Pixel wäre?
      Wurde das Blatt mit farbigem Licht angestrahlt, wodurch sich die Farbwerte ändern?
      Passt der Winkel des Barcodes, so dass eine lesbare Bitmap vorliegt?

      8-) faxe1008 8-)

      Könnte, man aber das löst dieses Problem leider nicht:

      faxe1008 schrieb:

      Wurde möglicherweise gezoomt, wodurch ein Bar dann größer als 1 Pixel wäre?


      Denn selbst wenn es richtig gedreht wäre würde der Decoder nicht wissen ob z.B. bb auf einen Fehler des Zoomens zurückzuführen ist, oder ob es sich wirklich um zwei schwarze Bars handelt. Denn in Wirklichkeit könnte es ein stark vergrößerter Bar sein, der nun mehrere Pixel einnimmt.

      Aber Falls du eine Lösung dieses Problemes findest, kannst du sie uns gerne präsentieren :) .

      8-) faxe1008 8-)

      Hm, mal sehen...

      Zunächst das Problem mit dem fehlenden Kontrast bzw. andersfarbigem Hintergrund: Bild in Graustufen umwandeln. Nach Möglichkeit auch mit der RGB-Gewichtung, die kürzlich erst in einem anderen Thread thematisiert wurde (R=0.3, G=0.59, B=0.11). Damit kann man dann alles schön in "schwarz und weiß" auseinander dividieren.

      Dann versucht man im Bild die Lage der Streifen zu analysieren. Das wird vermutlich der aufwändigste Part. Am Ende sollte man einen Winkel und das Barcode-relevante Rechteck haben. Mit dieser Info nimmt man am besten wieder das Original, dreht es entsprechend und schneidet dann das Rechteck aus, bevor man hier wieder mit Hilfe der Graustufen-Informationen ein schwarz-weiß-Bild draus macht.

      Ab hier hast du dann ein Bild, bei dem du wieder eine einzelne Pixelzeile betrachten kannst, aber berücksichtigen musst, dass der Barcode ggf. um 180 Grad gedreht ist.

      Auch nicht ganz trivial ist jetzt die Interpretation dieser Pixel, weil du jetzt in mehreren Versuchen testen musst, mit welchen Zoomfaktor bzw. Balkenabstand du einen gültigen Barcode auslesen kannst. Das Schwierigstee daran wird vermutlich sein, dass durch die Hau-Ruck-Methode, mit der ein Anti-Aliasing zurückgebrochen wird, zwei Balken, die "theoretisch" gleich breit sein müssten, in der Breite um 1 oder 2 Pixel voneinander abweichen können.
      Weltherrschaft erlangen: 1%
      Ist dein Problem erledigt? -> Dann markiere das Thema bitte entsprechend.
      Waren Beiträge dieser Diskussion dabei hilfreich? -> Dann klick dort jeweils auf den Hilfreich-Button.
      Danke.

      @Arby
      Ich denke, man kann das mit den Streifen auch so machen, dass man einfach entlang einer Linie von links nach rechts geht und dann versucht, eine ungefähre Breite für den Streifen zu ermitteln.

      @Kevin Hombre
      Es geht ja nicht darum, dass vom Computer generierte Barcodes gefunden werden sondern dass fotografierte Barcodes oder ähnliches gefunden werden können.

      nafets3646 schrieb:

      @Arby
      Ich denke, man kann das mit den Streifen auch so machen, dass man einfach entlang einer Linie von links nach rechts geht und dann versucht, eine ungefähre Breite für den Streifen zu ermitteln.

      Ja, das dürfte vermutlich sogar einfacher sein als ich zunächst angenommen hatte. Denn wenn ich den Barcode richtig gedeutet habe, dann sind die schwarzen Balken und die weißen Zwischenräume dazwischen immer nur jeweils ein, zwei oder drei Einheiten breit.

      @Kevin Hombre:
      Das funktioniert aber spätestens dann nicht, wenn ein "weißer" Pixel nicht weiß, sondern hellgrau ist oder - z.B. durch Beleuchtung auf einem Foto - gelb oder gar rot ist.
      Weltherrschaft erlangen: 1%
      Ist dein Problem erledigt? -> Dann markiere das Thema bitte entsprechend.
      Waren Beiträge dieser Diskussion dabei hilfreich? -> Dann klick dort jeweils auf den Hilfreich-Button.
      Danke.

      Ich hab mal was versucht, momentan muss man zwar noch alles manuell auswählen, jedoch geht die Analyse schon einigermaßen. Hier mal ein Screenshot der Anwendung:

      Ich denke mal nicht, dass es so schwer sein wird (@faxe1008). Der Barcode ist zwar mit ziemlich guter Qualität, das wäre aber ein möglicher Anfang. Immerhin erkennt man schon die grundsätzlichen Linien im Diagramm unten. Ich versuche mich gerade noch an einem Filter, welcher die Ergebnisse weiter filtert. Für die, die es interessiert: Für die Analyse wird alles im orangen Bereich analysiert (um Ungenauigkeiten zu vermeiden), die rote Linie markiert hier den Teil, der am stärksten gewichtet wird. Den Code habe ich aus dem Internet.

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „nafets3646“ ()

      Sieht doch schon gut aus. Die Aufgabenstellung beginnt, mich zu reizen... mal sehen, vielleicht bastel ich da auch mal was, wenn ich Zeit habe. Ich hab ne Idee wie man evtl. ohne vorheriges Rotieren der Bitmap und Suchen des Barcode-Bereichs auskommen kann.
      Weltherrschaft erlangen: 1%
      Ist dein Problem erledigt? -> Dann markiere das Thema bitte entsprechend.
      Waren Beiträge dieser Diskussion dabei hilfreich? -> Dann klick dort jeweils auf den Hilfreich-Button.
      Danke.

    Facebook
    Telefonspende