EAN 13

- Dec 20, 2018-

EAN13 هو معيار يصف نظام الرموز والترقيم الباركود المستخدم في التجارة العالمية لتحديد نوع معين من منتجات التجزئة ، في تكوين عبوة محدد ، من شركة تصنيع محددة. تم إدراج المعيار في رقم رقم التجارة العالمية من مؤسسة GS1 ؛ يمكن الإشارة إلى نفس الأرقام كـ GTINs ويمكن تشفيرها في رموز الباركود الأخرى المعرفة بواسطة GS1. تُستخدم الرموز الشريطية EAN في جميع أنحاء العالم للبحث في نقاط البيع بالتجزئة ، ولكن يمكن أيضًا استخدامها كأرقام لأغراض أخرى مثل الطلب بالجملة أو المحاسبة.

يتكون كل رمز شريط EAN من حانتين ومسافات. العناصر الواسعة هي مضاعفات العناصر الضيقة. تتكون العناصر الواسعة من عنصر واحد أو اثنين أو ثلاثة أو أربعة عناصر ضيقة. هناك ما مجموعه سبعة عناصر في كل حرف EAN.

يتكون رمز EAN 13 من حرف البدء ، حرف العلم ، حقل بيانات الجانب الأيسر ، حرف الشريط الأيسر ، حقل بيانات الجانب الأيمن ، رقم المراجعة وحرف الإيقاف.

يتم استخدام حرف البدء في بداية الرمز لتزويد قارئ الرموز الشريطية بتعليمات البدء. نمط حرف البدء هو 101.

يتكون حقل البيانات في الجانب الأيمن من ستة أحرف متساوية: خمسة أرقام بالإضافة إلى رقم التحقق من المعامل 10.

يتم حساب المجموع الاختباري كمجموع من المنتجات - بأخذ قيمة الوزن بالتناوب (3 أو 1) أضعاف قيمة كل رقم بيانات. رقم المجموع الاختباري هو الرقم ، الذي يجب إضافته إلى هذا المجموع الاختباري للحصول على رقم قابل للقسمة على 10 (أي معكوس المضاف لـ المجموع الاختباري ، المعامل 10). راجع ISBN-13 حساب أرقام التحقق للحصول على وصف وخوارزمية أكثر شمولاً. يستخدم رقم الموقع العالمي (GLN) أيضًا نفس الطريقة.

المجموع الاختباري (الرقم الأخير في الباركود) هو حساب Modulo 10:


أضف قيم الأرقام في المواضع ذات الأرقام الزوجية: 2 ، 4 ، 6 ، إلخ.

اضرب هذه النتيجة ب 3.

أضف قيم الأرقام في المواضع الفردية: 1 ، 3 ، 5 ، إلخ.

جمع نتائج الخطوتين 2 و 3.

حرف التحقق هو أصغر رقم ، عند إضافته إلى النتيجة في الخطوة 4 ، ينتج مضاعف 10.

مثال: افترض أن بيانات الباركود = 001234567890


0 + 2 + 4 + 6 + 8 + 0 = 20

20 * 3 = 60

0 + 1 + 3 + 5 + 7 + 9 = 25

60 + 25 = 85

85 + X = 90 (أقرب مضاعفات مساوية أو أعلى من 10) ، وبالتالي X = 5 (المجموع الاختباري)

فيما يلي دالة Visual Basic نموذجية لحساب المجموع الاختباري:

الدالة Append_EAN_Checksum (RawString مثل سلسلة)

موقف خافت كما عدد صحيح

Dim CheckSum كـ عدد صحيح


المجموع الاختباري = 0

للموقف = 2 إلى 12 الخطوة 2

المجموع الاختباري = المجموع الاختباري + Val (Mid $ (RawString، Position، 1))

الموقف التالي


المجموع الاختباري = المجموع الاختباري * 3

للموقف = 1 إلى 11 الخطوة 2

CheckSum = CheckSum + Val (Mid $ (RawString، Position، 1))

الموقف التالي


المجموع الاختباري = المجموع الاختباري 10

المجموع الاختباري = 10 - المجموع الاختباري

إذا المجموع الاختباري = 10 ثم

المجموع الاختباري = 0

إنهاء إذا


Append_Ean_Checksum = RawString

تنسيق $ (المجموع الاختباري ، "0")

وظيفة النهاية