EAN13 erzeugen

[Womble]

Es gäbe den 'Fix' die Zeile Dim linienBreite As Single = zBreite / 113.0F durch die Zeile Dim linienBreite As Single = 0.5F zu ersetzen, dann ist der Code zwar sehr breit aber die meisten Scanner sollten ihn lesen können. Dann sieht man das der Code an sich richtig ist und durch die Umrechnung auf das vorgeschlagene Format verfälscht wird.

Ich schau mal ob mir noch was brauchbares einfällt.

Gruß Womble

[gfoidl]

Hi,

im Anhang ein Projekt das funktioniert - ist getestet.

mfG Gü

[Womble]

Das Programm hat das gleiche Problem wie meine Version wenn man die Linienbreite auf 0,5 stellt. Der Code stimmt ist aber - nach Empfehlung von EAN - zu breit.

[hai22]

Das Programm vom gfoidl funktioniert ja e problemlos

nur ist es wieder in c# geschrieben
kann mir mal jemand sagen wie ich das eigentlich umkonvertieren kann
oder jemand mahcen für mich

thx schon mal

Mfg hai22

[gfoidl]

Hi hai22,

sorry dass ich nur in C# posten kann da mir VB.Net zu wenig/nicht geläufig ist.

Ich habs wiederrum versuch mit #Develop von C# zu VB.Net zu konvertieren. Mit ein wenig (oder mehr) zusätzlicher Handarbeit hab ich's hinbekommen - siehe Anhang.

mfG Gü

[hai22]

thx

nur wenn ich jetzt die größe ändern will

stimmt ma da code nima zusammen
hach probleme über probleme

Warum gibts da nicht eifnach eine fertige variante ^^

mfg hai22

[gfoidl]

Hi,

gibts eh - nur nicht umsonst.

[hai22]

^^

ja das is dan auch nicht super
da i ja für das Projekt ned bezahlt werd

naja bleibt e nur 1 übrig weitersuchen

mfg hai22

[gfoidl]

Hi,

eine funktionierende Lösung (eher als Hilfsmittel) ist das Image vom Code zu skalieren auf die richtige Größe.

Hierzu kann folgende Methode verwendet werden:

# Public Function ResizeBitmap(ByVal bmp As Bitmap, ByVal width As Integer, ByVal height As Integer) As Bitmap
#     Dim result As New Bitmap(width, height)
#     Using g As Graphics = Graphics.FromImage(result)
#         g.DrawImage(bmp, 0, 0, width, height)
#     End Using
#    
#     Return result
# End Function

Um daz Bild zu skalieren wird dann dies verwendet:

   1. pictureBox1.Image = code.Paint()
   2.
   3. ' Barcode als Bilder exportieren:
   4. pictureBox1.Image.Save("code.png", ImageFormat.Png)
   5. pictureBox1.Image.Save("code.jpg", ImageFormat.Jpeg)
   6. pictureBox1.Image.Save("code.gif", ImageFormat.Gif)
   7. pictureBox1.Image.Save("code.tif", ImageFormat.Tiff)
   8.
   9. ' Bild skalieren:
  10. Dim bmp As Bitmap = TryCast(pictureBox1.Image, Bitmap)
  11. bmp = ResizeBitmap(bmp, 300, 100)
  12. bmp.Save("code1.png", ImageFormat.Png)
13.

Der so erzeugte Barcode wurde getestet und liefert richtige Ergebnisse.

mfG Gü

[hai22]

Hey
das find ich schon mal super

Dankeschön warum bin ich auf das ned selber drauf gekommen

muss in nur nu prüfen wie das dna funktioniert und dan hof i das endlich funktioniert gg

Aber dankeschön fürs erste ^^

Mfg Hai22