حساب رقم التحقق لـ Modulo 43

Modulo 43

حساب المجموع الاختباري وفقًا لمودولو 43:
يتم استخدام رقم التحقق وفقًا لمودولو 43 على سبيل المثال بواسطة الكود 39.

أولاً، يتم تعيين أرقام مرجعية لجميع أحرف الرمز. تُضاف هذه الأرقام المرجعية إلى المجموع. يُقسم هذا المبلغ على 43. أما باقي هذا القسم فيتوافق مع المجموع الاختباري، الذي يتم استبداله بعد ذلك بالحرف المطابق للرقم المرجعي.

مثال على الحساب:

أرقام:	1 5 9 A Z
الأرقام المرجعية:	1 +5 +9 +10 +35
مجموع الأرقام المرجعية:	60
حساب المجموع الاختباري:	60 / 43 = 1 الباقي 17
رقم التحقق	"H" (الرقم المرجعي 17)

الأرقام المرجعية:

00 0 01 1 02 2 03 3 04 4 05 5 06 6 07 7 08 8 09 9 10 A

11 B 12 C 13 D 14 E 15 F 16 G 17 H 18 I 19 J 20 K 21 L

22 M 23 N 24 O 25 P 26 Q 27 R 28 S 29 T 30 U 31 V 32 W

33 X 34 Y 35 Z 36 - 37 . 38 Space 39 $ 40 / 41 + 42 %

مثال على كود لحساب المجموع الاختباري وفقًا لمودولو 43

كود Excel VBA لحساب المجموع الاختباري وفقًا لمودولو 43، على سبيل المثال لرمز HIBC:

' calc modulo 43
‘ returns the input string plus the check character
' demo for www.activebarcode.com
Public Function MOD43CheckChar(sValue As String) As String
    Const charSet As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%"
    Dim i As Integer
    Dim T As Long
    For i = 1 To Len(Trim(UCase(sValue)))
        T = InStr(charSet, Mid(sValue, i, 1)) - 1 + T
    Next i
    MOD43CheckChar = sValue & Mid$(charSet, (T Mod 43 + 1), 1)
End Function