Calculer le caractère de contrôle d'un code barre EAN128
Contenu du snippet
FONCTION CalculEAN(sEAN)
sChaine est une chaîne
iInd est un entier
iCheckSum est une entier = 0
sCtrl est une chaîne
SI Taille(sEAN)<>0 ALORS
//Inversion de la chaine EAN
POUR iInd=Taille(sEAN) A 1 PAS -1
sChaine+=sEAN[[iInd]]
FIN
//Cacul du caractère de contrôle
POUR iInd=1 A Taille(sChaine)
SI PartieDécimale(iInd/2)=0 ALORS
//Paire
iCheckSum+=Val(sChaine[[iInd]])
SINON
//Impaire
iCheckSum+=Val(sChaine[[iInd]])*3
FIN
FIN
sCtrl=Droite(NumériqueVersChaine(10-modulo(iCheckSum,10)),1)
SINON
Erreur("La taille du code EAN est nulle.")
FIN
RENVOYER sCtrl
Compatibilité : Windev
Disponible dans d'autres langages :
A voir également
- Calculer le caractère de contrôle d'un code barre EAN128
- Taille minimale code barre - Forum Delphi / Pascal
- Code barre generator - Forum Autres langages
- Generateur code barre en ligne - Forum VB.NET
- Barre de recherche php - Forum PHP
- Lecteur code barre pas cher - Forum PDA
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.