كارنيهات باستخدام باركود ماتركس - QR code

[ابو جودي]

16 دقائق مضت, saleh204 said:

شكراً أبا جودى لمسات رائعة تشكر عليها .

أشرت في ردك الأخير  لموضوع ( احمل ملفاتك الهامة بقاعدة البيانات ) للأستاذ الجليل / جعفر

هل أرفقت لنا الطريقة أو المشاركة كيف نستفيد منها ؟

وكذا زر "جديد" في النموذج لا يعمل .

وأجدد شكري لك أخي أبا جودى وللزملاء الكرام.

زر "جديد" في النموذج لا يعمل     >>------->  لابد من اننى نسيت وضع الكود اعتذر

بالنسبة للموضع الاكثر من رائع لاستاذنا الجليل ومعلمنا المبجل الاستاذ @jjafferr
تجده هنا

 

 تحت امرك

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

 

تم تعديل يونيو 17, 2019 بواسطه ابا جودى

[ابو جودي]

1 ساعه مضت, jjafferr said:

ماشاءالله عليك اخوي ابوجودي ، فنان 🙂

 

جعفر

كل ذلك يرجع الفضل فيه الى الله سبحانه وتعالى اولا ثم لحضرتكم
كل ذلك من جعبتكم استاذى الجليل ومعلمى المبجل لم افعل شئ سوى النقل عنكم جزاكم الله خيرا 

فكل ما وظفته فى المنتج هو نتاج عطائكم المستمر الذى لا يجف ولا ينضب 

[رضاعيدحسبو]

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

هل جعل الاختيارات التي تظهر بالباركود هي

كود المعلم 

الاسم

الرقم القومي

الدرجة

تاريخ التعيين

رقم الهاتف

ولكم جزيل الشكر

[الوسيط]

هل يمكن عمل أكثر من كارنيه دفعة واحدة؟

[ابو جودي]

نعم ممكن

 

[ابو جودي]

https://www.officena.net/ib/topic/90906-كارنيهات-باستخدام-باركود-ماتركس-qr-code/?do=findComment&comment=574771

[ابو جودي]

في ١٧‏/٦‏/٢٠١٩ at 04:13, ابوآمنة said:

وكذا زر "جديد" في النموذج لا يعمل .

اصبح يعمل

في ١٥‏/٦‏/٢٠١٩ at 17:13, ابوآمنة said:

شكراً جزيلاً أستاذي ومعلمي جعفر ابدعت فأحسنت فبوركت .

 

ما هو التعديل؟

التعديل لكل على حسب الـ ID

في ١٩‏/٦‏/٢٠١٩ at 07:03, الوسيط said:

هل يمكن عمل أكثر من كارنيه دفعة واحدة؟

التعديل باضافة تقرير للكل 

 

تم تعديل المرفق

QR-Code Generator v2.zip

تم تعديل يونيو 20, 2019 بواسطه ابا جودى
تعديل الكود داخل المرفق

[الوسيط]

اواجه بعض المشاكل فى المرفق الأخير

تم تعديل يونيو 20, 2019 بواسطه الوسيط

[ابو جودي]

QR-Code_Generator_v2.zip

12 ساعات مضت, الوسيط said:

اواجه بعض المشاكل فى المرفق الأخير

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

QR-Code_Generator_v2.zip

تم تعديل يونيو 21, 2019 بواسطه ابا جودى

[الوسيط]

6 ساعات مضت, ابا جودى said:

QR-Code_Generator_v2.zip 4 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

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

QR-Code_Generator_v2.zip 4 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

أشكرك بشدة أستاذنا الفاضل ابا جودى

[ابو جودي]

5 ساعات مضت, الوسيط said:

أشكرك

الحمد لله على ما يبدو نال مرفقنا الاخير الاستحسان

الشكر لله سبحانه وتعالى اولا ثم لاستاذى الجليل و معلمى القدير المبجل و والدى الحبيب الاستاذ @jjafferr  ما انا إلا ناقل عن معلمى العظيم

[jjafferr]

السلام عليكم 🙂

 

وبطلب من البشمهندس ابا جودي ، تم وضع مثال لعمل VCard QR ، لإضافة معلومات الشخص مباشرة في عناوين الموبايل 🙂

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

 

جعفر

[ابو جودي]

منذ ساعه, jjafferr said:

السلام عليكم 🙂

 

وبطلب من البشمهندس ابا جودي ، تم وضع مثال لعمل VCard QR ، لإضافة معلومات الشخص مباشرة في عناوين الموبايل 🙂

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

 

جعفر

استاذى الجليل ومعلمى القدير استاذ @jjafferr 

كل كلمات الشكـــــــــــــــــر لا تكفيك والله جزاكم الله خيرا وشكر الله لكم واحسن اليكم 

[ابو جودي]

انا صار معى شئ غريب

لا يتم انشاء رمز الباركود باللغة العربية ابحث من الامس على الانترنت عن سبب المشكلة دون جدوى
 

حتى اننى شككت بالويندوز
وقمت بعمل فورمات للقطاع  ( C ) واعادة تنصيب الويندوز والاوفيس من جديد

وكانت الصدمة كذلك

افيدونى الله يرضى عليكم ما العمل وكيف السبيل لحل هذه المشكلة

 

[ابو جودي]

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

شككت ايضا بالجوال او بالتطبيق الذى يقرأ الرمز وبحثت و وجدت هذا الموقع

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

