tranthanhan1962 > 19-09-24, 12:16 AM
Code 39=*code* (Đầu: *, cuối: *)
Code 128 = ÌCodeWÎ (Đầu: Ì, cuối: WÎ)
Code EAN-13 = 00Code? (code 10 ký tự; đầu: 00, cuối: ? => tổng 13 ký tự)
Code EAN-8 = Code? (code 7 ký tự, cuối: ? => tổng 8 ký tự)
Code UPC-A = 0 Code? (code 10 ký tự, đầu:0, cuối: ? => tổng 12 ký tự)
Code UPC-E short input = xCode? (code 6 ký tự, đầu:0, cuối ? => tổng 8 ký tự)
Function Code128(Data As String) As String
Dim i As Integer
Dim checksum As Integer
Dim result As String
Dim charValue As Integer
' Ký tự bắt đầu cho Code 128
result = Chr(204)
checksum = 104 ' Giá trị bắt đầu cho Code 128
' Mã hóa dữ liệu
For i = 1 To Len(Data)
charValue = Asc(Mid(Data, i, 1))
result = result & Mid(Data, i, 1)
checksum = checksum + (charValue - 32) * i
Next i
' Tính toán ký tự kiểm tra
checksum = checksum Mod 103
result = result & Chr(checksum + 32)
' Ký tự kết thúc cho Code 128
result = result & Chr(206)
Code128 = result
End Function
ongke0711 > 29-09-24, 05:49 PM
Control Source: = EAN13([MaHang])
Control Source: = Code128([MaHang])