vb编程：理解并应用CODE93编码函数

93条形码

'根据字符获取93二进制字编码符串
Private Function Get_93Encoding(ByVal Char As String) As String
    Dim Text As String
    Dim Index As Integer
    Select Case Char
    Case "START": Index = 48     '开始符
    Case "STOP": Index = 49      '结束符
    Case Else
        Text = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%~!@#"   '用~代码SHIFT1，!代表SHIFT2，@代表SHIFT3，#代表SHIFT4
        Index = InStr(Text, UCase(Char))
    End Select
    If Index > 0 Then
        Get_93Encoding = Choose(Index, "100010100", "101001000", "101000100", "101000010", "100101000", "100100100", _
                                          "100100010", "101010000", "100010010", "100001010", "110101000", "110100100", _
                                          "110100010", "110010100", "110010010", "110001010", "101101000", "101100100", _
                                          "101100010", "100110100", "100011010", "101011000", "101001100", "101000110", _
                                          "100101100", "100010110", "110110100", "110110010", "110101100", "110100110", _
                                          "110010110", "110011010", "101101100", "101100110", "100110110", "100111010", _
                                          "100101110", "111010100", "111010010", "111001010", "101101110", "101110110", _
                                          "110101110", "100100110", "111011010", "111010110", "100110010", "101011110", _
                                          "1010111101")
    End If
End Function

'获取检查表中的字符值
Private Function Get_93Value(ByVal Char As String) As Integer

    Dim Text As String
    Dim Index As Integer
    Select Case Char
    Case "START": Index = 48
    Case "STOP": Index = 49
    Case Else
          Text = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%~!@#"   '用~代码SHIFT1，!代表SHIFT2，@代表SHIFT3，#代表SHIFT4
        Index = InStr(Text, UCase(Char))
    End Select
    Get_93Value = Choose(Index, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, _
                                 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48)
End Function

'获取检查表中的字符
Private Function Get_93Char(ByVal Value As Integer) As String
    Get_93Char = Choose(Value + 1, "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", _
                                 "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", _
                                 "S", "T", "U", "V", "W", "X", "Y", "Z", "-", ".", " ", "$", "/", "+", _
                                 "%", "~", "!", "@", "#", "START", "STOP")     ' '用~代码SHIFT1，!代表SHIFT2，@代表SHIFT3，#代表SHIFT4
End Function

'获检查码"C"和"K"的值
'检验码的计算方法:
 'a.先检查出资料对应的码值
 'b.检查码C从资料的最右边一位开始,用1-20的顺序排列,若超过20位,则从头开始
'c.检查码K从资料的C位开始,用1-15的顺序排列,若超过15位则从头开始.
'如计算“CODE 93”:
'1*3+2*9+3*38+4*14+5*13+6*24+7*12=484 C=484÷47于14 则C=14=E(对应值) K的值的计算同C
Private Function Get_93Checksum_CK_Char(ByVal Data As String) As String
    Dim i As Integer