💥 التحدي 3 : ونعم ، يمكنك الاستعانة بالذكاء الاصطناعي لعمل الباركود Code128 و QR

[jjafferr]

السلام عليكم

الموقع https://zingl.github.io يعرض طريقة لعمل الباركود Code128, QR, Aztec, DataMatrix بالكود ويدون الاستعانة ببرامج خارجية.

في الموقع مرفق اكسس (وقد عملت تعديل بسيط عليه لعمل الصور التالية ، والمرفق موجود في اسفل المشاركة) ، وهنا اعرض مثالين على العرض:

.

.

طبعا Code128 غير مناسب للكلمات الطويلة.

الكود يقوم بعرض الباركود داخل حقل نص Textbox ، وهو يستعمل Line لعمل الباركود :

اقتباس

rpt.Line (x, y)-Step(1, 1), Text.ForeColor, BF

.

المشكلة ان الاكسس يقوم بتنفيذ الامر Line على خلفية التقرير/النموذج ، وبعدها يقوم بعرض بقية الكائنات ،

بمعنى ، اذا وضعنا كائن/حقل صورة خلف حقل نص الباركود ، فاننا لا نستطيع رؤية الباركود ، لأنه اصبح خلف الصورة.

 

في الصورة التالية ، التقرير الاول هو ما تم عرضه سابقا ، بينما في التقرير الثاني وضعت صورة زرقاء خلف كائنات/حقول الباركود:

.

ونتيجة التقرير الثاني:

.

 

مع وجود الصورة في الخلف ، المطلوب اظهار الباركود على الصورة ، وبأي طريقة.

من تجربتي ، لإظهار الباركود ، يجب وضعه في كائن/حقل صورة ، امام الصورة الخلفية.

 

ارفق لكم من نفس الموقع ، مرفق اكسل كذلك.

ومن موقع www.lebans.com ارفق قاعدة البيانات A2KPictureBoxVer35.accdb ، والتي بها نموذج و مكتبات قد تساعد الذكاء الاصطناعي بالعمل (نعم ، قد يحتاج الى مساعدتك في توجيهه).

 

 

QR_barcode.accdb A2KPictureBoxVer35.accdb barcode.xlsm

[ابوخليل]

عليكم السلام

لدي تساؤلات

بعد ملاحظتي ان الصورة عبارة عن خلفية ملونة ,, اي مجرد لون
انت جمعت هذه الانواع في تفصيل واحد .. هل على ارض الواقع تستخدم كلها؟ .. ام واحد فقط؟
اذا كلها وخلفها صورة يمكن جعل الصورة خلفية بدلا من كائن ويرسم اطار  حول كل حقل لتمييزه

اذا الحاجة الحقيقية يكفي فيها نوع واحد ويراد وضع صورة خلفه يمكن رسمها خلف الحقل وتكون اكبر قليلا لتمييز الحقل

 

[jjafferr]

حيا الله اخوي ابوخليل 🙂

الحاجة كالتالي:

نريد عمل هوية موظف ، فالصورة الخلفية ستكون لشكل الهوية ، وسنحتاج الى احد انواع الباركود سواء Code128 او QR وهو المفضل.

انظر المثال للتوضيح:

.

سؤال: لماذا لا نضع صورة الهوية في خلفية قسم التفصيل ، بحيث يمكن عمل الباركود فوقها (كما في الامثلة اعلاه).

الجواب: بعض الاوقات نحتاج الى تحريك صورة الخلفية (بعيدا عن اطراف قسم التفصيل) ، بحيث ممكن نكتب شيء فوقها او على طرفها ، لذلك لابد من طباعة الباركود على كائن الصورة الخلفية

[Foksh]

وعليكم السلام ورحمة الله وبركاته ..

واجهتني مشكلة بخصوص الملف A2KPictureBoxVer35 وهو أنه لم يعمل على الإصدار  64 للأسف 🙂 ..

وظهر عندي الخطأ التالي عند تحميل النموذج ، بعد تعديل التوافق بإضافة Ptrsafe كتجربة ..

 

[jjafferr]

منذ ساعه, Foksh said:

واجهتني مشكلة بخصوص الملف A2KPictureBoxVer35 وهو أنه لم يعمل على الإصدار  64 للأسف 🙂 ..

وظهر عندي الخطأ التالي عند تحميل النموذج ، بعد تعديل التوافق بإضافة Ptrsafe كتجربة

اعطني السطر الذي به المشكلة حتى اعالجه.

 

المبرمج Lebans هو افضل مبرمجي الاكسس في شكل وصور الاكسس ، لهذا السبب لا تجد في موقعه حلول لمعالجة البيانات ،

وعادة يترك في الكود جميع انواع المكتبات ، سواء كانت مهمة لذلك الموضوع او لا ، ثم يقوم بتصفيتها في النهاية.

والاسهل ان تُدخل الكود في الذكاء الاصطناعي وتطلب منه حذف المكتبات الغير مطلوبة ، وتحويل الباقي ليعمل على النواتين 🙂

[Foksh]

39 دقائق مضت, jjafferr said:

اعطني السطر الذي به المشكلة حتى اعالجه.

انا فقط قمت بإضافة PtrSafe إلى جميع الوظائف والدوال في المديولين ..

 

الخطأ الأول عند تحميل النموذج :-

pb.ImageControl = Me.Image0

بعد فتح النموذج وتجاهل الخطأ السابق ، يظهر الخطأ التالي عند الزر :-

Private Sub Command30_Click()
pb.DIBFlipHorizontal
End Sub

وهكذا في جميع الأزرار التي تستدعي

pb.

 

انا شرحت المشكلة التي قد تواجه بعض المستخدمين الذي قاموا بتحميل الملف والعمل على بيئة 64 وليس 32 . فالملف يعمل بشكل سليم على أوفيس 32 

[jjafferr]

37 دقائق مضت, Foksh said:

انا فقط قمت بإضافة PtrSafe إلى جميع الوظائف والدوال في المديولين

بعض الاوقات هذا لا يكفي ، ويجب تعديل المكتبة في اماكن اخرى.

 

على العموم ، قاعدة البيانات هذه كانت معمولة على الاكسس 2000 ، فمن المتوقع ان لا تشتغل على الاصدارات الجديدة ، وخصوصا نواة 64 بت