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 : 713
Nombre de snippets : 2181
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 : 13663
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

{Delphi} EXEMPLES DE THREADS
L'objectif final est de suivre la progression en temps réel de traitements longs. Cet objectif n'est...

{PHP} CLEF POUR EAN 13 ET 14
Une petite fonction sans prétention calculant la clef pour des codes barre EAN. Les bases de l'al...

{PHP} VÉRIFICATION DE FORMULAIRE EN PHP
Ce code est une vérification de formulaire. L'algo est basé sur une première vérification en javascr...

{C / C++ / C++.NET} [C] WD_STRING V2.2
Fonctions de gestion des chaînes de caractères en langage C. Fonction Inverse : Renvoie pour chaq...

{C / C++ / C++.NET} [C] WD_STRING V1.9
Fonctions de gestion des chaînes de caractères en langage C. Fonction ChaineCompare : Compare deux ...

{PHP} GÉNÉRER LA CLÉ D'UN CODE-BARRE EAN13
Ce script PHP vous permet de calculer la clé d'un code-barre type EAN13 à partir des 12 premiers chi...

{Javascript / DHTML} SCROLL BARS EN JAVASCRIPT SUR UNE PAGE HTML
Ce script répond à l'une de mes attentes les plus chères : un contrôle de type "scroll bar" dans un ...

{PHP} FONCTION _SCANDIR UTF8
Récupère le contenu d'un répertoire, avec options de tris croissant-décr., filtre extension et conve...

{Visual Basic, VB6, VB.NET, VB 2005} CONVERTIR UN MOT EN UNICODE (N'ACCEPTANT PAS LES CARACTÈRES ACCENTUÉS) EN UN STRING (AVEC LES ACCENTS)
Salut, C'est mon premier code et je l'ai fait car j'ai tant recherché ce genre de code sans résulta...

{Visual Basic, VB6, VB.NET, VB 2005} TABLEAU ASCII - RETROUVER FACILEMENT LE CODE ASCII D'UN CARACTÈRE ET INVERSEMENT
Ce projet est un petit tableau ASCII allant du code 0 à 255. On peux regarder rapidement dans le t...