code utilisé pour les codes barres

[croco01]

bonjour, je suis des cours de programmations et donc je connais plusieurs code basique: le binaire,l'hexadécimal, le code ASCII ou encore le DCB et et on m'a dit que les codes barres était du binaire(barre noire=1 barre blanche=0) donc je me demandait en quel code sont-il encodés? en ASCII?
après quelques recherches sur le net j'ai pas trouver grand chose si vous pouviez m'aider ça serait magnifique
merci croco01
-----

[invitee05a3fcc]

C'est un peu plus compliqué que ça :
http://fr.wikipedia.org/wiki/Code-barres
http://www.clubic.com/telecharger-fi...generator.html

[curieuxdenature]

Bonjour croco01

il n'y a pas qu'un code barre, si ça t'interresse je peux te passer un bout de code pour l'EAN13 en VisualBasic. C'est le plus courant sur les boites de conserves, les livres, etc..

[croco01]

Bonjour croco01

il n'y a pas qu'un code barre, si ça t'interresse je peux te passer un bout de code pour l'EAN13 en VisualBasic. C'est le plus courant sur les boites de conserves, les livres, etc..

ben je veux bien merci j'avoue que je suis curieux de savoir ce qu'est le code ean13 mais je suis pas sur de le comprendre enfin vous êtes la pour me renseigner et de mon coté je vais tenter de comprendre merci de vos réponses croco01

[A voir en vidéo sur Futura]

[curieuxdenature]

Bonjour croco01

je te file le code du module complet, ce sera plus simple pour la compréhension, si tu programmes cela ne devrait pas te poser problème, c'est du VisualBasic6.

Private Sub Command1_Click()
Cls
Dim un$(9), deux$(9, 2), quatre$
GoSub CODE

entree:
CodeBarre$ = Text2.Text

If Val(CodeBarre$) < 100000000000# Or Len(CodeBarre$) <> 12 Then
Text2.Text = "12 CHIFFRES!"
DoEvents
Exit Sub
End If

a = 0: For i = 2 To 12 Step 2: a = a + Val(Mid$(CodeBarre$, i, 1)): Next: a = a * 3
b = 0: For i = 1 To 11 Step 2: b = b + Val(Mid$(CodeBarre$, i, 1)): Next: a = a + b
b = Int((a + 9) / 10) * 10: a = b - a
CodeBarre$ = CodeBarre$ + Right$(Str$(a), 1)
X = 0
Ean13$ = "101" 'garde
GoSub Calcul

For i = 2 To 7 'ODD
UnOuZero = Val(Mid$(un$(Val(Left$(CodeBar re$, 1))), i - 1, 1)) ' selon le controle
Ean13$ = deux$(Val(Mid$(CodeBarre$, i, 1)), UnOuZero)
GoSub Calcul
Next

Ean13$ = "01010" 'milieu
GoSub Calcul

For i = 8 To 13 'EVEN
Ean13$ = deux$(Val(Mid$(CodeBarre$, i, 1)), 2)
GoSub Calcul
Next

Ean13$ = "101" 'garde
GoSub Calcul

'Print quatre$
'Print CodeBarre$
'Print Len(quatre$)

Picture1.SetFocus
Picture1.Cls

Picture1.Font = "Comic Sans MS"
Picture1.Font.Bold = False
Picture1.FontSize = 9

Picture1.ScaleLeft = 0
Picture1.ScaleWidth = (Len(quatre$) + 8)

pointe = 50
Picture1.ScaleTop = pointe
Picture1.ScaleHeight = -pointe
Picture1.DrawWidth = 2

For j = 1 To Len(quatre$)

If Val(Mid$(quatre$, j, 1)) = 1 Then
Y = 45: bas = 5: haut = 13
If j < 4 Then Y1 = bas
If j > 3 And j < 46 Then Y1 = haut
If j > 45 And j < 51 Then Y1 = bas
If j > 50 And j < 93 Then Y1 = haut
If j > 92 Then Y1 = bas

XX = j + 5
Picture1.Line (XX, Y1)-(XX, Y), QBColor(0)
End If

Next
picture1_Locate 12, 1
Picture1.Print Left$(CodeBarre$, 1);

For X = 1 To 5
picture1_Locate 12, 3 + (X * 7)
Picture1.Print Mid$(CodeBarre$, X + 1, 1);
Next

Picture1.Font = "Comic Sans MS"
Picture1.Font.Bold = True
Picture1.FontSize = 11

picture1_Locate 12, 3 + (X * 7)
Picture1.Print Mid$(CodeBarre$, X + 1, 1)

For X = 7 To 11
picture1_Locate 12, 8 + (X * 7)
Picture1.Print Mid$(CodeBarre$, X + 1, 1)
Next
Picture1.FontSize = 7
picture1_Locate 12, 8 + (X * 7) ' caractère de controle
Picture1.Print Mid$(CodeBarre$, X + 1, 1)
Exit Sub

Calcul:
L = Len(Ean13$)
For K = 1 To L
pp = Val(Mid$(Ean13$, K, 1))
quatre$ = quatre$ + Trim$(Str$(pp))
Next
Return

