Code barre code39, ean13, 2/5i

Soyez le premier à donner votre avis sur cette source.

Vue 13 262 fois - Téléchargée 23 046 fois

Description

Merci à toutes les personnes dont le coding ou la documentation ont pu m'aider.
Ce programme permet d'imprimer des codes barres en code39, Ean13, 2/5i. Le coding du code 128 est inclus mais non finalisé ni non testé par manque de temps. Il devrait être terminé en début d'année si tout va bien.Vu les nombreuses questions sur les codes Barres, j'espère que ce petit programme pourra vous aider à résoudre de nombreux problèmes. N'hésitez pas à le critiquer, cela pourra me permettre de l'améliorer .

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

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.
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.
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
Messages postés
41
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
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
36
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.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.