مما قطع الشك باليقين ان المشكلة من منشئ الرموز نفسه

[jjafferr]

مشكلة ان اللغة العربية تظهر بحروف غريبة !!

 

هذه مشكلة في شيء يسمى

unicode او utf-8

 

اي قراءة الحروف الغير انجليزية.

 

 

1. برنامج zint الذي نستعمله في عمل QR :

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

 eci = 24   |  Windows-1256 - Arabic

ShellWait App_Name & " -o " & Output_File & " --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d " & Output_Text

 

2. بعض الاوقات تحتاج الى تغيير Page Code برنامج الـ cmd ، وذلك لأننا نستعمل امر الـ Shell ،

لذا ، افتح برنامج cmd ، ثم اكتب فيه: chcp 720 ، ثم اضغط على الزر Enter

.

.

وللتأكد من اخذ Page code ، اعمل التالي:

.

.

 

3. يجب استعمال البرامج/المواقع التي تقرا/تكتب unicode او utf-8

ففي الوقت الذي يعطينا الموقع: https://online-barcode-reader.inliteresearch.com/

هذه النتيجة:

.

نرى ان الموقع: https://zxing.org/w/decode.jspx

يعطينا هذه النتيجة:

.

وذلك بإستعمال نفس صورة الـ QR التي عملها برنامجنا 🙂

 

جعفر

[jjafferr]

 

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

[ابو جودي]

اقتباس

 

2. بعض الاوقات تحتاج الى تغيير Page Code برنامج الـ cmd ، وذلك لأننا نستعمل امر الـ Shell ،

لذا ، افتح برنامج cmd ، ثم اكتب فيه: chcp 720 ، ثم اضغط على الزر Enter

 

 

فعلت الخطوات دون اى تغير للعلم انا عندى الان ويندوز 7   >--->>   64 بيت

تم تعديل يونيو 22, 2019 بواسطه ابا جودى

[jjafferr]

2 دقائق مضت, ابا جودى said:

فعلت الخطوات دون اى تغير

الموقع اللي اعطيتك ، هل جربت ان ترفع الصورة فيه؟

[ابو جودي]

نعم

 

طيب ممكن اجرب عمل ريستارت للجهاز ربما لابد من عمل ريستارت بعد الكود الذى تم ادخاله على شاشة Cmd

[ابو جودي]

بعد الريستارت نفس النتيحة بدون اى تغيير 

 

 

 

[jjafferr]

خلينا نمشي خطوة بخطوة 🙂

 

1.

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

Private Sub Make_QR_Barcode()
'
'https://sourceforge.net/projects/zint/
'
    
    If Len(Me.str_Text & "") = 0 Then Exit Sub
        
    Dim App_Name As String
    Dim Output_File As String
    Dim Output_Text As String
    Dim Encoding As String
    Dim Command_Line As String
    
    App_Name = Chr(34) & Application.CurrentProject.Path & "\Data\zint.exe" & Chr(34)
    Output_Text = Chr(34) & Me.str_Text & Chr(34)
    
    'QR code
    Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "QR_code.png" & Chr(34)
    Command_Line = App_Name & " -o " & Output_File & " --rotate=0 --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d " & Output_Text
    Debug.Print Command_Line
    ShellWait Command_Line
    
    
    'Barcode 128
    Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "Barcode.png" & Chr(34)
    Command_Line = App_Name & " -o " & Output_File & " --rotate=0 -d " & Me.ID
    'Debug.Print Command_Line
    ShellWait Command_Line
    
    
    'PDF 417
    Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "PDF_417.png" & Chr(34)
    Command_Line = App_Name & " -o " & Output_File & " --rotate=0 --eci=24 --binary --barcode=55 --mode=3 -d " & Output_Text
    'Debug.Print Command_Line
    ShellWait Command_Line
    
End Sub

 

2.

اعمل معاينة في النموذج ، وبعدين ارجع الى VBA ، وفي الاسفل ، في نافذة: immediate window :

.

والنتيجة عندي:

.

3.

تأكد بأن لغة الكمبيوتر هي العربية:

.

4.

انسخ كل شيء ، وارفقه في مشاركه لوسمحت 🙂

هذا الكود اللي عندي :

"F:\Samples\QR BarCode\4\Data\zint.exe" -o "F:\Samples\QR BarCode\4\Data\QR_images\QR_code.png" --rotate=0 --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d "احمد عبدالرحمن محمد
Ahmed Abdul Rahman Mohammed
12345633
Aministration
12345678
15-Mar-90
"

.

جعفر

[ابو جودي]

تمام

النتيجة

"C:\Users\judy\Desktop\zint QR\Data\zint.exe" -o "C:\Users\judy\Desktop\zint QR\Data\QR_images\QR_code.png" --rotate=0 --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d "احمد عبدالرحمن محمد
Ahmed Abdul Rahman Mohammed
12345633
Aministration
12345678
15/03/1990
"

 

[jjafferr]

ارفق لي صورة QR اللي عملها الكود

[ابو جودي]

تجربة جديدة واللغة بحوار الساعة كانت Eng
 

"C:\Users\judy\Desktop\zint QR\Data\zint.exe" -o "C:\Users\judy\Desktop\zint QR\Data\QR_images\QR_code.png" --rotate=0 --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d "الاستاذ جعفر
mr.jjafferr
11111111
قسم الاكسس
12121212
22/06/2019
"

 

هذه صورة التجربة رقم 2

تم تعديل يونيو 22, 2019 بواسطه ابا جودى