16,722
社区成员




Barcode_M12 = Gsz_short_To_ASCII(M11_M12_LW_1400_15FF_1600_17FF(544)) _
+ Gsz_short_To_ASCII(M11_M12_LW_1400_15FF_1600_17FF(545)) _
+ Gsz_short_To_ASCII(M11_M12_LW_1400_15FF_1600_17FF(546)) _
+ Gsz_short_To_ASCII(M11_M12_LW_1400_15FF_1600_17FF(547)) _
+ Gsz_short_To_ASCII(M11_M12_LW_1400_15FF_1600_17FF(548)) _
+ Gsz_short_To_ASCII(M11_M12_LW_1400_15FF_1600_17FF(549)) _
+ Gsz_short_To_ASCII(M11_M12_LW_1400_15FF_1600_17FF(550))
Barcode_M12 = Replace(Barcode_M12, " ", "")
eeeee = Barcode_M12.Length()
If Barcode_M12.Length() <> 14 Then
Gsz_AddWork_List("来自M12设备的二维码错误")
Barcode_M12 = "M12_Error_BarCode"
End If
'计算长度
Public Function Gsz_BarCode_ChangDu(ByVal Gsz_Barcode As String) As Integer
Dim Gsz_length As Integer = 0
Dim b As Byte() = Encoding.ASCII.GetBytes(Gsz_Barcode)
For Gsz_i = 0 To b.Length - 1
If b(Gsz_i) <> &H0 Then
Gsz_length = Gsz_length + 1
End If
Next
Return Gsz_length
End Function