CODE:
'controle
un$(0) = "000000": un$(1) = "001011": un$(2) = "001101": un$(3) = "001110": un$(4) = "010011"
un$(5) = "011001": un$(6) = "011100": un$(7) = "010101": un$(8) = "010110": un$(9) = "011010"

'parité ODD
deux(0, 0) = "0001101": deux(1, 0) = "0011001": deux(2, 0) = "0010011": deux(3, 0) = "0111101": deux(4, 0) = "0100011"
deux(5, 0) = "0110001": deux(6, 0) = "0101111": deux(7, 0) = "0111011": deux(8, 0) = "0110111": deux(9, 0) = "0001011"

deux(0, 1) = "0100111": deux(1, 1) = "0110011": deux(2, 1) = "0011011": deux(3, 1) = "0100001": deux(4, 1) = "0011101"
deux(5, 1) = "0111001": deux(6, 1) = "0000101": deux(7, 1) = "0010001": deux(8, 1) = "0001001": deux(9, 1) = "0010111"

'parité EVEN
deux(0, 2) = "1110010": deux(1, 2) = "1100110": deux(2, 2) = "1101100": deux(3, 2) = "1000010": deux(4, 2) = "1011100"
deux(5, 2) = "1001110": deux(6, 2) = "1010000": deux(7, 2) = "1000100": deux(8, 2) = "1001000": deux(9, 2) = "1110100"
Return

End Sub

les 12 chiffres du code EAN13 sont reseignés par Text2.text

D'abord le code est décomposé pour générer le 13eme qui sert de checksum.

- ensuite le code barre débute avec une constante (101)
- puis les 6 1ers chiffres sont affichés.
- 01010 dans le milieu du code.
- les 6 derniers chiffres.
- encore la constante (101)
- pour finir le chiffre de controle.

le plus compliqué est encore de tracer les lignes...

voilà ce que ça génère :

[croco01]

je crois que je vais attendre un peu que j'avance dans les cours de programmation car la c'est pas encore de mon niveau, j'y comprend absolument rien car je ne connais pas encore le VisualBasic6, mais j'ai quand même une question peut-on lire un code barre à la main? car j'avais entendu dire que une barre noire représente un "1" et une barre blanche représente un "0" donc si on traduit le code barre en une succession de 0 et de 1 on peut peut être arrivé a décoder le nom de l'article ou pas?cela a t-il quelque chose a voir?

[invite0324077b]

ton explication est trop simpliste : si il y avait plusieur zero de suite ca ferai un large zone blanche impossible a decoder ... idem si plusieur 1 de suite

les code barre sont donc plus compliqué mais on trouve sur ne net tout ce qu'il faut pour les imprimer ou les comprendre

[invite0324077b]

il y a la une tres bonne explication sur le code ean13 :
http://grandzebu.net/index.php?page=...dbar/ean13.htm
avec en plus des police de caractere permettant de faire des codes barre avec exel ou open office

et d'autres page aussi interressante sur les autres codes barres : merci grandzebu !

[invite2ff5531f]

BJr,

Il y a encore plus de détails là :
http://fr.wikipedia.org/wiki/Code-barres_EAN

Cordialement

[croco01]

ouai je sais c'était pour simplifier que je disais barre noir=1 barre blanche=0 mais pas de problème de ce coté la car je connais un logiciel qui donne la valeur binaire des code barre, ce que je veux savoir c'est en quel code alphanumérique faut il traduire tout ca pour avoir quelque chose de cohérent?
PS: j'ai essayer de le convertir en ASCII et je confirme ce que l'on m'a dit un peu plus haut dans cette discution " c'est un peu plus compliqué que l'ASCII" merci de vos réponses
croco01

[invite2ff5531f]

Re-bjr,

Regardez dans le lien que j'ai indiqué dans mon message précédent, il y a tous les détails..

Cordialement

[croco01]

bonjour, merci de vos nombreuses réponses a mon sujet, j'ai une dernière question pour vous;j'ai compris le procédé d'encodage mais je me demande si l'on peut écrire n'importe quoi avec ce système? par exemple pourrai-je écrire mon prénom dans un code barre comme ça des que je le présenterais a une borne de contrôle des prix celle ci affichera mon prénom... est ce possible ou pas?
PS:je sais que c'est d'aucune utilité mais bon j'aimerais bien le faire (si c'est faisable) par curiosité et par amour de la sciences,encore merci de vos réponses croco01

[curieuxdenature]

Bonjour Croco21

c'est possible avec le code EAN 39 mais aussi de façon un peu plus costaud avec les nouveaux QRCode, décodables par la visu des téléphones portables et qui peuvent contenir 1024 caractères en une seule image.
Voir aussi à Datamatrix.

celui-ci par exemple, je l'ai composé pour : salut
et le QRCode contient toutes les infos dans l'image, ceux qui connaissent le site d'énigmes 'Ouverture facile' reconnaitront le sujet de l'enigme 75.

[croco01]

excusez moi de vous poser tant de questions mais alors comment fait la borne de contrôle des prix pour nous donner le nom et le prix de l'article si ceux ci ne sont pas codés dans le code barre?

[invite74b5b8f7]

Salut,

Ça doit tout être enregistré dans une base de donnée (qui maintenant enregistre aussi les poids des articles pour les caisses libre service) dans une grande surface il y a un réseau qui relis toutes les caisses...