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

[Foksh]

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

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

تفضل اخي منتصر .. التعديلات التي تمت :-

• الدالة DrawAndSaveBarcode أصبحت :-

Public Sub DrawAndSaveBarcode(txt As TextBox, img As Image, barcodeType As String, Optional bVertical As Boolean = False)
    Dim saveDir As String
    Dim fullPath As String
    Dim parentReport As Report
    Dim saveMode As String
    Dim shouldSave As Boolean

    On Error Resume Next
    Set parentReport = img.Parent
    If parentReport Is Nothing Then Set parentReport = img.Parent.Parent
    On Error GoTo 0

    saveMode = "NoSave"
    If Not parentReport Is Nothing Then
        saveMode = Nz(parentReport.OpenArgs, "NoSave")
    End If

    shouldSave = False
    If saveMode = "SaveAll" Or saveMode = "SavePage" Then
        shouldSave = True
    End If

    If shouldSave Then
        saveDir = CurrentProject.Path & "\QRImg\"
        If Dir(saveDir, vbDirectory) = "" Then MkDir saveDir
        fullPath = saveDir & barcodeType & "_" & txt.Value & ".bmp"
    Else
        fullPath = ""
    End If

    If LCase(barcodeType) = "qr" Then
        Call drawQuickResponseToImage(txt, img, savePath:=fullPath)
    ElseIf LCase(barcodeType) = "code128" Then
        Call drawCode128(txt, img, , bVertical, savePath:=fullPath)
    End If
End Sub

• الإستدعاءات في الأزرار أصبحت :-

 

Private Sub cmdOpenWNavSave_Click()
    DoCmd.OpenReport "rpt_BG_img_Barcode", acViewPreview, , , , "SavePage"
End Sub

Private Sub cmdOpenWOSave_Click()
    DoCmd.OpenReport "rpt_BG_img_Barcode", acViewPreview, , , , "NoSave"
End Sub

Private Sub cmdOpenWSave_Click()
    DoCmd.OpenReport "rpt_BG_img_Barcode", acViewPreview, , , , "SaveAll"
End Sub

Private Sub cmdSave_Click()
    DoCmd.OpenReport "rpt_BG_img_Barcode", acViewPreview, , , acHidden, "SaveAll"
    DoCmd.Close acReport, "rpt_BG_img_Barcode", acSaveNo
    MsgBox "بنجاح QRImg تم توليد وحفظ جميع الصور في مجلد", vbInformation + vbMsgBoxRight, ""
End Sub

• وفي التقرير أصبحت التمرير كالآتي :-

Private Sub Report_Open(Cancel As Integer)
    On Error Resume Next
    If Nz(Me.OpenArgs, "") = "SaveAll" Then
        Me.TxtPages.ControlSource = "=[Pages]"
    Else
        Me.TxtPages.ControlSource = ""
    End If
    On Error GoTo 0
End Sub

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

أتمنى أن يلبي ها التعديل المطلوب . طبعاً بالإستعانة بنموذجك أخي منتصر 😉 .

 

 

 

QR_Barcode - 5.accdb

[jjafferr]

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

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

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

شكرا جزيلا

لاحظت ، هذه المرة تم تعبئة كائن الصورة بخطوط اثخن.

انا استخدم قراءة الباركود من الشاشة بواسطة الموبايل فقط للتأكد ان القيمة صحيحة ،

وللتأكد النهائي ، فاني ارسلها لأحد المؤسسات حتى يطبعوها على الهوية البلاستيك بأبعادها الحقيقية والباركود بالحجم المناسب ، ثم نقارن حجم النتيجة الحالية بحجم النتيجة الاصلية التي لدينا ، والاهم هو نتائج سرعة قراءة الباركود. طبعنا حسب كود مرفقك السابق والنتيجة كانت ممتازة ، وسنطبع اعتقد غدا ان شاء الله نتائج هذه المرفق QR_Barcode-3 ان شاء الله واوافيك بالنتيجة

[jjafferr]

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

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

انا اجرب قبل ان اضع رد 🙂

عندنا كائن الصورة في التقرير والذي به يمكن عمل تعديل الخاصية كما تفضلت ، ولكن هذا يعتمد 100% على الصورة نفسها ، ولكن هذه المسافة البيضاء هي جزء من الصورة ، فلا تصلح الخاصية ، ولا يمكنك محاذات الصورة في الكائن ايضا ، لان العيب في الصورة.

 

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

[jjafferr]

12 ساعات مضت, أبو عبدالله الحلوانى said:

الفكرة هو تحويل الكتابة من التقرير الي الكتابة علي كائن صورة

وعليكم السلام

