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 : 616
Nombre de snippets : 1944
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 : 9400
Catégorie(s) : Algorithme
Langages dispo pour ce code :
- Windev
- VB.NET 1.x
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
Langage : VB.NET 1.x
Date ajout : 04/05/2006
Posté par Blodox [Liste]

Function EAN128_CHKDGT(ByVal EAN_CODE As String) As String

'

Dim I As Integer = 0

Dim S As Integer = 0

'

'/* calcul check */

'

For I = 1 To Len(EAN_CODE) - 1 Step 2

S += Val(Mid(EAN_CODE, I, 1))

S += Val(Mid(EAN_CODE, I + 1, 1)) * 3

Next

'

Return Format((10 - (S Mod 10)), "0")

'

End Function

'

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

24/01/2009 - Récupérer le nom d'un contrôle

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

{Javascript / DHTML} CODE UTF-8
un petit programme qui affiche les caractères UTF-8 avec leurs codes associés. j'y ai aussi filtré ...

{Delphi} RECONNAISSANCE DE CARACTÈRES (OCR)
Bonjour, voici maintenant une source dans un domaine que je n'ai pas encore testé, la reconnaissance...

{IRC} [DLL] AJOUT D'UN CONTRÔLE RICHEDIT SCINTILLA SUR LES DIALOGBOX MIRC
Bonjour, Ne sachant pas trop quoi faire pour ma première DLL, je me suis dit qu'il pouvait être bon...

{Visual Basic, VB6, VB.NET, VB 2005} REGMANIPULATION
C'est un petit utilitaire servant à restaurer les modifications de quelques clés de registre que cer...

{PHP} CLASS DE CONTRÔLE DE FORMULAIRE
Une petite classe de contrôle de formulaire pour continuer mon apprentissage de la POO, simple et ra...

{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...