Code pour afficher un code barre à la norme 2 of 5 entrelacé

Soyez le premier à donner votre avis sur cette source.

Vue 9 561 fois - Téléchargée 1 604 fois

Description

Dans divers industrie on utilise les codes barre 2 of 5 interleaved.
On m'a demandé de reproduire le code barre dans une application VB pour l'édition d'étiquettes.
J'ai cherché pendant 1 journée entière pour savoir en quoi ça consistait. Si un jour dans votre entreprise on vous demande de reproduire un code barre 2 parmi 5 entrelacé, ben o moin vous chercherez pas autant de temps que moi.

Conclusion :


Il faut charger la police dans c:\windows\fonts\

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
134
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
24 octobre 2010

Bonjour

Créer une fonction :
'----------------------------------------'
Function GEN_BAR(N As Integer) As String
'
Dim S As String
Dim U As String
Dim V As Integer
Dim P As Integer
'
S = Mid(Str(N), 2)
If Len(S) Mod 2 1 Then S "0" + S
'
U = "("
For P = 1 To Len(S) - 1 Step 2
V = Val(Mid(S, P, 2))
If V < 50 Then
U = U + Chr(V + 48)
Else
U = U + Chr(V + 142)
End If
Next
U = U + ")"
'
GEN_BAR = U
'
End Function
'----------------------------------------'

Dans la Feuille :
Colonne B : Police = i2of5txt.ttf avec une taille de l'ordre de 40 pts
Case B1 : mettre la formule =GEN_BAR(A1)

et voila...
Messages postés
1
Date d'inscription
vendredi 19 mars 2004
Statut
Membre
Dernière intervention
1 avril 2004

Bonjour
j'ai un petit probléme avec les sources :
je veux l'intregrer dans excel de la facon suivante :
dans la premiere colonne de donne la combinaison de chiffres a encoder et dans la deuxieme colonne je souhaite obtenir le code barre
or je ne parvient pas a le faire ,peut etre quelqu'un pour m'aider ?
Messages postés
412
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
7 avril 2008
1
mes un zip STP
Messages postés
92
Date d'inscription
lundi 14 avril 2003
Statut
Membre
Dernière intervention
5 décembre 2003

Pour le faire fonctionner :
Faire une form nommée dem
Y mettre une picturebox nommée Picture1
Y mettre le code

CalculCodage <chiffre>

Exemple

Private Sub Form_Load()
CalculCodage 275235346346#
End Sub

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.