vb.net 使用code128 代码

最新推荐文章于 2026-04-28 06:34:43 发布

原创最新推荐文章于 2026-04-28 06:34:43 发布 · 1.9k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

.Net

本文介绍了一个用于生成Code128条形码的算法实现，该算法通过计算输入字符串的校验和来确保条形码的准确性。文章详细展示了如何使用C#进行Code128条形码的编码过程。

 public static string To128Code(this String inputData)
        {
            string result;
            Int64 checksum = 104;
            for (int ii = 0; ii <= inputData.Length - 1; ii++)
            {

                if ((int)inputData[ii] >= 32)
                {
                    checksum += ((int)inputData[ii] - 32) * (ii + 1);
                }
                else
                {
                    checksum += ((int)inputData[ii] + 64) * (ii + 1);
                }
            }
            checksum = checksum % 103;
            if (checksum < 95)
            {
                checksum += 32;
            }
            else
            {
                checksum += 100;
            }
            result = Convert.ToChar(204) + inputData.ToString() + Convert.ToChar(checksum) + Convert.ToChar(206);
            return result;
        }

#Region "生成Code128字符集" Public Function Get128CodeString(ByVal inputData As String) As String Dim result As String Dim checksum As Int64 = 104 For ii As Integer = 0 To inputData.Length - 1 If Asc(inputData(ii)) >= 32 Then checksum += (Asc(inputData(ii)) - 32) * (ii + 1) Else checksum += (Asc(inputData(ii)) + 64) * (ii + 1) End If Next checksum = checksum Mod 103 If checksum < 95 Then checksum += 32 Else checksum += 100 End If result = Convert.ToChar(204) + inputData.ToString() + Convert.ToChar(checksum) + Convert.ToChar(206) Return result End Function#End Region

标签

#vb.net #string #integer #function