none
Scanner erkennt Strichcode (Barcode) nicht

    Frage

  • Hallo liebe Forengemeinschaft,

    ich habe schon im Forum - Visual Basic (ab Version 2002 / .NET) einen Thread eröffnet und auch einige Tipps bekommen, aber
    leider hat es bis jetzt nicht zum gewünschten Ergebnis geführt.

    Deshalb hier ein weiterer Versuch, um vielleicht den entscheidenen Hinweis zu bekommen.
    Meine Anwendung ist mit VB 2010 Express programmiert.

    Der aktuelle Stand ist, dass mit einer kostenlosen Schriftdatei (Bar-Code 39 Standard), welche als Font für die Textbox eingestellt ist, die Umwandlung des String in einen Strichcode problemlos klappt.
    Das Drucken des Strichcodes aus der Textbox funktioniert auch ohne Probleme.
    (Das Drucken der Grafik-Variante habe ich noch nicht auf der gleichen Seite hin bekommen)

    Ich habe einen normalen Handscanner der die verschiedenen Strichcodes (39, 128 usw.) erkennt, aber diesen erzeugten Strichcode kann der Scanner nicht lesen!!
    Keine Ahnung warum nicht?

    Vielleicht hat jemand den entscheidenen Tipp ^^

    Anbei noch der Code:

    Imports System.Drawing.Printing
    
    Public Class Form1
        Private Sub PrintGrahpic(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
            ev.Graphics.DrawString(txtTest.Text, New Font("Bar-Code 39", 18, FontStyle.Regular), Brushes.Black, 1, 7)
            ev.Graphics.DrawString(lblBarcode.Text, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, 3, 33)
    
            ev.HasMorePages = False
        End Sub      
    
        Public Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            txtTest.Text = txtBarcode.Text
            lblBarcode.Text = txtBarcode.Text
          
            PictureBox1.Invalidate()
            PictureBox1.Image = New Bitmap(PictureBox1.Width, PictureBox1.Height, Imaging.PixelFormat.Format32bppArgb)
            PictureBox1.Refresh()
        End Sub
    
        Public Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles cmdDrucken.Click
            Try
                AddHandler PrintDocument1.PrintPage, AddressOf Me.PrintGrahpic
                PrintDocument1.Print()
            Catch ex As Exception
                MsgBox(Err.Description)
            End Try
        End Sub
    
        Public Sub PictureBox1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
            txtTest.Text = txtBarcode.Text
    
            Dim drawString As [String] = lblBarcode.Text, drawFont As New Font("Arial", 14), drawBrush As New SolidBrush(Color.Black), drawPoint As New PointF(200.0F, 55.0F)
            Dim drawString1 As [String] = txtTest.Text, drawFont1 As New Font("Bar-Code 39", 24), drawBrush1 As New SolidBrush(Color.Black), drawPoint1 As New PointF(50.0F, 10.0F)
    
            e.Graphics.DrawString(drawString, drawFont, drawBrush, drawPoint)
            e.Graphics.DrawString(drawString1, drawFont1, drawBrush1, drawPoint1)
        End Sub
    End Class

    Download-Link zum Projekt: VB-Projekt mit Schriftdatei (Link-deaktiviert !!)

    Die Funktionen im Projekt-Code bitte nicht berücksichtigen, war ein Versuch.

    Vielen Dank für die Hilfe


    Gruß ro_grille





    • Bearbeitet ro_grille Freitag, 21. Februar 2014 13:12
    Dienstag, 18. Februar 2014 16:51

Alle Antworten