كيفية توليد أرقام باركود ean 128
#1
السلام عليكم ورحمة الله وبركاته ،
طلب مني أحد الزبائن إنشاء بار كود من نوع ean 128 للسلعة التي لا تحوي باركود مسبقا.
بمعنى أنني أنا الذي أقترح عليه باركود من نوع ean 128 بطريقة عشوائية.
و لا أقصد طباعة الباركود.
هل هناك من فكرة؟
جزاكم الله خيرا.
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
الرد
#2
السلام عليكم ربما الموضوع يساعدك http://delphi4arab.net/forum/showthread.php?tid=9688
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
[-] كل من 1 user says قال شكرا ل S.FATEH على المشاركة المفيدة
  • أبو معاذ
الرد
#3
السلام عليكم.

بعد البحث وصلت إلى هذه النتيجة ،

أضعها هنا ربما هناك من يستفيد منها. Shy 



نوع الباركود المستعمل هو ENA128  يقبل الأرقام و الحروف.



على حسب الزبون ، هل يريد باركود بالأرقام فقط أم بالحروف فقط ، أم الإثنين معا.



هذه الدالة تقوم بتوليد رمز عشوائي يحوي عدد معين من الأرقام و الحروف على حسب طلب الزيون:


PHP كود :
Function KeyRandom(Nbr:Integer): String ;
const
  ChAlpha '013456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  //ChAlpha = '013456789';
  //ChAlpha = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
begin
  Randomize
;
  
  repeat
        Result 
:= Result ChAlpha[Random(Length(ChAlpha)) + 1];
  until Length(Result) = Nbr// Longueur de la clé
  
  
end

بعد ذلك ، إذا كنا نريد توليد باركود ب13 رمز (أرقام أو حروف) نقوم باستدعاء الدالة بالطريقة التالية :





PHP كود :
BareCode.Text := KeyRandom(13) ; 


هذا ما توصلت إليه ،

وجزاكم الله خيرا.
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
[-] كل من 4 users say قال شكرا ل أبو معاذ على المشاركة المفيدة
  • B.M.AbdelAziZ, bassem_43, Delphi4Us, wadoud
الرد
#4
السلام عليكم
المشكلة ليست في توليد ارقام او حروف عشوائية...
بالنسبة لباركود EAN13 الرقم الاخير يسمى المفتاح و يستخدم للتحقق اذا كان الباركود صحيح و يتم حسابه حسب خوازمية معينة و اعتقد نفس الأمر بالنسبة EAN128 لذلك يجب ان تحسب المفتاح و الا لن يعمل الباركود...
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
الرد
#5
(17-10-2019, 09:51 AM)S.FATEH كتب : السلام عليكم
المشكلة ليست في توليد ارقام او حروف عشوائية...
بالنسبة لباركود EAN13 الرقم الاخير يسمى المفتاح و يستخدم للتحقق اذا كان الباركود صحيح و يتم حسابه حسب خوازمية معينة و اعتقد نفس الأمر بالنسبة EAN128 لذلك يجب ان تحسب المفتاح و الا لن يعمل الباركود...

وعليكم السلام ورحمة الله وبركاته.
بل يعمل جيدا أخي فاتح.
وجربت طباعته و قراءته والكل تمام.

كما في إجابة الأخ عبد العزيز في الرابط أدناه.
http://delphi4arab.net/forum/showthread....6#pid46616
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
الرد
#6
السلام عليكم بما انه يعمل فتلك هي الغاية بالتوفيق اخ ابو معاذ
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
[-] كل من 1 user says قال شكرا ل S.FATEH على المشاركة المفيدة
  • أبو معاذ
الرد
#7
(17-10-2019, 12:07 PM)S.FATEH كتب : السلام عليكم بما انه يعمل فتلك هي الغاية بالتوفيق اخ ابو معاذ

وعليكم السلام ورحمة الله وبركاته.
جزاك الله خيرا أخي فاتح على متابعة.
دمت لي أخ وفيا. Cool
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
الرد
#8
السلام عليكم ورحمة الله وبركاته.
بالنسبة للإخوة الذين لا يملكون قارئ باركود بين أيديهم ، يمكنهم تجربة الباركود الخاص بهم Online ،
كيف ذلك ؟

أولا : قم بإنشاء الباركود الخاص بك ،و عند طباعته بالفاستريبورت أو أي مولد تقارير ، قم بتصدير تقريرك إلى ملف PDF.

ثانيا : ادخل على الموقع التالي :

https://online-barcode-reader.inliteresearch.com/

[صورة مرفقة: 495653876.png]

قم بادخال الملف الخاص بك ، وبعد ذلك اضغط على زر read ، وعندها يتم قراءة الباركود الخاص بك ،

وبهذا تكون قد تحققت من نجاح مهمتك.

بالتوفيق للجميع.
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
[-] كل من 2 users say قال شكرا ل أبو معاذ على المشاركة المفيدة
  • B.M.AbdelAziZ, bassem_43
الرد
#9
(27-10-2019, 09:16 AM)أبو معاذ كتب : السلام عليكم ورحمة الله وبركاته.
بالنسبة للإخوة الذين لا يملكون قارئ باركود بين أيديهم ، .......................
كيف ذلك ؟

السلام عليكم

زيادة على ما تفضلت به هناك تطبيقات على الهواتف الذكية تقرأ الباركود
أدبني الدهر فأراني نقص عقلي وإذا ما ازددت علما زادني علما بجهلي
[-] كل من 2 users say قال شكرا ل لؤي على المشاركة المفيدة
  • bassem_43, أبو معاذ
الرد
#10
إذًا, هل كل رد لا يعجبكم يتم حذفه؟
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف