Les Snippets

Nouveaux snippets
Snippets les plus consultés
Proposer un snippet

 Abonnez vous à ce fil d'information Les rss

Rechercher :

Par langages :

Par Catégorie

Compteurs


Nombre de sujets : 588
Nombre de snippets : 1838
Connexion

Calculer le caractère de contrôle d'un code barre EAN128

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 04/05/2006 09:29:39 et initié par BURLOTJ [Liste]
Date de mise à jour : 04/05/2006 12:45:48
Vue : 8168
Catégorie(s) : Algorithme
Langages dispo pour ce code :
- Windev
- VB.NET 1.x
- Voir tous les langages pour ce code snippet
Proposer ce code dans un autre langage



Langage : Windev
Date ajout : 04/05/2006
Posté par BURLOTJ [Liste]

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

Snippets en rapport avec : Caractère, Contrôle, Calculer, Ean128, Ean

17/12/2008 - Compter chaque occurrence de caractères d'une chaîne

07/03/2008 - Entrecouper chaque caractère d'un chaine avec un autre caractère

03/01/2008 - Convertit les caractères spéciaux en entités HTML (HtmlEncore / HtmlSpecialChars)

01/09/2007 - Contrôle si Date Invalide [CDI]

27/01/2007 - Supprimer la bordure d'un contrôle

08/09/2006 - Caractère(s) affichable(s) dans une zone de texte classique

12/04/2006 - N'autoriser que la Saisie de chiffres dans un champ texte

03/04/2006 - Fonction 'Trim' permettant de choisir le texte à supprimer

28/03/2006 - Répétition d'un caractère



Codes sources en rapport avec : Caractère, Contrôle, Calculer, Ean128, Ean

{Delphi} BAKTPACK (PACK DE COMPOSANTS BACTERIUS)
Bonsoir ! Voici mon pack de composants ! Voici une description de tous ces composants : - Bac...

{Visual Basic, VB6, VB.NET, VB 2005} CONTRÔLE SIMPLE POUR CODE POSTAUX
C'est un contrôle qui hérite de Textbox pour recevoir un code postal. Les codes postaux validés s...

{PHP} FONCTIONS DE CONTRÔLES : SIRET, SIREN, EAN-13
Fonctions permettant de contrôler la validité des numéros SIREN, SIRET et codes-barres de type EAN-1...

{Flash} CONTRÔLER SES ANIMATIONS
Allez, je continue dans ma lancée et je post une autre source ^^ En fouillant dans mes tiroirs je...

{Visual Basic, VB6, VB.NET, VB 2005} RATING-NOTE
Un petit gadget qui vous permet d'évaluer par l'intermédiare d'une note. Je me suis inspiré pour ce...

{C / C++ / C++.NET} LECTEUR MP3 (UPDATED)
Lecteur MP3 Doc Vue avec quelques modification fait pour un travail de cégep Permet de lire des mp3...

{Delphi} CONNAÎTRE LA CASSE D'UN CARACTÈRE
Rien de bien énorme... Savoir si un caractère est une majuscule, une minuscule, un chiffre ou une ...

{Visual Basic, VB6, VB.NET, VB 2005} SUBSTITUTION AU CONTROLE REFEDIT D'EXCEL
le Contrôle Refedit est utilisé dans excel pour sélectionner une plage de cellule(s) Cette substitu...

{C# / C#.NET} TEXTBOX SÉQUENCE DE TOUCHES.
Voici un contrôle qui peut etre interessant à utiliser si vous avez besoin d'enregistrer et/ou d'exp...

{Javascript / DHTML} VFORM (CONTRÔLE COMPLET DE FORMULAIRE)
VForm est script Javascript permettant le contrôle d'un formulaire et a été développé pour répondre ...