我有一个条码:24001976516507131N0001 ,组成形式:(240)0197651(65)07131N0001 ,其中括号内的不进行验证,240不理会,65是这个条形码的校验码,用下面的函数可以得出校验码(感谢小鱼帮助),校验的是17位019765107131N0001,我现在想要的效果是:
在文本框输入24001976516507131N0001一个完整的条码后,利用函数进行校验,得出的校验码如果和文本框输入的校验码一致的话,标签显示OK+绿色,如果结果不一样,标签显示错误+红色,整个条码当中,校验位65,是在左起11-12位,,在文本框输入内容后回车,按键都可以,感谢大家帮忙了,
函数:
Dim jsh As String = args(0)
Dim s1,s2 As Integer
For i As Integer = 0 To 16
Dim ss As Char = jsh.Chars(i)
Dim s As Integer
If Asc(ss)>= 65 Then
s = Asc(ss) - 55
Else
s =Asc(ss)-48
End If
If (i Mod 2) = 0 Then
s1=s1 +s
Else
s2=s2+s
End If
Next
s1 =(s1*3+s2) Mod 100
Return s1