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

[محب العقيدة]

الصحيح لا احب الكذب

انا لم احاول في التحدي

لكن في نظام الفوترة الذي عندي استعين باخذ بباركود من ويب سايت

حاولت استخدام الباركود في مرفقات الاستاذ جعفر لكن المشكلة ان الباركود الراجع من الفوترة كبير جدا فحاولت استخدام المرفق الا ان qr device

لم يستطع قراته بسهولة الا اذا كبرته كثيرا

 

 

[jjafferr]

2 ساعات مضت, محب العقيدة said:

لكن المشكلة ان الباركود الراجع من الفوترة كبير جدا فحاولت استخدام المرفق الا ان qr device

لم يستطع قراته بسهولة الا اذا كبرته كثيرا

 

افتح موضوع مستقل ،

ياريت تعمل تقرير ، وتحط فيه QR بالقياس اللي تريده ، وتعمل بعض السجلات حسب حجم بياناتك ، وخلينا نشوف كيف نقدر نساعدك 🙂

وحُباً وكرامة 🙂

 

[منتصر الانسي]

بعد إذن الاخ @mohahje قمت (وبإلاستعانة بالذكاء الصناعي أكيد 😅) بتعديل الكود للحصول على الـ QRCode بلون أسود وخلفية بيضاء

كذلك وتنفيذاً لطلب الاخ @jjafferr تم إضافة الكود الخاص بتنفيذ نفس العملية ولكن للحصول على Code128 

ارفق لكم ثلاثة ملفات أكسس كالتالي

1 - الملف QR_barcode SubReport يتم فيه تطبيق الحل الخاص بالاخ @jjafferr بإستخدام التقارير الفرعية

2 - الملف QR_barcode Transparent يتم فيه تطبيق الحل الخاص بالاخ @jjafferr بإستخدام الصورة الشفافة

3 - الملف QR_barcode Bmp Images يتم فيه تطبيق الكود الخاص بالأخ @mohahje 

تم تطبيق الحلول الثلاثة على نفس صورة الخلفية حتى يتم تجربة كل الحلول في نفس الظروف ومقارنتها من حيث سرعة الأداء وتضخم حجم قاعدة البيانات عند زيادة حجم البيانات

ارجو من الجميع تجربة الثلاثة ملفات وإبداء أي ملاحظات للتوصل إلى أفضل حل

تحياتي

BarcodesReports.rar

[mohahje]

19 دقائق مضت, منتصر الانسي said:

بعد إذن الاخ @mohahje قمت (وبإلاستعانة بالذكاء الصناعي أكيد 😅) بتعديل الكود للحصول على الـ QRCode بلون أسود وخلفية بيضاء

بارك الله فيك وفي علمك وجميع أعضاء هذا المنتدى الرائع

[mohahje]

8 ساعات مضت, jjafferr said:

 

 

8 ساعات مضت, jjafferr said:

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

شكرا جزيلا على المشاركة ، وهي مشاركة موفقة ، واذا تسمح لي بطلب تعديل:

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

 

8 ساعات مضت, jjafferr said:

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

2. وبعدها بتأمل في عمل على الاقل Code128 كذلك.

اعتقد بان البش مهندس منتصر الانسي قد قام بالازم ان شاء الله
 

[mohahje]

48 دقائق مضت, منتصر الانسي said:

بعد إذن الاخ @mohahje قمت (وبإلاستعانة بالذكاء الصناعي أكيد 😅) بتعديل الكود للحصول على الـ QRCode بلون أسود وخلفية بيضاء

كذلك وتنفيذاً لطلب الاخ @jjafferr تم إضافة الكود الخاص بتنفيذ نفس العملية ولكن للحصول على Code128 

ارفق لكم ثلاثة ملفات أكسس كالتالي

1 - الملف QR_barcode SubReport يتم فيه تطبيق الحل الخاص بالاخ @jjafferr بإستخدام التقارير الفرعية

2 - الملف QR_barcode Transparent يتم فيه تطبيق الحل الخاص بالاخ @jjafferr بإستخدام الصورة الشفافة

3 - الملف QR_barcode Bmp Images يتم فيه تطبيق الكود الخاص بالأخ @mohahje 

تم تطبيق الحلول الثلاثة على نفس صورة الخلفية حتى يتم تجربة كل الحلول في نفس الظروف ومقارنتها من حيث سرعة الأداء وتضخم حجم قاعدة البيانات عند زيادة حجم البيانات

ارجو من الجميع تجربة الثلاثة ملفات وإبداء أي ملاحظات للتوصل إلى أفضل حل

تحياتي

احسنت 👍 يا بش مهندس منتصر الانسي 
 عيد مبارك للجميع وكل عام وانتم بخير

[jjafferr]

منذ ساعه, منتصر الانسي said:

1. تعديل الكود للحصول على الـ QRCode بلون أسود وخلفية بيضاء

2. تم إضافة الكود الخاص بتنفيذ نفس العملية ولكن للحصول على Code128 

 

1. النتائج ممتازة ، ومع ان الصورة الخارجية صغيرة ، ولكنها تكبر في التقرير وبدون تشويش ،

ولكن اذا سمح وقتك ان تكبر الصورة الخارجية ، يكون افضل.

2. لم استطع قراءة اي من البيانات ، الى ان عملت تكبير للتقرير 200% فقرأها صح ، ولم يقرأها 150% فما دون ، فياريت تعيد النظر 🙂

 

[jjafferr]

40 دقائق مضت, mohahje said:

بارك الله فيك وفي علمك وجميع أعضاء هذا المنتدى الرائع

 يا اهلا وسهلا بك ظاهرا ، ويا اهلا بك متابعا صامتا 🙂

المنتدى مثل الدكان ، تدخل فيه صامتاً لترى البضاعة ، او تدخل وتشتري ونراك مساهماً 🙂

[منتصر الانسي]

منذ ساعه, mohahje said:

 عيد مبارك للجميع وكل عام وانتم بخير

أعاده الله علينا وعليكم وجميع المسلمين بالخير واليمن والبركات

منذ ساعه, jjafferr said:

ولكن اذا سمح وقتك ان تكبر الصورة الخارجية ، يكون افضل.

وماحاجتك إلى تكبير الصورة الخارجية ؟؟؟

منذ ساعه, jjafferr said:

2. لم استطع قراءة اي من البيانات ، الى ان عملت تكبير للتقرير 200% فقرأها صح ، ولم يقرأها 150% فما دون ، فياريت تعيد النظر 🙂

هذه هي الأبعاد التقريبية للبطاقة 8×5 سم كذلك فأن قراءة الباركود من بطاقة مطبوعة يختلف عن القراءة من الشاشة حيث أنك تقوم بتقريبها إلى جوار قارئ الباركود

ولكن إذا قمنا بتكبير الصورة الخاصة بالكود ستغطي على البيانات فمثلا قمت بتعديل أبعاد الصورة الخاصة بالـ QRCode لتصبح 2×2 سم وهذه كانت النتيجة

 عموما بإمكانك أنت تعديل أبعاد الصورة حسب رغبتك 

تحياتي

[Foksh]

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

تقبل الله طاعاتكم ، ومبارك على الجميع عيد الأضحى المبارك..

 

من باب السؤال والنقاش . هل من الممكن فعلاً أن نجعل التقرير يعرض الباركود ولكن بدل ما نرسم الباركود على أرضية التقرير ، أن يتم الرسم على أرضية عنصر صورة غير منضم 🤔 !!

بمعنى آخر ، نستغل فكرة من المرفق الثاني ودمجها في النتيجة المطلوبة وبالتالي لن نحتاج صورة محفوظة أساساً !!!

 

الفكرة تتلخص بالمرفق التالي بعد تشريح الأكواد وإزالة ما ليس له عمل لتطبيق الفكرة ، وإضافة الكلاس clsPictureBox واستغلال فكرة التنفيذ من الزر Start Draw with Mouse في المرفق A2KPictureBoxVer35 الأصلي من المشاركة الأولى ، بحيث جعلت الفكرة تقوم على رسم رمز الـ QR والـ Code128 😅 . وأشعر بأنها فكرة قد لا تكون ذكية .. ولكن كتجربة مختلفة عما تفضل به الأساتذة وجعلها تعمل على النواتين 32 و 64 :-

 

QR_barcode.accdb

تم تعديل مايو 29 بواسطه Foksh
إضافة المرفق

[jjafferr]

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

 

عمل رائع ، تشكر عليه 🙂

 

10 ساعات مضت, Foksh said:

أن يتم الرسم على أرضية عنصر صورة غير منضم 🤔 !!

بمعنى آخر ، نستغل فكرة من المرفق الثاني ودمجها في النتيجة المطلوبة وبالتالي لن نحتاج صورة محفوظة أساساً !!!

 

اخي فادي ، في اعتقادي انها الفكرة الافضل ، بحيث تستغني عن الصورة الخارجة المؤقته ايضا ، والحمدلله كان ظنّي في محله ، لأننا بالفعل بحاجة الى clsPictureBox وبدونه حتى الذكاء الاصطناعي لا يعرف كيف يعالج صور الاكسس مباشرة من الكود.

 

