code128条码c语言,条码(code128)的不同版本实现

Value Total

===== =====

Start Code B 104 104

Position 1 C 35 1 x 35 = 35

Position 2 o 79 2 x 79 = 158

Position 3 d 68 3 x 68 = 204

Position 4 e 69 4 x 69 = 276

Position 5 0 5 x 0 = 0

Position 6 1 17 6 x 17 = 102

Position 7 2 18 7 x 18 = 126

Position 8 8 24 8 x 24 = 192

=====

1197

=====

1197/103 = 11 remainder 64

根据上表,把没个字符的value值 乘上 字符在字符串中的位置(从1开始算)

把没个乘积加起来

因为CODESET B为104(这是规定,不要问我为什么)

所以,还要加上 104

最后,除以103,所得的余数就是 校验码 的value值,然后在表中找到对应的字符

就可以了.

有心人应该注意到了, value>=95的时候,是没有字符的(事实上还是有的,

只不过是unicode字符)

好了,原理就阐述到这里,还有什么不懂的话,大家看看代码好了.

至于用在水晶报表上的问题,我这里是配合条码字体的,我会上传一个我正在用的字体.

代码如下:

Public Function StringToCode128(ByVal input As String) As String

Try

Dim endchar As Char

Dim total As Int64 = 104

Dim tmp As Integer

For i As Int16 = 1 To input.Length

tmp = Asc(input.Substring(i - 1, 1))

If tmp >= 32 Then

total += (tmp - 32) * i

Else

total += (tmp + 64) * i

End If

Next

Dim endAsc &