VB - Gerando Código EAN-13

O EAN-13 é um código de barras no padrão EAN definido pela GS1, adaptado em mais de cem organizações membros GS1, para a identificação dos itens, principalmente nos pontos de venda a varejo. No EAN-13 o símbolo codifica treze números que estão divididos em quatro partes; dos treze dígitos, doze são dos dados referentes ao produto e um é o dígito verificador (Codificação EAN-13, 2007).

Significado do código numérico do EAN-13

As quatro partes que compõem o código são:

País de origem do produto

Exemplo de uma situação especial, neste caso um EAN-13 que codifica um ISBN sendo o prefixo o 978 - prefixo este destinado à codificação de ISBNs de livros.
Para o código do país de origem do produto estão destinados os 3 primeiros dígitos caso se trate de unidades de consumo,  embora em situações especiais estes 3 primeiros dígitos sirvam para representar não o país onde o produto foi fabricado mas sim outro tipo de informação tal como os prefixos usados em: produtos de peso variável , produtos de quantidade variável , para uso in-store , para livros e publicações periódicas , para cupons e meios de pagamento , entre outras aplicações não tão importantes para serem referidas dado que cada membro GS1 tem alguma flexibilidade no que concerne a atribuição destes prefixos.

Empresa fabricante e produto por ela produzido

A seguir ao código do país de origem do produto vem o código da empresa fabricante e do produto por ela produzido, no total a soma destes dois códigos resultará em 9 dígitos, sendo o número de dígitos de cada um deles dependente da necessidade de codificação de produtos de cada empresa.

Por exemplo, uma empresa que produz uma quantidade de produtos diferentes elevada terá necessariamente de ter um código de identificação de empresa fabricante com menos dígitos para poder reservar um número de dígitos maior para identificar o produto por ela produzido. Assim como uma empresa de menor porte ou especializada em certo tipo de produtos, logo com uma quantidade de produtos diferentes menor terá um código de identificação de empresa fabricante com mais dígitos reservando assim menos dígitos para a identificação do produto por ela produzido. O código de empresa fabricante pode assim ter 4, 5 ou 6 dígitos; enquanto que o código de produto por ela produzido pode ter 3, 4 ou 5 dígitos.

Dígito verificador

É o último dígito no EAN-13 e é calculado com o auxílio de um algoritmo, é um mecanismo de autenticação para certificar a validade de um certo código numérico. Neste caso para verificar a validade dos primeiros 12 números do EAN-13.

Cálculo do dígito verificador EAN 13

Tomando como base o EAN 13 de número: 789100031550-?

Multiplicam-se os dígitos do código por 1 e por 3, em sequência repetitiva de 1 e 3;

7 * 1 = 7
8 * 3 = 24
9 * 1 = 9
1 * 3 = 3
0 * 1 = 0
0 * 3 = 0
0 * 1 = 0
3 * 3 = 9
1 * 1 = 1
5 * 3 = 15
5 * 1 = 5
0 * 3 = 0

1- Depois você soma o resultado das multiplicações. Neste caso o resultado da soma é 73.
2- Agora você precisa encontrar o múltiplo de 10 mais próximo do resultado da soma.
3- Atenção: o múltiplo de 10 deve ser maior ou igual ao resultado da soma (nunca menor).
4- Neste caso o múltiplo de 10 maior ou igual e mais próximo de 73 é 80.
5- Subtraia o resultado da soma do múltiplo que você encontrou:  80-73 = 7
6- O resultado desta subtração será o digito verificador.

Assim o código completo é: 7891000315507

(fonte: http://pt.wikipedia.org/wiki/EAN-13)

Que tal um programa para gerar código EAN com opção para imprimir e salvar a imagem do código gerado no formato BMP ?

Então veja abaixo o programa em execução e um exemplo de código gerado:

               
Programa VB6 Imagem gerada e Salva

É muito simples: Informe o número para o qual deseja gerar o código EAN e pressione ENTER.

Obs: Se você digitar o número 789100031550 o dígito verificador será calculado automaticamente.

Pegue o projeto completo aqui : EAN_VB6.zip

Eu sei é apenas VB mas eu gosto...

"Graças e Paz da parte de Deus Pai e da de nosso Senhor Jesus Cristo. O qual se deu a si mesmo por nossos pecados para nos livrar do presente século mau, segundo a vontade de Deus nosso Pai, ao qual glória para todo o sempre, Amém."  Gálatas 3-5

Referê

José Carlos Macoratti