VALIDADOR DE CODIGO DE BARRAS
Eu preciso Criar a Classe ValidaDigito() implementando a interface IVerifica conforme as especificações abaixo:
5 passos para o cálculo algoritmo do dÃgito verificador de código de Barras:
Vamos supor que estamos usando o código fictÃcio de: 05432122345.
a) Adicione todos os dÃgitos das posições Ãmpares (dÃgitos na posição 1, 3, 5, 7, 9 e 11)
0 + 4 + 2 + 2 + 3 + 5 = 16
b) Multiplique por 3.
16 * 3 = 48
c) Adicione todos os dÃgitos das posições pares (dÃgitos na posição 2, 4, 6, 8 e 10).
5 + 3 + 1 + 2 + 4 = 15
d) Some os resultados das etapas 3 e 2.
48 + 15 = 63
e) Adicione o número ao resultado do passo 4 para criar um múltiplo de 10.
63 + 7 = 70 Portanto, o dÃgito verificador é 7.
alguém poderia me ajudar como eu faço isso ?
5 passos para o cálculo algoritmo do dÃgito verificador de código de Barras:
Vamos supor que estamos usando o código fictÃcio de: 05432122345.
a) Adicione todos os dÃgitos das posições Ãmpares (dÃgitos na posição 1, 3, 5, 7, 9 e 11)
0 + 4 + 2 + 2 + 3 + 5 = 16
b) Multiplique por 3.
16 * 3 = 48
c) Adicione todos os dÃgitos das posições pares (dÃgitos na posição 2, 4, 6, 8 e 10).
5 + 3 + 1 + 2 + 4 = 15
d) Some os resultados das etapas 3 e 2.
48 + 15 = 63
e) Adicione o número ao resultado do passo 4 para criar um múltiplo de 10.
63 + 7 = 70 Portanto, o dÃgito verificador é 7.
alguém poderia me ajudar como eu faço isso ?
Qual é a sua dificuldade?
minha duvida é como eu faço para implementar em meu código as especificações das letras a até e, não tenho a menor ideia de como posso implementar
Fiz aqui de cabeça, qualquer errinho, conserte aÃ.
Dim somaPar As Integer = 0
Dim somaImpar As Integer = 0
Dim total As Integer = 0
Dim digitoVerificador As Integer = 0
Dim codigoBarras As String = [Ô]05432122345[Ô]
For i As Integer = 0 To codigoBarras.Length - 1
If (i Mod 2) = 0 Then
somaImpar = somaImpar + codigoBarras.Substring(i, 1)
Else
somaPar = somaPar + codigoBarras.Substring(i, 1)
End If
Next
total = (somaPar + (somaImpar * 3))
For i As Integer = 0 To 9
If (total + i) Mod 10 = 0 Then
digitoVerificador = i
Exit For
End If
Next
MsgBox(digitoVerificador)
Citação::
Pergunta besta, por que criar varios usuarios?
Mesma Duvida...Outro usuario?
http://vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=463043&pagina=1
aquele usuário não é meu , eu apenas copiei esse código daquele post.
Dei uma reeditada no código. Verifique se é isso que precisa.
Jaba
Como tu faz para postar o codigo fonte colorido?
Como tu faz para postar o codigo fonte colorido?
Apenas utilizo o quinto item superior das opções de formatação aqui do site.
Citação::
Apenas utilizo o quinto item superior das opções de formatação aqui do site.
Fiz um teste, fui no meu fonte peguei um bloco, coloquei entre
(5º item) e continuou só preto
As vezes o meu também não vai, acho que é por causa da posição dos comandos.
Faça seu login para responder