[VB6] Stampa codice a barre

[Luciano79]

Originariamente inviato da Luciano79
- Il ceck digit è il modulo 10 della somma appena ottenuta

Oups... ti ho detto una piccola boiata. Non è il "modulo 10"!
Il ceck è la cifra che manca all'unità della somma appena ottenuta per arrivare a 10. Se l'unità è 0 il ceck è 0.

es:

Progressivo => 123456789123
SommaSispari=> 1 3 5 7 9 2  = 27
SommaPari   =>  2 4 6 8 1 3 = 24 * 3 = 72

SommaTot = SommaDispari + SommaPari = 27 + 72 = 99

Ceck = 10 - UnitàDi(SommaTot) = 10 - 9 = 1
(se l'unità è 0 => 10-0= 10 => il ceck è 0)

Barcode => 1234567891231

scusa

[basy82]

Ciaooo ti ringrazio ancora x la disponibiltà..

Posto il codice ke ho appena scritto x ricavare il ceck
Sembra funzionare..

For i = 1 To 12
cifra = Mid(Text1, i, 1)
resto = i Mod 2
If resto = 0 Then
Pari = Val(Pari) + Val(cifra)
Else
Disp = Val(Disp) + Val(cifra)
End If
Next

Pari = Pari * 3
Tot = Disp + Pari

unità = Right(Tot, 1)
ceck = 10 - Val(unità)
Text1 = Text1 & ceck

[basy82]

Ops mancava quest'ultimo controllo:

If Len(Tot) = 1 Or unità = 0 Then ceck = 0

Text1=Text1 & ceck

[Luciano79]

Originariamente inviato da basy82
Ops mancava quest'ultimo controllo:

If Len(Tot) = 1 Or unità = 0 Then ceck = 0

Text1=Text1 & ceck

non capisco "If Len(Tot) = 1" :master: , anche perchè Tot non è una stringa (lo calcoli tu), quindi non ti restituisce mai 1, ma il numero di byte che occupa un integer (se lo dichiari integer). Toglilo, lascia solo...

If unita = 0 Then ceck = 0
Text1=Text1 & ceck

per il resto il codice che hai postato è corretto.

[basy82]

Si hai ragione tu...a volte nn mi capisco neanche io..

Ciauuu mi sei stato veramente di grande aiuto...