البعض قد يعتقد ان طلباتي كثيرة ، ولكني اضطر لهذه الطلبات حتى يكون المنتج النهائي خالد لأعوام وعقود.

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

 

مرفقك يعطي التقرير الاول المفرد , وعند طلب الصفحة التالية حصلت على هذا الخطأ:

.

وفي الواقع هذا الخطأ يظهر اذا كان هناك اكثر من سجل

 

[jjafferr]

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

فضل اخي منتصر .. التعديلات التي تمت :-

• الدالة DrawAndSaveBarcode أصبحت :-

متابع 

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

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

ولكن هذه المسافة البيضاء هي جزء من الصورة

بالعكس لو قمت بفتح الصورة ستجدها لاتحتوي على هوامش

هذا هو الوضع عندي لصورتين في نفس التقرير لهما نفس الأبعاد (عرض وإرتفاع) ولكن الأولى قيمة الخاصية فيها هي Zoom والأخرى Stretch

(قمت بإبراز الإطار للتوضيح)

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

وبعد تعيين الهوامش على القيمة صفر ستظهر بهذا الشكل

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

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

تحياتي

[Foksh]

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

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

😮 رأيي الفني 😅!!

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

ولكنك ستشعر الفرق عندما تتعامل مع سجلات كثيرة .. فالفكرة الأساسية التي اعتمد عليها وهي rpt.Line الأساسية ستكون بطيئة جداً لو افترضنا التعامل مع تقرير يحتوي 100 سجل على سبيل المثال . ولكن في فكرة التعديل الذي قمنا به وابتعادي عن الفكرة السابقة هي باستخدام GDI APIs التي أتت من المرفق A2KPictureBoxVer35.accdb الذي شاركنه أخي جعفر .

يعني افتح التقرير rpt_BG_img_Barcode في مرفق الأستاذ عبدالله ، وانتقل لعرض الصفحة الثانية !!! ستشعر الفرق 100%

 

وختاماً لست في مكان أقييم به عمل أحد من الأساتذة والأعضاء ، فأخوكم ما زال يتعلم ولله الحمد 😇

تم تعديل يونيو 1 بواسطه Foksh
تصحيح خطأ إملائي ..

[jjafferr]

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

بالعكس لو قمت بفتح الصورة ستجدها لاتحتوي على هوامش

المعذرة اخوي منتصر ، احنا نتكلم عن النسخة في هذه المشاركة ، والتي يكون في اطرافها المساحة البيضاء الاضافية :

.

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

1. في الأخير أود التنويه إلى الحل المقدم من الأخ @أبو عبدالله الحلوانى فهو حل أراه مثيراً للإهتمام فقد توصل إلى نفس النتائج ولكن بدون إستخدام وحدة الكلاس

2. والحقيقة كنت أود معرفة الرأي الفني من الأخ @Foksh عن الفرق بين الطريقتين من حيث الأداء وإستهلاك الموارد فهو أستاذ في هذه الأمور

2. الكود كان يأخذ اطول بكثير في العمل ، وكنت اسمع صوت CPU الجهاز يصرخ  لأن جهازي قديم 🙂

1. في الواقع التقصير مني ما تطرقت للكود بعد ان حصلت على رسالة الخطأ ، فالمعذرة 😞

[jjafferr]

بما ان هذا الموضوع عبارة عن تحدي ليس بين الاعضاء فقط ، وانما بين العضو ومقدرته ايضا.

اضع المرفق من اخوي @ابوخليل والذي قام بعمله بواسطة BarcodeX.ocx في احد تقارير الاكسس ، واكد ان قارئ الباركود قام بقراءته.

حجم كائن التقرير هو 3.5 سنتيمتر ، والرقم/القيمة الموجودة في الباركود هي: 123456789abcdef123456789

 

ونحن نتأمل ان نصل الى هذه المقدرة في هذا الموضوع ان شاء الله 🙂

R_barcod24.pdf

[Foksh]

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

الباركود هي: 123456789abcdef123456789

حاولت قراءة الباركود على أكثر من تطبيق وأكثر من جهاز ، ولم استطع فعلاً قراءته ...

متابع بصمت 

[ابوخليل]

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

اضع المرفق من اخوي @ابوخليل والذي قام بعمله بواسطة BarcodeX.ocx في احد تقارير الاكسس ، واكد ان قارئ الباركود قام بقراءته.

حجم كائن التقرير هو 3.5 سنتيمتر ، والرقم/القيمة الموجودة في الباركود هي: 123456789abcdef123456789

 

نعم .. 

طبعت ملف الـــ pdf على ورقة وهذه هي النتيجة .. احببت ان اسجلها مرئية

