اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


jjafferr

الردود الموصى بها

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

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

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

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

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

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

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

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

 

:fff::wub: تحت امرك

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

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

 

تم تعديل بواسطه ابا جودى
  • Thanks 1
رابط هذا التعليق
شارك

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

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

 

جعفر

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

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

رابط هذا التعليق
شارك

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

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

اصبح يعمل

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

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

 

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

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

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

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

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

 

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

QR-Code Generator v2.zip

تم تعديل بواسطه ابا جودى
تعديل الكود داخل المرفق
  • Like 1
رابط هذا التعليق
شارك

QR-Code_Generator_v2.zip

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

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

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

QR-Code_Generator_v2.zip

تم تعديل بواسطه ابا جودى
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

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

أشكرك

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

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

رابط هذا التعليق
شارك

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

 

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

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

VCard_QR.png.0c6143e39b83b51caa2cfa93a3164c4d.png

 

جعفر

  • Haha 2
رابط هذا التعليق
شارك

منذ ساعه, jjafferr said:

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

 

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

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

VCard_QR.png.0c6143e39b83b51caa2cfa93a3164c4d.png

 

جعفر

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

 

VCard_QR.png

QR_code.png

PDF_417.png

رابط هذا التعليق
شارك

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

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

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

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

001.jpg.bc03fe436802d0abe76fc57aebb9fd5e.jpg

  • Thanks 1
رابط هذا التعليق
شارك

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

 

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

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

image.png.1299d85d880b783fcefc2b7fa3ffbc0e.png

.

image.png.8cd6fd61825ebbf537eb5a2a347c299a.png

.

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

image.png.66afa79f4e81bbbe8cfac56dc3a3aec2.png

.

image.png.34e14681f7f88ddfe269b7fbe3ec7cd0.png

.

 

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

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

هذه النتيجة:

image.png.88c4d3a831fb86d80ce1f25a17e36c5a.png

.

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

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

image.png.0e1dbfa7a4d029be9d5aa7f3c75e2856.png

.

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

 

جعفر

رابط هذا التعليق
شارك

اقتباس

 

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

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

 

 

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

تم تعديل بواسطه ابا جودى
رابط هذا التعليق
شارك

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

 

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 :

image.png.031b46ef5f9f11595439f3ee3434b2b2.png

.

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

image.png.61dc4dba3d5eff768fd661df2a36c626.png

.

3.

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

image.png.8a8699d96f13041da39624e06cd575c2.png

.

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
"

 

رابط هذا التعليق
شارك

تجربة جديدة واللغة بحوار الساعة كانت 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

QR_code.png

تم تعديل بواسطه ابا جودى
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information