Impression code barre 2 of 5 avec cacule du checksum

Soyez le premier à donner votre avis sur cette source.

Vue 11 253 fois - Téléchargée 39 571 fois

Description

Suite à un programme que je devais faire, pour l'édition de code barre 2 parmi 5
je suis tombé sur une source ici même faisant parfaitement ceci.
La seule chose qu'elle ne faisait pas était de calculer le Checksum ( pour le 2 parmi 5 ).

J'ai donc apporté cette fonction, la source original n'étant pas de moi.
Vous trouverez le code ci-dessous, ainsi qu'un zip contenant la source complète ainsi qu'un exemple d'utilisation.

Source original : http://www.vbfrance.com/codes/CODE-BARRE-CODE39-EAN13-5I_34654.aspx

Cette source fait aussi du code 39, Ean13, et code 128.

Source / Exemple :


' Fonction de calcul du CheckSum 2 parmi 5
Function calculCheckSum(Codebar As String) As Integer
    Dim s1 As Long, s2 As Long, i As Integer
    For i = Len(Codebar) To 1 Step -2
        s1 = s1 + Val(Mid(Codebar, i, 1))
    Next
    s1 = s1 * 3
    For i = Len(Codebar) - 1 To 1 Step -2
        s2 = s2 + Val(Mid(Codebar, i, 1))
    Next
    calculCheckSum = (10 - (s1 + s2) Mod 10) Mod 10
End Function

Conclusion :


Un grand merci à deuss33 pour la source original.

Codes Sources

A voir également

Ajouter un commentaire Commentaire
Messages postés
2
Date d'inscription
lundi 10 avril 2006
Statut
Membre
Dernière intervention
15 décembre 2006

Salut.
Pour moi j'ai en problème d'erreur au chargement du programme style "Retained est une clé incorrecte... " alors fonctionne pas.

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.