IMPRESSION DE CODES BARRES CODE 39
Cyberdevil
Messages postés
483
Date d'inscription
mardi 10 juillet 2001
Statut
Membre
Dernière intervention
12 juillet 2006
-
28 juil. 2003 à 15:17
cannibal20 Messages postés 1 Date d'inscription samedi 2 octobre 2004 Statut Membre Dernière intervention 7 septembre 2007 - 7 sept. 2007 à 17:48
cannibal20 Messages postés 1 Date d'inscription samedi 2 octobre 2004 Statut Membre Dernière intervention 7 septembre 2007 - 7 sept. 2007 à 17:48
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/8072-impression-de-codes-barres-code-39
https://codes-sources.commentcamarche.net/source/8072-impression-de-codes-barres-code-39
7 sept. 2007 à 17:48
Public Function CodeBarreCode39(pCodeBar As String, Col As Long, Lig As Long, Optional Hauteur As Long 800, Optional largeur As Long 1500)
Dim TJA(255) As String
Dim CodeBar As String
Dim Chiffre As Long
Dim Ind As Long
Dim CodeChiffre As String ' Profil binaire des traits
Dim Lettre As String '
Dim Epaisseur1Trait As Double ' Epaisseur d'un trait
Dim Decalage As Long
CodeBar = pCodeBar
' initialisation du jeu de caractères pour code barre Code 39
' Le TJA(10) correspond au caractère de début et de fin du code barre (caractère *)
TJA(0) = "0001101000" '= 0
TJA(1) = "1001000010" '= 1
TJA(2) = "0011000010" '= 2
TJA(3) = "1011000000" '= 3
TJA(4) = "0001100010" '= 4
TJA(5) = "1001100000" '= 5
TJA(6) = "0011100000" '= 6
TJA(7) = "0001001010" '= 7
TJA(8) = "1001001000" '= 8
TJA(9) = "0011001000" '= 9
TJA(10) = "0100101000" '= CARATÈRE DÉBUT ET FIN
TJA(32) = "0110001000" '= SPACES
TJA(36) = "0101010000" '= $
TJA(37) = "0001010100" '= %
TJA(42) = "0100101000" '= * & CARATÈRE DÉBUT ET FIN
TJA(43) = "0100010100" '= +
TJA(45) = "0100001010" '= -
TJA(46) = "1100001000" '= .
TJA(47) = "0101000100" '= /
TJA(65) = "1000010010" '= A
TJA(66) = "0010010010" '= B
TJA(67) = "1010010000" '= C
TJA(68) = "0000110010" '= D
TJA(69) = "1000110000" '= E
TJA(70) = "0010110000" '= F
TJA(71) = "0000011010" '= G
TJA(72) = "1000011000" '= H
TJA(73) = "0010011000" '= I
TJA(74) = "0000111000" '= J
TJA(75) = "1000000110" '= K
TJA(76) = "0010000110" '= L
TJA(77) = "1010000100" '= M
TJA(78) = "0000100110" '= N
TJA(79) = "1000100100" '= O
TJA(80) = "0010100100" '= P
TJA(81) = "0000001110" '= Q
TJA(82) = "1000001100" '= R
TJA(83) = "0010001100" '= S
TJA(84) = "0000101100" '= T
TJA(85) = "1100000010" '= U
TJA(86) = "0110000010" '= V
TJA(87) = "1110000000" '= W
TJA(88) = "0100100010" '= X
TJA(89) = "1100100000" '= Y
TJA(90) = "0110100000" '= Z
'//==== Creation du mask représentant le code barre (série de 1, de 0)
'//"0" une bande étroite
'//"1" une bande large
'//"-" diminution de la hauteur du code barre (pour mettre le texte en dessous)
'//"+" Augmentation de la hauteur du code barre
CodeChiffre = TJA(10) + "-"
For Ind = 1 To Len(CodeBar)
If IsNumeric(Mid(CodeBar, Ind, 1)) Then
Chiffre = Val(Mid(CodeBar, Ind, 1))
Else
Chiffre = Val(Asc(UCase(Mid(CodeBar, Ind, 1))))
End If
CodeChiffre = CodeChiffre + TJA(Chiffre)
Next Ind
14 nov. 2005 à 20:39
Mais comme je l'ai dit plus haut, il suffit de modifier le programme pour correspondre à d'éventuelles normes pour le code 39.
14 nov. 2005 à 13:40
TJA(A) = "??????????"
TJA(B) = "??????????"
...
:(
7 sept. 2005 à 22:00
7 sept. 2005 à 21:37
Logiquement, ce serait possible vu que, comme est défini le code 39, il peut y avoir jusqu'à 84 combinaisons et donc 84 caractères : Bien assez pour coder les 10 chiffres et les 26 lettres de l'alphabet en majuscules et en minuscules.
Il suffit donc de vérifier dans la norme du code 39 si c'est bien définit.
Pour mon programme, je propose de remplacer le tableau TJA par un tableau dont l'index correspond à la valeur ASCII de la lettre à coder. A tester...
Bonne chance !!!
7 sept. 2005 à 10:13
Mais auriez vous une idée sur l'impression d'un code barre avec des lettres
17 avril 2005 à 14:22
10 nov. 2004 à 19:08
Printer.Line (X + Col, Lig)-(X + BarreCourteNoire + Col, Lig + Hauteur), , BF) ne font pas parti des fonctions standards. Pouvez vous m'aider? Merci par avance.
27 oct. 2004 à 13:10
27 oct. 2004 à 08:47
Pour la taille du code barre, il faut la déterminer par l'expérience. Ce qui est prépondérant dans la détermination de la taille du code barre, c'est la résolution de l'imprimante. Lors de mes essais sur une imprimante laser (600 dpi), j'arrivais à faire des codes barres de 2 cm de long pour 5 chiffres, mais avec l'imprimante à étiquettes (300 dpi), il fallait qu'ils fassent 4 à 5 cm pour un code barre de 5 chiffres aussi.
27 oct. 2004 à 01:56
je te remercie pour les liens j'aimerai bien savoir une autre chose, lors de l'impression du code barre est ce que la taille du code barre entre en jeux. et vous pourrai me donner la taille du code barre.
et merci d'avance
26 oct. 2004 à 21:39
je t'envoi qq lien
http://www.v-ingenierie.com/
http://www.pearl.fr/famille-1041.html
http://www.intermec.fr/product/category.asp?cat=scn
voila mais tu peut chercher sur le net ça ne manque pas
les prix sont assez elever !!!!
slt
25 oct. 2004 à 19:28
21 oct. 2004 à 20:13
pour ma part c'est egalement une douchette mais connecter au port ps2 clavier
qui envoie la lecture dans la zone ou est le curseur (ça marche partout ou on peut taper du text comme si ont avez taper au clavier
aucun logiciel d'interpretation entre
toute la config se fait par lecture de code barre de configuration fournie avec la douchette
21 oct. 2004 à 08:46
20 oct. 2004 à 10:34
A+
17 oct. 2004 à 15:53
Desoler je viens 1 peut tard, cela fais plus d1 ans que mon prog GDSv3 (gestion des stocks de pieces machine ....etc) realiser en vb6 tourne avec ta source
j'imprime mes etiquette de piece avec code bar pour la sortie du stock et j'ai plus de 5 chiffre et ça fonctionne nickel (6 chiffre Ref. + 2chiffre Quantite a sortire)
impresion efectuer sur une UBI 201 (imp pro d'etiquetage )
je t'en remerci beaucoup
A+
7 déc. 2003 à 21:27
7 déc. 2003 à 21:25
Peut etre qu'il existe une source sur ce site qui permet de gérer les imprimantes....
7 déc. 2003 à 19:11
7 déc. 2003 à 18:38
J'ai encore juste une question :
Il y aurait un moyen pour choisir l'imprimante sur laquelle imprimer ?
5 déc. 2003 à 12:07
je rigole...
Si j'ai mis ce code sur ce site c'est surtout pour que d'autres gens puissent l'utiliser donc : vas y sert toi !!!
4 déc. 2003 à 20:05
Je dois créer une gestion de client avec une impression de code barre.
28 sept. 2003 à 22:47
C vrai c'est un bug
en fait po vraiment mais ce code ne permet d'imprimer que des codes barres de 5 chiffres ;)
je ne l'ai utilisée que comme ca, ce qui explique que je n'ai po vu ce bug
dans ce cas, il faut aussi modifier la boucle For à la ligne du dessus et mettre
For i = 1 To Len(CodeBar) - 1
Je vais modifier cela :)
27 sept. 2003 à 17:17
Voila ce que j'appelle un bon programme
Domage que il y a un ptit bug :
essai = Mid(CodeBar, Len(CodeBar), 1)
Je ne voit pas ou soit tu a oublier de cochez un truc dans > projet > référance mais sinon mon code barre s'imprime bien bravo a toi ;-)
9/10
31 juil. 2003 à 22:12
30 juil. 2003 à 08:37
http://www.vbfrance.com/forum.aspx?Article=10681
Sinon je pense qu'il y a un bout de code dans les sources pour imprimer l'EAN128 ou 13. Je suis tombé dessus lorsque je cherchais un programme pour imprimer du code 39 :)
29 juil. 2003 à 16:16
merci d'avance
29 juil. 2003 à 10:02
29 juil. 2003 à 08:48
28 juil. 2003 à 23:07
Pour que çà soit plus facile à se rendre compte pour les visiteurs de VBFrance, çà serait cool de mettre une copie d'écran et un zip !
28 juil. 2003 à 20:32
28 juil. 2003 à 15:17