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

[ابو جودي]

  في 17‏/6‏/2019 at 02:13, saleh204 said:

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

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

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

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

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

Expand  

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

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

 

 تحت امرك

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

 

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

[ابو جودي]

  في 17‏/6‏/2019 at 16:12, jjafferr said:

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

 

جعفر

Expand  

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

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

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

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

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

كود المعلم 

الاسم

الرقم القومي

الدرجة

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

رقم الهاتف

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

[الوسيط]

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

[ابو جودي]

نعم ممكن

 

[ابو جودي]

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

[ابو جودي]

  في 17‏/6‏/2019 at 02:13, ابوآمنة said:

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

Expand  

اصبح يعمل

  في 15‏/6‏/2019 at 15:13, ابوآمنة said:

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

 

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

Expand  

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

  في 19‏/6‏/2019 at 05:03, الوسيط said:

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

Expand  

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

 

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

QR-Code Generator v2.zipFetching info...

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

[الوسيط]

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

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

[ابو جودي]

QR-Code_Generator_v2.zipFetching info...

  في 20‏/6‏/2019 at 13:21, الوسيط said:

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

Expand  

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

QR-Code_Generator_v2.zipFetching info...

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

[الوسيط]

  في 20‏/6‏/2019 at 14:03, ابا جودى 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

Expand  

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

[ابو جودي]

  في 20‏/6‏/2019 at 21:01, الوسيط said:

أشكرك

Expand  

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

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

[jjafferr]

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

 

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

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

 

جعفر

[ابو جودي]

  في 22‏/6‏/2019 at 12:29, jjafferr said:

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

 

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

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

 

جعفر

Expand  

استاذى الجليل ومعلمى القدير استاذ @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

 

Expand  

 

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

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

[jjafferr]

  في 22‏/6‏/2019 at 18:22, ابا جودى said:

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

Expand  

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

[ابو جودي]

نعم

 

طيب ممكن اجرب عمل ريستارت للجهاز ربما لابد من عمل ريستارت بعد الكود الذى تم ادخاله على شاشة 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 بواسطه ابا جودى