ولكن من خارج الحاسوب من اجل تكتمل الرؤية

ملف فيديو :
 

WAM.rar

[jjafferr]

والان اليكم نتائج قراءة الباركود

نحن نستعمل خط Code39 (الخط موجود في مرفق المشاركة) لطباعة الباركود ، وبالحجم الموجود في صورة الهوية في الاسفل.

 

1.

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

عليه قمت بطلب طباعة الباركود على هوية حقيقة وقراءة الباركود بواسطة اجهزة قارئ الباركود (وليس الموبايل وتطبيقاته) ، والنتائج كانت:

1. الباركود Code128 و QR التي عملها كود اخي فادي ، تم قراءتها ويشكل سريع للقيمتين ،

2. بينما قارئ الباركود لم يقرأ قيمة Code39 الموجودة داخل المريع الاحمر (اعتقد كان يحتاج الى توسيع حقل النص الخاص به).

.

3. وبعد تجارب كثيرة ودقيقة ، اتضح ان الباركود العمودي V لا يعتمد في عمله على حجم كائن الصورة ، وإنما يعمل الخطوط حسب قيمة الباركود ، ولكن قراءته لا تكون صحيحة دائما ، بينما الباركود الافقي قراءته دائما صحيحة.

4. الباركود الافقي H يعرض نتائج صحيحة ، ولكنه مزاجي  ، تلاحظ في الصورتين في الاسفل ، قمت بزيادة عرض كائن الصورة حبه/تكه واحدة ، واذا الباركود (خطوط الباركود) اتسعت بحجم كبير

.

 

2.

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

1. تم قراءة جميع انواع الباركود للقيمة 123456

2. تم قراءة QR فقط للقيمة H12345D ، ولم يتم قراءة Code128 و Code39

.

 

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

اي ، لايزال المجال مفتوحا لبقية الاعضاء لمشاركات ومحاولات جديدة 

 

[jjafferr]

7 ساعات مضت, ابوخليل said:

طبعت ملف الـــ pdf على ورقة وهذه هي النتيجة .. احببت ان اسجلها مرئية

ولكن من خارج الحاسوب من اجل تكتمل الرؤية

ملف فيديو

.

 احسنت اخوي ابوخليل ، قطعت الشك باليقين 🙂

وبالفعل ، وكما يقول المثل العربي: ليس الخبر كالمعاينة ، او كما يقول المثل الانجليزي: الصورة تساوي ألف كلمة

[co2002co]

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

من اجمل البرامج التي استخدمتها ومازلت استخدمه

خصوصا لانشاء روابط وهو افضل من بعض المواضع المجانيه التي تضع اعلانات مجانيه

لكن المشكله الي واجهتني هو في
Code39

لا يوجد به احتواء النص 

كنت اطبع الباركود على ملصق حجم 25x50 mm

 

[jjafferr]

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

1. من اجمل البرامج التي استخدمتها ومازلت استخدمه

2. Code39 لا يوجد به احتواء النص ، كنت اطبع الباركود على ملصق حجم 25x50 mm

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

1. المعذرة ، اي برنامج تتكلم عنه 

2. شو البديل/البرنامج اللي تستعمله ، واذا ممكن تعطينا مثال للرقم الذي تطبعه على الملصق

[jjafferr]

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

 

ولازلنا في انتظار مشاركة ناجحة 100% لهذا التحدي 

 

[jjafferr]

يالله يا شباب ، الهمة الهمة 🙂

 

اهم شيء في التعامل مع الذكاء الاصطناعي هو ، توجيهه غصبا عنه بما تريد ، ولا تخليه يشطح (بالعمانية ، يتصرف على كيفه 🙂 ) ، بس يحتاج حزم في التعامل معاه

[Shivan Kurdi - شڤان کوردی]

في 24‏/5‏/2026 at 22:38, jjafferr said:

هذا التحدي هو عبارة عن جعل كود انشاء الباركود في قاعدة البيانات

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

[jjafferr]

وعليكم السلام  شڤان

لم نسمع منك منذ فترة طويلة ، فأهلا وسهلا بك بيننا مرة اخرى 🙂

 

المطلوب عمل QR و Code128 بواسطة الاكسس فقط وبدون الاستعانة ببرنامج خارجي.

 

 

[Shivan Kurdi - شڤان کوردی]

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

المطلوب عمل QR

اتفضل اليك جزء من الاجزاء 
اذا لا تريد بخلفية شفاف فقط في موديول قم بازالة هذه العلامة (') بداية هذا السطر
 

  '  Call FillRect(hDC, uRect, GetStockObject(WHITE_BRUSH))

 

QRCreate.mdb