انا بالفعل توصلت لمثل هذا الكود ، ولكن بسبب خبرتي العملية ، فهناك حاجة الى عمل Code128 عمودي ايضا (نخبر الكود اننا نريده افقيا كما في عملك: H"orizontal" او عموديا V"ertical") ، فتوقفت وكانت الصورة اسهل في التعامل مع الكود.

 

اذن ، ياريت تعطينا الخيار في عمل Code128 افقي او عمودي H او V لوسمحت.

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

[Foksh]

4 ساعات مضت, jjafferr said:

اذن ، ياريت تعطينا الخيار في عمل Code128 افقي او عمودي H او V لوسمحت.

أنت تقصد هنا تدوير الصورة المرسومة ، صحيح ؟؟

[jjafferr]

 

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

أنت تقصد هنا تدوير الصورة المرسومة ، صحيح ؟؟

نعم

 

H = Hrizontal = افقي (الذي قمت انت به حاليا)

V = Vertical = عمودي ، 90 درجة او 270 درجة

 

[Foksh]

تمام ، قمت بالتطبيق مسبقاً بإجراءات بسيطة واستخدام فكرة الرسم والتدوير من الملف المرفق الأصلي A2KPictureBoxVer35 ..

 

New QR.accdb

[منتصر الانسي]

بالحل المقدم من الأخ @Foksh ينطبق المثل "قطعت جهيزة قول كل خطيب"

[Foksh]

5 دقائق مضت, منتصر الانسي said:

بالحل المقدم من الأخ @Foksh ينطبق المثل "قطعت جهيزة قول كل خطيب"

بعض ما عندكم أخي @منتصر الانسي ، فأنتم السابقون بالأفكار الرهيبة التي طرحتموها . وما كان مني إلى اتباعكم بالتفكير خارج الصندوق 

[jjafferr]

3 ساعات مضت, Foksh said:

قمت بالتطبيق مسبقاً بإجراءات بسيطة واستخدام فكرة الرسم والتدوير

تجربة ناجحة وبالفعل يعمل المطلوب وبكل سهولة ، شكرا جزيلا لك

 

1 ساعه مضت, منتصر الانسي said:

بالحل المقدم من الأخ @Foksh ينطبق المثل "قطعت جهيزة قول كل خطيب"

قطعا

 

وعندي طلبين لوسمحت ، ولكن تعمل الاول اذا وافقت تعمل الثاني 

1. رجاء تغيير كود التقرير بأسماء الحقول بدل الاعتماد على TAG الحقل ، فهذا سيجعل المبرمجين يفهمون الكود اكثر ، وهذا هو الكود جاهزا :

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
     
    Call drawCode128(Me.Text, ImgQR4)
    Call drawCode128(Me.Text, ImgQR5, , True)
    Call drawQuickResponseToImage(Me.Text, ImgQR2)

End Sub

 

2. هل فيه امكانية حفظ الباركود في صورة خارجية ، تُحفظ في مجلد خاص داخل مجلد البرنامج ، والصورة تُحفظ بإسم قيمة الباركود (في حالتنا ، Text) .

[Foksh]

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

2. هل فيه امكانية حفظ الباركود في صورة خارجية ، تُحفظ في مجلد خاص داخل مجلد البرنامج ، والصورة تُحفظ بإسم قيمة الباركود (في حالتنا ، Text) .

بما أن الأول مشروط بقبول الثاني 😅 ، فلا مشكلة بإذن الله لأنني وقد قمت فعلاً بتعديل الفكرة سابقاً لتصبح معتمدة على اسم مربع النص وليس الـ Tag .

ولكن لي ملاحظة بسيطة ، حيث في السابق كان كود الـ QRCode يعتمد أحياناً على Tag لتحديد دقة ومستوى الباركود (H,Q,M) . الآن بعد إزالة اعتمادنا على الـ Tag ، سأعتمد على اختيار الدقة الأفضل H . تمام ؟

 

أما الثاني فليس هناك مشكلة في حفظ الـ QR أو Code128 كصور بمجلد خارجي . وإن شاء الله حال عودتي للبيت  .

[jjafferr]

منذ ساعه, Foksh said:

سأعتمد على اختيار الدقة الأفضل H . تمام ؟

نعم تستطيع جعله افتراضيا في الدالة :

Optional level As String = "H"

 

 

منذ ساعه, Foksh said:

