Discussion :

[sky88]

Bonjour à tous

j'ai créé un code qui me permet de générer un code à barre et il marche très bien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Imports System.Drawing
Imports System.Drawing.Printing
 
Public Class BarreCode
 
    Private lclFont As Font
    Private TextToPrint As String
 
    Public Function Code39(ByVal InputValue As String) As String
        Dim OutData As String = ""
        InputValue = InputValue.Replace(" ", "=")
 
        OutData = "!" & InputValue & "!"
        Return OutData
    End Function
 
    Public Sub PrintBarCodeV(ByVal TextFont As String, ByVal EncodedText As String, ByVal TextFontSize As Single)
        lclFont = New Font(TextFont, TextFontSize)
        TextToPrint = EncodedText
        Dim PrintDoc As PrintDocument = New PrintDocument()
        AddHandler PrintDoc.PrintPage, AddressOf PrintDocHandler
        PrintDoc.Print()
        Return
    End Sub
 
    Private Sub PrintDocHandler(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
        Dim yPos As Single = 100
        Dim leftMargin As Single = ev.MarginBounds.Left
        Dim rightMargin As Single = ev.MarginBounds.Right
        Dim topMargin As Single = ev.MarginBounds.Top
        yPos = yPos + lclFont.GetHeight(ev.Graphics)
        ev.Graphics.DrawString(TextToPrint, lclFont, Brushes.Black, 38, 15, New StringFormat())
    End Sub
 
End Class

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim EncodedText As String
        EncodedText = bar.Code39(Me.TextBox1.Text)
        TextBox1.Text = EncodedText
end sub

mon problème et quand j'imprime le code et j'essaye de le lire via le lecteur code à barre (USB)

au lieu de m'afficher 123456 il m'affiche:
&é"'(-

comment je peux régler ce problème

Merci d'avance

[GuruuMeditation]

Tu es sur que le code est bon?
Il y a plusieurs type d'encodage pour les codes barre. Est-ce que l'appareil est réglé sur le bon code?

J'ai un lecteur chez moi, si tu m'envoie une image de ton code, je peux essayer avec mon lecteur.

[sky88]

merci à vous

le code marche bien
car même si je veux lire un code à barre et de l'imprimer sur un bloc note j'aurai ce résultat

mon lecteur ressemble à ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
http://www.google.dz/imgres?q=lecteur+code+barre&um=1&hl=fr&tbo=d&tbm=isch&tbnid=KP_NlDtZenelRM:&imgrefurl=http://www.solushop.com/lecteur-code-barre-sg10t-intermec,fr,4,lecteur-code-barre-sg10t.cfm&docid=Id99mM6g_aduQM&imgurl=http://www.solushop.com/boutique/images_produits/lecteur_code_barre_sg10t_6-z.jpg&w=600&h=600&ei=7AYJUdu7OIXdsgaQ6YHoDg&zoom=1&ved=1t:3588,r:47,s:0,i:228&iact=rc&dur=843&sig=113147992603935615391&page=2&tbnh=182&tbnw=199&start=23&ndsp=28&tx=75&ty=77&biw=1440&bih=728

[sevyc64]

A la vue de ce que tu récupère, ça ressemble plus à un problème de paramétrage minuscule/majuscule de ton lecteur.
Si tu passe ton clavier en capslock, ton lecteur code-barre lira très bien.

Regarde dans le doc de ton lecteur, il est probable que tu ais un paramétrage possible sur ce point.

[sky88]

Ok je vais voir

[sky88]

Mon lecteur est Honeywell ms9540
je ne sais pas comment le configurer