Barcode Forums by Morovia

[ivoke01(Legacy Member)]

Wich barcodefont do i need to use to create an sscc18 in this format:

(00)12345678901234567(*)

and how do I apply it?

* this is how I calculate the checkdigit in VB

<<<< Generate MOD 10 check digit >>>>
Factor = 3
weightedTotal = 0
StringLength = Len(sscc18)
For i = StringLength To 1 Step -1
'Get the value of each number starting at the end
CurrentCharNum = Mid(sscc18, i, 1)
'multiply by the weighting factor which is 3,1,3,1...
'and add the sum together
weightedTotal = weightedTotal + CurrentCharNum * Factor
'change factor for next calculation
Factor = 4 - Factor
Next i
'Find the CheckDigit by finding the smallest number that = a multiple of 10
i = (weightedTotal Mod 10)
If i <> 0 Then
CheckDigit = (10 - i)
Else
CheckDigit = 0

[viceroy(Legacy Member)]

If you do NOT want to display human readable, please choose 'MRV Code128m' font.

If you want human readable to be displayed, you may choose 'MRV Code128cMA' typeface. The trailing letter 'A' means with human readable.



If you want to print barcode with highter aspect ratio, please choose font name ending with 't' or 'xt'.

like 'MRV Code128t' 'MRV Code128xt'

[KennyZ(Legacy Member)]

How about "CheckDigit = (10 - (weightedTotal Mod 10) ) Mod 10"

Thanks for the help! I really liked the "factor = 4 - factor".

Kenny