Bài tập viết hàm UDF để xác định số kiểm tra của 1 mã ghi trên container bất kỳ

[SA_DQ]

Bài tập VBA dành cho người chập chững:

Thường mã số container gồm 4 ký tự, sau đó là 6 ký số & ký số cuối cùng được gọi là số (để) kiểm tra

Ví dụ ABCZ 123456 X

Số X được gọi là số kiểm tra & xác lập nó theo 3 bước, như sau: (SUDU 307007)

Bước I: Biến các ký tự thành các số (gồm 2 chữ số) theo bảng I sau đây:

A	B	C	D	E	F	G	H	I	J	K	L	M
10	12	13	14	15	16	17	18	19	20	21	23	24
N	O	P	Q	R	S	T	U	V	W	X	Y	Z
25	26	27	28	29	30	31	32	34	35	36	37	38

(Các số ở hàng dưới để thay cho các chữ cái trên nó tương ứng: B=> 12,. . . .)

Bước 2: (Tạm gọi là chuyển số) theo qui ước đề ra theo bảng II

Kí tự	Số tương ứng	Lũy thừa 2 mũ n	Chi tiết	Tách số
(a)	(b)	(c)	(b)x(c)	(e)
S	30	2^0	30 x 2^0	30
U	32	2^1	32 x 2^1	64
D	14	2^2	14 x 2^2	56
U	32	2^3	32 x 2^3	256
3	3	2^4	3 x 2^4	48
0	0	2^5	0 x 2^5	0
7	7	2^6	7 x 2^6	448
0	0	2^7	0 x 2^7	0
0	0	2^8	0 x 2^8	0
7	7	2^9	7 x 2^9	3584
			Tổng	4486

Bước 3: Tính tổng & lấy tổng này chia cho 11 để tìm ra số kiểm tra, là số dư của phép chia

Ví dụ cú pháp hàm sẽ là =SoKT("SUDU 307007") sẽ trả về con số 9

 

[Nhattanktnn]

Bài tập VBA dành cho người chập chững:

Thường mã số container gồm 4 ký tự, sau đó là 6 ký số & ký số cuối cùng được gọi là số (để) kiểm tra

Ví dụ ABCZ 123456 X

Số X được gọi là số kiểm tra & xác lập nó theo 3 bước, như sau: (SUDU 307007)

Bước I: Biến các ký tự thành các số (gồm 2 chữ số) theo bảng I sau đây:

A	B	C	D	E	F	G	H	I	J	K	L	M
10	12	13	14	15	16	17	18	19	20	21	23	24
N	O	P	Q	R	S	T	U	V	W	X	Y	Z
25	26	27	28	29	30	31	32	34	35	36	37	38

(Các số ở hàng dưới để thay cho các chữ cái trên nó tương ứng: B=> 12,. . . .)

Bước 2: (Tạm gọi là chuyển số) theo qui ước đề ra theo bảng II

Kí tự	Số tương ứng	Lũy thừa 2 mũ n	Chi tiết	Tách số
(a)	(b)	(c)	(b)x(c)	(e)
S	30	2^0	30 x 2^0	30
U	32	2^1	32 x 2^1	64
D	14	2^2	14 x 2^2	56
U	32	2^3	32 x 2^3	256
3	3	2^4	3 x 2^4	48
0	0	2^5	0 x 2^5	0
7	7	2^6	7 x 2^6	448
0	0	2^7	0 x 2^7	0
0	0	2^8	0 x 2^8	0
7	7	2^9	7 x 2^9	3584
			Tổng	4486

Bước 3: Tính tổng & lấy tổng này chia cho 11 để tìm ra số kiểm tra, là số dư của phép chia

Ví dụ cú pháp hàm sẽ là =SoKT("SUDU 307007") sẽ trả về con số 9

Góp vui bài này nhé bác:

Function SoKT(ByVal Chuoi As String) As Long
Dim sArr(), I As Long, J As Long, K As Long, R As Long, a As Long, b As Long
Dim MaSo As String, Tong As Long
K = 10
MaSo = Replace(Chuoi, " ", "") 'bo khoang trang
For I = 65 To 90
    J = J + 1
    Select Case K: Case 11, 22, 33: K = K + 1: End Select
    ReDim Preserve sArr(1 To 26, 1 To 2)
    sArr(J, 1) = Chr(I): sArr(J, 2) = K: K = K + 1
