Code 128 Barcode Table

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 = total Mod 103

                 If endAsc >= 95 Then
                     Select Case endAsc
                         Case 95
                             endchar = "Ã"
                         Case 96
                             endchar = "Ä"
                         Case 97
                             endchar = "Å"
                         Case 98
                             endchar = "Æ"
                         Case 99
                             endchar = "Ç"
                         Case 100
                             endchar = "È"
                         Case 101
                             endchar = "É"
                         Case 102
                             endchar = "Ê"
                     End Select
                 Else
                     endAsc += 32
                     endchar = Chr(endAsc)
                 End If

                 Return "Ì" & input & endchar.ToString() & "Î"

             Catch ex As Exception
                 WriteLog(ex.Message, ex.StackTrace)
                 Return String.Empty
             Finally

             End Try
         End Function

我放大一下上面用到的特殊字符,大家看看清楚:

起始符(Unicode=00CC):Ì终止符(Unicode=00CE):Îvalue95(Unicode=00C3):Ãvalue96(Unicode=00C4):Ävalue97(Unicode=00C5):Åvalue98(Unicode=00C6):Ævalue99(Unicode=00C7):Çvalue100(Unicode=00C8):Èvalue101(Unicode=00C9):Évalue102(Unicode=00CA):Ê

移动商务解决方案 www.chinawinexpert.com 赢行家移动掌上盘点 赢行家移动数据采集 赢行家ERP移动助手