增补：code128A、code128B
说明：
code128A：数字+大写
code128B：数字+大小写
code128C：仅仅数字。(码图最短，A和B一样)
Public Class Form1
Function
ToCode128A(ByVal s As String) As String
Dim ns As String
Dim total As Long
ns = ""
If Len(s) > 0 Then
total =
103 ' Start Code
Dim i As
Integer, l As Integer
l =
Len(s)
For i = 0
To l - 1
Dim v = Mid(s, i + 1,
1)
ns = ns + v
total = total + (i + 1) *
(Asc(v) - 32)
Next
Dim
checkCode As String '生成验证码
checkCode
= "" & (total Mod 103)
ns =
getChar(103) + ns + getChar(checkCode) + getChar(106)
ToCode128A
= ns
Else
ToCode128A
= ""
End If
End Function
Function
ToCode128B(ByVal s As String) As String
Dim ns As String
Dim total As Long
ns = ""
If Len(s) > 0 Then
total =
104 ' Start Code
Dim i As
Integer, l As Integer
l =
Len(s)
For i = 0
To l - 1
Dim v = Mid(s, i + 1,
1)
ns = ns + v
total = total + (i + 1) *
(Asc(v) - 32)
Next
Dim
checkCode As String '生成验证码
checkCode
= "" & (total Mod 103)
ns =
getChar(104) + ns + getChar(checkCode) + getChar(106)
ToCode128B
= ns
Else
ToCode128B
= ""
End If
End Function
Function
ToCode128C(ByVal s As String) As String
' zhuyiwen 2010.10.12
' 使用code128.ttf字体生成Code128C条码
Dim ns As String
Dim total As Long
ns = ""
If Len(s) > 0 And IsNumeric(s)
Then
total =
105 ' Start Code
If Len(s)
Mod 2 > 0 Then s = s + "0" ' 不足偶数位补0
Dim i As
Integer, l As Integer
l = Len(s)
\ 2
For i = 0
To l - 1
ns = ns + getChar(Mid(s, i *
2 + 1, 2))
total = total + (i + 1) *
Val(Mid(s, i * 2 + 1, 2))
Next
Dim
checkCode As String '生成验证码
checkCode
= "" & (total Mod 103)
ns =
getChar(105) + ns + getChar(checkCode) + getChar(106)
ToCode128C
= ns
Else
ToCode128C
= ""
End If
End Function
Function getChar(ByVal s
As String) As String
Dim c As Integer
c = Val(s)
If c = 0 Then
getChar =
" "
ElseIf c < 95 Then
REM
Asc("!") = 33
getChar =
ChrW(32 + c)
Else
getChar =
ChrW(100 + c)
End If
End Function
Private Sub
Form1_Load(sender As System.Object, e As System.EventArgs) Handles
MyBase.Load
TextBox1.Text = "000040000000000000000008"
'TextBox1.Text = "95270078"
End Sub
Private Sub
Button1_Click(sender As System.Object, e As System.EventArgs)
Handles Button1.Click
TextBox2.Text = ToCode128A(TextBox1.Text)
End Sub
Private Sub
Button2_Click(sender As System.Object, e As System.EventArgs)
Handles Button2.Click
TextBox2.Text = ToCode128B(TextBox1.Text)
End Sub
Private Sub
Button3_Click(sender As System.Object, e As System.EventArgs)
Handles Button3.Click
TextBox2.Text = ToCode128C(TextBox1.Text)
End Sub
End Class
加载中，请稍候......
加载中…
喜欢