Next
R = UBound(sArr, 1)
For a = 1 To Len(MaSo)
    If a <= 4 Then
        For b = 1 To R
                If Mid(MaSo, a, 1) = sArr(b, 1) Then
                    Tong = Tong + sArr(b, 2) * 2 ^ (a - 1): Exit For
                End If
        Next
    Else
        Tong = Tong + Mid(MaSo, a, 1) * 2 ^ (a - 1)
    End If
Next
SoKT = Tong Mod 11
End Function

 

[huuthang_bd]

Thử làm bài tập

Function ABC(ByVal s As String) As Long
Dim i As Long, n As Long
For i = 1 To 11
    If i < 5 Then
        n = Asc(Mid(s, i, 1)) - 55
        ABC = ABC + (n + n \ 11) * 2 ^ (i - 1)
    ElseIf i > 5 Then
        ABC = ABC + Mid(s, i, 1) * 2 ^ (i - 2)
    End If
Next
ABC = ABC Mod 11
End Function

 

[Nhattanktnn]

Thử làm bài tập

Function ABC(ByVal s As String) As Long
Dim i As Long, n As Long
For i = 1 To 11
    If i < 5 Then
        n = Asc(Mid(s, i, 1)) - 55
        ABC = ABC + (n + n \ 11) * 2 ^ (i - 1)
    ElseIf i > 5 Then
        ABC = ABC + Mid(s, i, 1) * 2 ^ (i - 2)
    End If
Next
ABC = ABC Mod 11
End Function

Bài tập VBA dành cho người chập chững

Anh HuuThang chập chững lâu quá

 

[huuthang_bd]

Anh HuuThang chập chững lâu quá

Thì thôi thấy mình chỉ mới đi được vài bước thôi

 

[batman1]

Nếu là tính chữ số kiểm tra thì phải là For i = 1 To 10 chứ nhỉ.

 

[huuthang_bd]

Nếu là tính chữ số kiểm tra thì phải là For i = 1 To 10 chứ nhỉ.

Chuỗi mẫu có ký tự space ở giữa nữa nên xét đến ký tự thứ 11 mới lấy đủ 10 ký tự cần tính toán.

 

[VetMini]

Nếu gọi là bài tập thì phải cho người ta biết khi bắt đầu làm bài thì cần biết những gì và sau khi làm xong thì học được gì.

Nói cho đúng thì loại bài này là tập giải thuật nhào nắn ký số chứ không hẳn là tập code. Loại bài giành cho dân đã quen phân tích con toán. Trình độ trung bình trở lên chứ không thể gọi là "chập chững".

@tác giả bài #2, #3:
Hai đoạn phân biệt và làm việc khác nhau. Con số 4 đã xác định ranh giới. Gặp tôi thì 2 vòng lặp quách chứ gom vào 1 chi mất công:
For i = 1 to 4
n = Asc(Mid(s, i, 1)) - 55
ABC = ABC + (n + n \ 11) * 2 ^ (i - 1)
Next i
For i = 6 Tp 11 (hoặc 5 To 10 nếu đã loại dấu cách)
ABC = ABC + Mid(s, i, 1) * 2 ^ (i - 2)
Next i

 

[batman1]

Chuỗi mẫu có ký tự space ở giữa nữa nên xét đến ký tự thứ 11 mới lấy đủ 10 ký tự cần tính toán.

À thì ra thế. Tôi không để ý kỹ vì nếu tôi không lầm thì dấu cách này là do chủ thớt tự bịa ra chứ theo CHUẨN thì làm gì có dấu cách.

 

[SA_DQ]

.̃ . . . . vì nếu tôi không lầm thì dấu cách này là do chủ thớt tự bịa ra chứ theo CHUẨN thì làm gì có dấu cách.

Ký mã hiệu container

Bài này nêu ý nghĩa các loại ký mã hiệu container thường gặp: mã chủ sở hữu (owner code), số container (container number), chữ số kiểm tra (check digit)...

www.container-transportation.com

Thú thực là mình cũng không rành về mã này lắm, nên thấy người ta ghi sao thì sao chép lại thôi.

 

[batman1]

Ký mã hiệu container

Bài này nêu ý nghĩa các loại ký mã hiệu container thường gặp: mã chủ sở hữu (owner code), số container (container number), chữ số kiểm tra (check digit)...

www.container-transportation.com

Nếu nói về chuẩn thì tôi cũng có thể tự đọc. Ý tôi là tôi không tìm thấy chỗ nào nói là SỐ CÔNG TƠ NƠ phải có dấu cách sau 4 ký tự đầu.