CODE BARRE CODE39, EAN13, 2/5I

Messages postés
7745
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
- - Dernière réponse : cs_deuss33
Messages postés
9
Date d'inscription
samedi 29 mars 2003
Statut
Membre
Dernière intervention
23 mai 2006
- 26 juin 2009 à 00:56
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/34654-code-barre-code39-ean13-2-5i

Afficher la suite 
cs_casy
Messages postés
7745
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
28 -
Salut deuss, je viens de découvrir cette source suite à ce post : http://www.vbfrance.com/forum.v2.aspx?ID=700211

T'as l'air d'avoir sacrément bosser sur les codes barres. Je serais currieux de connaitre l'occasion d'une telle recherche ? ça ressemble à un cours, es-tu formateur ?

En tout cas je garde cette source sous le coude (la doc surtout), très intéressante, même si j'ai pas regarder le code.

Je te met 10 comme note, juste pour la doc qui l'accompagne, elle est déjà imprimée et épinglée sur mon tableau d'astuce de codage.
ritchy01
Messages postés
42
Date d'inscription
mardi 16 septembre 2003
Statut
Membre
Dernière intervention
20 décembre 2009
-
C'est vrai que la doc est super interessante ! merci
cs_yohann59
Messages postés
12
Date d'inscription
vendredi 31 janvier 2003
Statut
Membre
Dernière intervention
15 janvier 2008
-
Salut Tres bon code en effet, Mais j'aurais une petite question :

Je fait ceci pour imprimer mon codebarre :

' Code barre 1 Ligne 1
DDate = MDate
Printer.FontSize = 8
Printer.FontBold = True
Printer.CurrentX = 800
Printer.CurrentY = 1150
Printer.Print "N° dossier"
CodeBarre = Format(DDate, "1" & "yymmdd" & Seqd.Text)
CalibrageTrait = 1
Style = 2
Epaisseur1Trait = 19
nHauteur = 590
nLargeur = 18
nHautDec = 20
Col = 45
Lig = 1370
Call CodBar(CodeBarre, CalibrageTrait, nHauteur, nLargeur, nHautDec, _
Col, Lig, Epaisseur1Trait, Style, Paramc, ImprimerTxt, _
NomPolice, TaillePolice, DecalTxt)

DecalTxt = 50
CalibrageTrait = 5
Epaisseur1Trait = 10
Paramc = "Code25i"
NomPolice = "Times New Roman"
TaillePolice = 10
ImprimerTxt = "1"
Printer.FontName = NomPolice

Ce qui me donne un Code sur 11 Caractères.
Ma question est donc, Comment ajouter le Checksum à la fin de mon codebarre


Merci d'avance ;)

Yohann
cs_JeSuisUnMouton
Messages postés
1
Date d'inscription
vendredi 28 décembre 2007
Statut
Membre
Dernière intervention
28 décembre 2007
-
Merci, mec, t'es au courant que ta doc vaut encore plus cher que ton source?
Respect.
cs_deuss33
Messages postés
9
Date d'inscription
samedi 29 mars 2003
Statut
Membre
Dernière intervention
23 mai 2006
-
Une nouvelle version est prete avec impression verticale 90 et 270°, les intermédiaires ne servent pas à grand chose, mais cela est possible.
je vous la met à disposition courant juillet 2009.