Impression code barre 2 of 5 avec cacule du checksum

Télécharger le projet
Commenter

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.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.