[RaggiTech]

لقد قمت بعمل الخوارزمية السابقة التى سيكون ناتجها صورة تحمل خطوط الباركود لأى نص مراد تشفيره بعد تحديد الفئة المراد استخدامها وقد شرحت كل ما عليك معرفته فيها ما عليك سوى نسخها واستخدامها مباشرة او اسناد القيمة الناتجة إلى (PictureBox) لاظهار البار كود على الشاشة
دعنا لا نضيع الوقت ونرى ماذا يمكن اضافته لهذا الدرس
ثالثا: افكار حول الفئة (C) لل(Code 128)
عرفنا ان الفئة (A,B) تقوم بطباعة نصوص وارقم فماذ نستفيد من الفئة (C) والتى تقوم بطباعة قيمة الحرف وليس الحرف ؟؟
من جدول القيم التابع لل(Code 128) احب ان اجعلك لتنتبه لنقطة مهمة جدا هنا وهى ان قيمة الحرف دائما ما سيتم التعبير عنها برقمين فمثلا الحرف (SP) فى اول الجدول والمخصص لقيم المسطرة على الكيبور ويعطى مسافة خالية (Space) فى النصوص قيمته فى الحقيقة هى (00) وليس (0) والحرف (!) قيمته فى الحقيقة (01) وليس (1) وهكذا فبماذا سيفيدنا ذلك ؟؟؟
الم تعرفوا الى ماذا يؤدى ذلك ارى منكم من هو لم يفهم وارى منكم من يبتسم من اذنه اليمنى إلى اليسرى نعم حقا هذا ما ارمى اليه انه اختزال تتفرد به ال(Code 128) للارقام عند استخدام الفئة (C) بمعنى انك بدلا من تشفير نص رقمى يحتوى على عدد كبير من الارقام مثل (12345678901234567890) وهو رقم كبير مكون من 20 رقم سينتج عنه باركود عرضه قد يؤثر بالتالى على حجمه اثناء الطباعة يمكن اختزالة إلى (10) حروف فقط بالاستعاضة عنه بالحروف التى تحمل قيم كل رقمين متجاورين بمعنى اننا ممكن ان نعوض عن اول رقمين وهم (12) بالحرف (,) ونعوض عن الرقمين (34) بالحرف (@) ونعوض عن الرقمين (56) بالحرف (X) وهكذا ستجد انك قمت بترميز 10 حروف فقط بدلا من (20) رقم قم باضافة البداية للفئة (C) وقم بحساب الحرف التكميلى وقم بانهاء الاكواد سيقوم قارئ الباركود بقرائة الرقم المكون من (20) رقم فما رأيكم بذلك ؟؟؟
لعل احدكم يصرخ الان لينبهنى ان هذا الامر لن يجدى سوى مع الارقام الزوجية لان القيم كما ذكرت دائما ما سيتم تمثيلها برقمين اليس كذلك ؟؟
احب الا يصرخ احد وانبهه إلى ان ما يتعامل معه هنا ارقام والفت نظره إلى ان الصفر على الشمال ليس له قيمة ولن اذكر اكثر من ذلك فإن لم تعرف الحل ستصرخ إلى الابد ليس هنا فقط !
قد يمل البعض من اعادة البحث وترتيب الحروف لمعرفة الحرف الذى سيحل محل الارقام ... سالفت نظركم بكل بساطة ان الجدول الخاص بالقيم يسير بنفس ترتيب جدول الاسكى ويحمل قيم الحروف القابلة للطباعة فقط اى انه يبدأ من القيمة (32) .... بالتأكيد فهمتم ما ارمى اليه ... قم بجمع قيمه الاسكى للحرف + الرقم (32) واعد اسناد الحرف الجديد بالاسكى الناتج لك ستعرف الحرف المطلوب لاعطائك الناتج الذى تريد ... لا بأس يمكننى عمل دالة تعطينا المطلوب لا تتعبوا انفسكم وقوموا بنسخها من الكود التالى :

كود :

Function Toc(ByVal Text2CStr As String) As String
' دالة لتعويض النص المطلوب تشفيره بالارقام للفئة
' (C)
Dim X As Integer = 1
Dim NewText As String = ""
Dim Z As String = ""
Do
Z = Mid(Text2CStr, X, 2)
' اضافة رقم32 لقيمة الاسكى واستعادة الحرف الناتج بعد الاضافة
NewText = NewText & Chr(Val(Z) + 32)
X += 2
Z = Mid(Text2CStr, X, 1)
If X >= Len(Text2CStr) Then Exit Do
If Z = "" Then Exit Do
Loop
Toc = NewText
End Function

لمعلومات اخرى حول الترميز بهذا الكود يمكنك زيارة الرابط التالى :

http://en.wikipedia.org/wiki/Code_128

واخيرا كى تعرف الان قيمة ما بين يديك قم بزيارة هذا الرابط وانظر إلى ثمن شراء برنامج رسم الباركود باستخدام هذا الترميز على الرابط التالى :

http://www.precisionid.com/code-128-barcode-font.aspx

وهنا ايضا للاداة التى يمكن اضافتها لبرامجك والتى لم يعد احدنا بحاجة اليها والخاصة بالاكواد (EAN13) و (Code39) و (Code128)التى نجيد برمجتها حاليا :

http://www.precisionid.com/code-128-barcode-font.aspx

ارجوا ان اكون قد قمت بتقديم ما يفيدكم .... دمتم جميعا بود
المثال بمرفقات المشاركة الاولى يشمل كل ماتم شرحة هنا