Discussion :

[iskandhar]

Bonjour,

C'est mon premier post et je précise d'emblée que je ne sais pas coder en VB.
Mon problème est le suivant. J'ai trouvé sur Internet un script en VB permettant de générer des codes barres EAN 13. Le résultat de ce scipt donne un code sous la forme : 2ATTTKK*aaaebg+. J'ai besoin de convertir cette chaîne alphanumérique en nombre.

PS : Le script se trouve ici (en bas de la page) : http://grandzebu.net/informatique/codbar/ean13.htm.

[argoet]

Bonjour,

C'est mon premier post et je précise d'emblée que je ne sais pas coder en VB.
Mon problème est le suivant. J'ai trouvé sur Internet un script en VB permettant de générer des codes barres EAN 13. Le résultat de ce scipt donne un code sous la forme : 2ATTTKK*aaaebg+. J'ai besoin de convertir cette chaîne alphanumérique en nombre.

PS : Le script se trouve ici (en bas de la page) : http://grandzebu.net/informatique/codbar/ean13.htm.

Salut iskandhar
C'est Quoi Cette Série de Lettre ? Un Ean13 c'est forcement Du numérique ?? non ??

Pour info : "Grandzebu" Qui à pondu le script de calcul de la clef du CAB !!!
Ben !! y a plus simple et vachement moins compliqué !!! en 6 ligne de PL/SQL

Si cela vous interesse : Faites moi signe !!!!

[iskandhar]

Merci beaucoup Un peu que ça m'intéresse ! :o

[argoet]

Ceci est l'extrait d'une fonction qui calcul des clef de code barre :
-- Calcul sur le Mode "EAN" (Norme GENCOD)
-- Calcul sur le Mode "M10" (Suisse Modulo 10 recursif)
-- Calcul sur le Mode "M11" (Hollande Modulo 11 Pondere)
-- Calcul sur le Mode "A11" (Allemagne Modulo 11 Poids )
-- Calcul sur le Mode "ARP" (Autriche Reste Pondere)
-- Calcul sur le Mode "CRO" (Contre Remboursement Optique)
-- Calcul sur le Mode "128" (Code Barre Code-128)
-- Calcul sur le Mode "C11" (Canada Modulo 11 Pondere)


Voici l'extrait pour l'EAN

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
--*****************************************************************************
--  Calcul de La Cle de Controle D'un Code_barre P_mod = "EAN"
--  Position des Chiffres = (De la Droite Vers La Gauche)
--  ------------------------------------------------------------------------
--  Calcul = 
--           P_cal  := Somme (des Chiffres en Position paire * Coef_2) +
--                     Somme (des Chiffres en Position Impaire * Coef_1)
--           Clef = (10 - P_cal Modulo 10) 
--           Si Clef = 10 Alors Clef = 0
--  ------------------------------------------------------------------------
--
--  Exemple1 : Calcul de la Cle D'un Gencod (Coefs = 3 et 1)
--            313437506009 (Gencod D'un Post'It 76mm*127mm)
--            3  1  3  4  3  7  5  0  6  0  0  9
--          * 1  3  1  3  1  3  1  3  1  3  1  3
--          = 3  3  3 12  3 21  5  0  6  0  0 27  Somme = 83 ==> 7
--
--  Exemple2 : Calcul de la Cle Identifiant Colis Allemand (Coef = 4 et 9)
--            Colis : 70061123456
--            7  0  0  6  1  1  2  3  4  5  6    
--          * 4  9  4  9  4  9  4  9  4  9  4    
--          =28  0  0 54  4  9  8 27 16 45 24    Somme = 215 ==> 5
--*****************************************************************************

[ean.sql]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Set Serveroutput on
 
Declare 
    P_cal Number;
    Coef  Number;
Begin
      --  ----------------------------------------------------------------
      --  Calcul de La Cle de Controle D'un Code_barre P_mod = "EAN"
      --  ----------------------------------------------------------------
      coef := &2;P_cal := 0;
      for i in Reverse 1..length('&1')
      loop
           P_cal := P_cal + coef * to_number(substr('&1',i,1));
           if coef = &3 Then Coef := &2;Else Coef := &3;End If;
      End loop;
      dbms_output.put_line((ceil(P_cal/10)*10)-P_cal);
end;
/

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
SQL> @ean 359671001779 3 1
old   8:       coef := &2;P_cal := 0;
new   8:       coef := 3;P_cal := 0;
old   9:       for i in Reverse 1..length('&1')
new   9:       for i in Reverse 1..length('359671001779')
old  11:           P_cal := P_cal + coef * to_number(substr('&1',i,1));
new  11:           P_cal := P_cal + coef * to_number(substr('359671001779',i,1));
old  12:         if coef = &3 Then Coef := &2;Else Coef := &3;End If;
new  12:         if coef = 1 Then Coef := 3;Else Coef := 1;End If;
 
Le Resultat   ===>   9
 
PL/SQL procedure successfully completed.

[/code]

[iskandhar]

Merci infiniment

Comme je l'ai dit au début, je suis nul en VB, je n'y connais rien. Peux-tu me dire comment employer ce code à partir d'une feuille excel ? D'avance merci.

[iskandhar]

Peux-tu me dire comment employer ce code à partir d'une feuille excel ? D'avance merci.

Personne pour m'aider ?

[argoet]

Iskandar : Le but du Forum n'est pas de se substituer à toi
Mais de te donner les informations pour resoudre un problème .

Maintenant : il faut prendre ta pioche et ton marteau , car ne t'attends pas à ce que l'on fasse le travail à ta place

C'est le moment d'aller faire un tour par ici

ou par la

[iskandhar]

Je te remercie de ton aide même si, malheureusement, je ne pourrai l'utiliser faute de connaissances et de temps pour les acquérir

[AlainTech]

Je suis allé voir sur le site de Grand Zebu.

J'ai enfin compris ce qu'était ta suite de caractères bizarres.

Maintenant, je ne comprends pas ce que tu cherches à faire.
Tu veux générer des codes barres?
C'est ce que fait le programme de Grand Zebu!

Pourquoi veux-tu convertir en numérique un nombre qui a été converti en caractères pour être imprimé avec une police spécifique?

Peut-être n'as-tu pas compris que le code de Grand Zebu sert à générer la string à envoyer à l'imprimante...