كود الـ QRCode يعتمد أحياناً على Tag لتحديد دقة ومستوى الباركود (H,Q,M)

نعم الان لاحظت في الكود انه يرجع الى Tag 

يجب الان الاستغناء عن Tag كليا

[Foksh]

تفضل أخي @jjafferr .. الآن تم الدمج بحيث لديك جميع الخيارات :-

1. القديمة عن طريق Tag .
2. الجديدة من خلال قيمة مربع النص لكل QR أو Code128 ..
3. حفظ الصور في المجلد QRImg بجانب قاعدة البيانات . ( وهنا سيكون لنا وقفة مرهونة بتجربتك 😉 )

 

 

QR_barcode.accdb

تم تعديل مايو 30 بواسطه Foksh

[jjafferr]

اخي فادي

 

شكرا جزيلا ، وحسب طلب الموضوع ، فاعتبر مشاركتك الاخيرة تحقق جميع الطلبات 

 

ولكن 

وحتى تكون قاعدة بياناتك مرجع للمبرمجين ، فهناك التعديلات التالية التي اعتقد انها مهمة :

1. كثرة الاختيارات تضّيع المبرمج المبتدئ ، فالافضل اختصارها (طبعا انا اقدر اعمل التغييرات بنفسي لعملي 🙂 ) ، ومناداتها بالطريقة التقليدية (الطريقة الثانية) ، لأني وجدت ان كود الدالة لايزال يعتمد على TAG ،

2. وكذلك وضع جميع امور مجلد الصور خارج التقرير. في التقرير يكون سطر واحد (مثل الطريقة الثالثة ، او حتى وضع جميع امور مجلد الصور خارج دوال واحداث التقرير)

3. بعد عدة تجارب على النسخة السابقة يإستعمال هويات حقيقة ، وقبل نسختك الاخيرة والتي عملت فيها الصور في مجلد خارجي ، لاحظت:

     أ. الباركود و QR فيه مسافات اضافية بيضاء ، بينما يجب ان تكون الصورة في حجم الباركود و QR (المنطقة في اللون الاحمر اضافية) :

و

.

     ب. ولأن الخلفية بيضاء (غير شفافة) ، فعمل خلفية الكائن شفافة لا تفيد ، فالباركود يظهر في الصورة بالمسافة البيضاء الاضافية.

[Foksh]

4 ساعات مضت, jjafferr said:

1. كثرة الاختيارات تضّيع المبرمج المبتدئ ، فالافضل اختصارها (طبعا انا اقدر اعمل التغييرات بنفسي لعملي 🙂 ) ، ومناداتها بالطريقة التقليدية (الطريقة الثانية) ، لأني وجدت ان كود الدالة لايزال يعتمد على TAG

يعني انت تريد تنظيف الأكواد من الاعتماد على Tag كلياً ؟

فقط سنقوم بإزالة الجملة الشرطية التي تختص بالـ Tag ، من المديول ModulQRCode .

    If level = "" Then
        i = InStr(LCase(Text.Tag), "qrcode")
        If (i > 0 And i + 5 < Len(Text.Tag)) Then level = Mid(Text.Tag, i + 6, 1)
    End If

 

5 ساعات مضت, jjafferr said:

2. وكذلك وضع جميع امور مجلد الصور خارج التقرير. في التقرير يكون سطر واحد (مثل الطريقة الثالثة ، او حتى وضع جميع امور مجلد الصور خارج دوال واحداث التقرير)

تم نقل الدالة الى المديول وتحويلها الى Public ، وتنظيف أكواد التقرير ، والإعتماد فقط على الاستدعاء :-

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Call DrawAndSaveBarcode(Me.FieldCode128, Me.ImgQR4, "Code128")
    Call DrawAndSaveBarcode(Me.FieldCode128, Me.ImgQR5, "Code128", True)
    Call DrawAndSaveBarcode(Me.FieldQRCode, Me.ImgQR2, "QR")
End Sub

 

وكملاحظة ، قمت بإضافة مربع النص PgCount داخل التقرير في Page_Footer ، والهدف منه كان لتجربة بأن يتم تصدير كافة الرموز Qr/Code128 عند فتح التقرير ، أو تستطيع الغاء مربع النص هذا وسيتم تصدير الصور داخل المجلد حسب الصفحة التي يتم فتحها فقط . 

 

المرفق بعد التعديل :-

QR_Barcode - 3.accdb

[منتصر الانسي]

7 ساعات مضت, jjafferr said:

 أ. الباركود و QR فيه مسافات اضافية بيضاء ، بينما يجب ان تكون الصورة في حجم الباركود و QR (المنطقة في اللون الاحمر اضافية) :

و

.

     ب. ولأن الخلفية بيضاء (غير شفافة) ، فعمل خلفية الكائن شفافة لا تفيد ، فالباركود يظهر في الصورة بالمسافة البيضاء الاضافية.

هذا يمكن حله بتعديل خاصية Size Mode للصورة بدل Zoom إجعلها Stretch

أما فيما يخص العمل ككل فلا غبار ولكني رأيت أن فرض حفظ الصورة على المستخدمين فكرة لن يحبذها الجميع لذلك فكرت أن أعطي التطبيق مرونة أكثر ليناسب أغلب المستخدمين إن لم يكن جميعهم

لذلك وبعد إذن الأخ @Foksh قمت بإضافة نموذج فيه أربعة أزرار لفتح التقرير في أربع حالات

1- فتح التقرير بدون حفظ للصور 

2- حفظ الصور بدون فتح التقرير

3- فتح التقرير مع حفظ جميع الصور عند الفتح

4- فتح التقرير مع حفظ الصور بشكل فردي أثناء التنقل

من وجهة نظري أن هذه هي جميع الخيارات التي قد يحتاجها أي مستخدم لذا يمكن لأي شخص الإستفادة مما جاء في التعديل لتطبيق الخيار الذي يفضله ولو كان بإمكان الأخ @Foksh إضافة هذه الخيارات كمعلمة لإختيار أحدها وتنفيذ الأمر مباشرة سيكون أفضل

تحياتي

QR_Barcode - 4.accdb

[أبو عبدالله الحلوانى]

السلام عليكم ورحمة الله وبركاته
كل عام وحضراتكم بخير 
حقيقة حثني الشوق الي المرور بالمنتدي بعد غيبة طالت فمررت لاعيد علي الاحبة 
فجذب انتباهي هذا التحدي الذي اثار فضولي ورغم قطع أخي @Foksh مجال النقاش 
إلا إني احببت أن ادلي بدلائي القاصرة وفكرة ربما تكون لم تطرق في مجال نقاش الموضوع 
من الأساتذة الكرام.
الفكرة هو تحويل الكتابة من التقرير الي الكتابة علي كائن صورة - هذا الكائن المستعصي 
علي التعديل إلا ان المرفق الخاص بـ labins لفت الانتباه الي خاصية هامة في كائن الصورة
DIB التي يمكن من خلالها حقن كائن الصورة بمجموعة من الداتا علي هيئة بايتس للرسم 
في اطار الصورة
الفكرة كانت تحويل الخطوط المرسومة الي صورة ترسم بالذاكرة دون الحاجة الي حفظ صور 
خارجية ثم حقن كائن الصورة بالتقرير بالبايتس الموجودة بالذاكرة 
وكانت النتيجة كما يلي والمرفق بالاسفل 
لا ادعي انه اجتهاد محض مني ولكن هو ذلك الذكاء الاصطناعي الذي ابتلينا به 
او ان شئت قل هو الذي ابتلي بنا 😀
والمرفق بالاسفل ابقيت علي المودلز الاصلية والتي تم التعديل عليها اضفت اليها كلمة new قبل اسمها لتسهل عملية المقارنة 
وافردت مدل مستقل لرسم الصورة بالذاكرة 
ما استعصي علي هو ضبط ارتفاع code128 
وجزاكم الله خيرا 
 

QR_barcode.accdb

[Foksh]

2 ساعات مضت, منتصر الانسي said:

هذا يمكن حله بتعديل خاصية Size Mode للصورة بدل Zoom إجعلها Stretch

بخصوص هذه النقطة ، لا أعلم إن كانت صحيحة ، لأنني جربت فكرتك ولم تكن ناجحة معي سابقاً للأسف 😅

 

2 ساعات مضت, منتصر الانسي said:

نموذج فيه أربعة أزرار لفتح التقرير في أربع حالات

جميل جداً ما تقدمت به . لم تغب عن بالي الفكرة ، ولكني فعلاً كنت قد انشغلت باستراق فكرة التدوير من المرفق الأصلي الذي شاركه أخي جعفر 😁 . لذا جزاكم الله عنا كل خير

 

2 ساعات مضت, منتصر الانسي said:

ضافة هذه الخيارات كمعلمة لإختيار أحدها وتنفيذ الأمر مباشرة سيكون أفضل

فيما يخص هذه الفكرة ، فإن شاء الله سأقوم بالتعديل حال وصولي الى البيت .. ولكن إن كان لك أن تشاركني فأهلاً وسهلاً  .