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

[jjafferr]

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

 

اللغة العربية هي المطلوبة هنا 🙂

المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا QR code الموجود على الرابط التالي: https://sourceforge.net/projects/zint/

ويتم حفظ الصورة هنا

Data > QR_images

وعلشان كل شيء يشتغل تمام ، رجاء لا تعمل تغيير في مكان الملفات ولا المجلدات ، ولا تغيير اسمائها (طبعا تقدر تعمل اللي تريد ، بس على اساسه يجب تغيير الكود كذلك) 

 

وهي النتيجة:

 

وخلونا نشوف من يقدر يقرأ الصورة 🙂

 

-----------------------------------------------------------------------------

إضافة في يوم الثلاثاء 7 / 5 / 2019 :

 

عملت مثال يعمل على 2003 🙂

 

-----------------------------------------------------------------------------

إضافة في يوم الجمعة 14 / 6 / 2019 :

 

باركود بطاقة دخول الطائرة (Boarding card) وهي من نوع PDF417

 

 

اختار الحقول اللي تريدها تظهر في QR code بإختيار مربع صح/خطأ :

.

والنتيجة:

.

و باركود 128 (ويمكن عمل اي نوع من انواع الباركود)

.

والتقرير (وبعد اذن اخي محمد سلامه ، فقد استعملت الصورة التي استعملها في مثاله 🙂 ) 

.

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

 

وهذا الكود مضافا اليه عمل الباركود العادي :

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
    Shell_n_Wait Command_Line, vbHide
    
    
    '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
    Shell_n_Wait Command_Line, vbHide
    
    
    '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
    Shell_n_Wait Command_Line, vbHide
    
End Sub

 

-----------------------------------------------------------------------------

إضافة في يوم الجمعة 22 / 6 / 2019 :

 

تم عمل VCard QR ليخزن معلومات الشخص مباشرة في الموبايل 🙂

.

وبإستخدام برامج الموبايل والتي تقرأ QR Code ، يمكنك حفظ معلومات VCard QR مباشرة في عناوين الموبايل 🙂

 

البرنامج zint الموجود في المرفق ، فيه امكانية عمل عدة انواع من QR والباركودات ، ولكن كل نوع من هذه الانواع له صيغة خاصة في عمله ، فمثلا كود VCArd QR هو:

Function Add_Items()

    Dim VCard_Text As String
    
    'clear field
    VCard_Text = ""
        
    VCard_Text = "BEGIN:VCARD" & vbCrLf
    VCard_Text = VCard_Text & "VERSION:3.0" & vbCrLf
    VCard_Text = VCard_Text & "N:" & Me.[Family Name] & ";" & Me.[Given Name] & ";" & Me.[Additional Name] & ";" & Me.[Name Prefix] & ";" & vbCrLf
    VCard_Text = VCard_Text & "FN:" & Me![Name] & vbCrLf
    VCard_Text = VCard_Text & "ORG:" & Me.[Organization 1] & vbCrLf
    VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 1 - Type] & ",VOICE:" & Me.[Phone 1 - Value] & vbCrLf
    VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 2 - Type] & ",VOICE:" & Me.[Phone 2 - Value] & vbCrLf
    VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 3 - Type] & ",VOICE:" & Me.[Phone 3 - Value] & vbCrLf
    VCard_Text = VCard_Text & "ADR;:" & ";;" & Me.[Address 1] & ";;;;" & vbCrLf
    VCard_Text = VCard_Text & "BDAY:" & Me.[Birthday] & vbCrLf
    VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 1 - Type] & ":" & Me.[E-mail 1 - Value] & vbCrLf
    VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 2 - Type] & ":" & Me.[E-mail 2 - Value] & vbCrLf
    VCard_Text = VCard_Text & "NOTE:" & Me.Notes & vbCrLf
    VCard_Text = VCard_Text & "URL:" & Me.[Website 1] & vbCrLf
    VCard_Text = VCard_Text & "END:VCARD"
    
    Add_Items = VCard_Text


End Function

 

والذي يختلف عن PDF417 والذي يختلف عن غيره.

 

المرفق في ملفين بصيغة txt والذي فيهما جميع الاوامر التي يمكن استعمالها لعمل مختلف انواع الباركود 🙂

 

-----------------------------------------------------------------------------

إضافة في يوم السبت 2 / 11 / 2019 :

 

هنا مثال لعمل بطاقة عمل ID.zip ، بأصغر حجم QR code  (رجاء ابقاء حجمه ، فقد توصلت الى هذا الحجم والكود بعد محاولات ساعات طويلة) :

.

وهذا هو QR code

.

اما تفاصيل عمل البطاقات ، فهذا الرابط فيه تفاصيل كاملة:

.

 

جعفر

ملاحظة: 

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

2. الـ api التي تنتظر إنتهاء الامر ، ثم تنتقل للسطر التالي في الكود اسمها ShellWait ،

هذه لا تتعامل مع Unicode / utf-8 / ومنها الحروف العربية بطريقة صحيحة : http://access.mvps.org/access/api/api0004.htm

بينما هذه تمام : https://github.com/xxdoc/vb6-Shell-Wait/blob/master/Shell %26 Wait v2/modShellWait.bas

 

 

 

 

zint QR 3.zip

ID.zip

Shell_n_Wait_2021-12-13.txt.zip

[essam rabea]

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

تم تعديل مايو 4, 2019 بواسطه essam rabea

[ابوآمنة]

أقول باختصار:

أنت كنز عظيم للموقع اخي @jjafferr

وبارك الله فيك وزادك الله من فضله

[wael_rafat]

يا سلام عليك يا فنااااان

سلمت يداك وزادك الله من علمه وفضله ،،،

[kanory]

ماشاء الله تبارك الله ...... انتظرنا وحصلنا على ما نريد .... بارك الله فيك ....

[حربي العنزي]

استاذي الفاضل جعفر ربي يحفظك يارب ورمضان كريم عليك اعاده الله جلا وعلى عليك وعلى عائلتك الكريمة بالصحة والعافية والخير والبركة يارب 

ممكن البرنامج على اوفيس 2003 

اكون ممنون منك يا طيب 

[jjafferr]

السلام عليكم :)

 

شكرا على ردودكم ، وتمت اضافة مثال متكامل :)

 

جعفر

[محمد سلامة]

بارك الله فيك استاذ جعفر 

تحياتي

[سلمان الشهراني]

مشالله تبارك الله

[ابو محمد2]

السلام عليكم 

مبدع دائما استاذ جعفر  ---  بارك الله فيك 

[ابو جودي]

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

تحية عطرة

انا جربت قراءة الصورة المرفقة لـ  QR code

تمام قرأ العربي زى الفل 

انا جربت البرنامج قرء الانجليزى تمام اما العربى للاسف لم يقرأه

هذه نتيجة تجربتـــــى  

 

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

[jjafferr]

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

 

شكرا يا شباب على رودكم 🙂

 

المرفق الثاني هو بصيغة mdb ، كما اشرت اليه في الموضوع 🙂

 

 

ابو جودي 🙂

 

علشان يكتب لك البرنامج بالعربي ، لازم تخبره بأن يستعمل:

 eci = 24   |  Windows-1256 - Arabic

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

 

والمرفق فيه ملفين لتوضيح جميع الاوامر لعمل المطلوب 🙂

 

جعفر

[jjafferr]

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

 

كنت بين المطارات ، وشفت باركود خاص على تذاكر دخول الطائرة ، فقلت في نفسي ، هل ممكن نعمله !!

اتضح انه من نوع PDF417 ، واذا ببرنامجنا يقوم بعمله كذلك 🙂

 

واضفتها على البرنامج في اول مشاركة 🙂

 

جعفر

[ابو جودي]

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

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

 

كنت بين المطارات ، وشفت باركود خاص على تذاكر دخول الطائرة ، فقلت في نفسي ، هل ممكن نعمله !!

اتضح انه من نوع PDF417 ، واذا ببرنامجنا يقوم بعمله كذلك 🙂

 

واضفتها على البرنامج في اول مشاركة 🙂

 

جعفر

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

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

واسمحوا لى ان اهديكم هذا التطبيق الاكثر من رائع
تطبيق pro qr barcode scanner.apk  للاندرويد

 

QR_Scanner-v2.1.9-P.zip

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

[jjafferr]

شكرا ابو جودي 🙂

[ابو جودي]

1 دقيقه مضت, jjafferr said:

شكرا ابو جودي 🙂

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

[ابو جودي]

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

 

--fg=COLOUR           Specify a foreground colour (in hex)

انا قمت بتعديل الكود بالشكل الاتى

ShellWait App_Name & " -o " & Output_File & " --rotate=0 --eci=24 --binary --barcode=55 --mode=3 --fg=2a24e7 -d  " & Output_Text

اضفت هذا

--fg=2a24e7

لون ازرق 

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

[jjafferr]

شكرا على التلوين الجميل 🙂

 

في معظم اعمالي ، اقوم بالعمل الاساسي ، واترك مجال للآخرين ان يغيروا في البرنامج ،

ولكني اعطيهم طريقة العمل 🙂

وبرامجي اعملها بطريقة تكون سهل التعديل والاضافة عليها ، وسهولة الوصول الى الكود المطلوب 🙂
 

وفي هذا الموضوع ، ومن اول مشاركة وضعت لكم الملفات المطلوبة لتقوموا بعمل التغييرات المطلوبة :

في ٥‏/٥‏/٢٠١٩ at 01:10, jjafferr said:

المرفق في ملفين بصيغة txt والذي فيهما جميع الاوامر التي يمكن استعمالها لعمل مختلف انواع الباركود 🙂

 

جعفر

 

[ابوآمنة]

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

 

في ٥‏/٥‏/٢٠١٩ at 00:10, jjafferr said:

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

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

[jjafferr]

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

 

هذا سطر حفظ الملف (انا اعطيت صورة كل نوع من الباركود اسم مختلف) ، واسم الصورة هنا  QR_code.png  :

Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "QR_code.png" & Chr(34)

 

اذا اردت حفظ الصورة برقم ID الموظف ، سيكون الكود:

Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & Me.ID & Chr(34)

 

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

وخصوصا اذا عملت تغيير في البيانات ، فالصورة القديمة لن تنفعك ، بينما طباعة هوية جديدة تعطيك جميع البيانات الجديدة 🙂

 

جعفر

[ابوآمنة]

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

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

 

هذا سطر حفظ الملف (انا اعطيت صورة كل نوع من الباركود اسم مختلف) ، واسم الصورة هنا  QR_code.png  :

Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "QR_code.png" & Chr(34)

 

اذا اردت حفظ الصورة برقم ID الموظف ، سيكون الكود:

Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & Me.ID & Chr(34)

 

جعفر

شكر على الإفادة 

أما ترى أن الصور الموظف ستكون كلها برقم واحد ألا يمكن وضع لكل صورة تقسيم 100-1 و 100-2 و 100-3

 

[jjafferr]

مو انا ما اعرف كم نوع من انواع الباركودات بتعمل لكل موظف

 

فإذا اردت ، تقدر تستعمل رقم لكل باركود ، مثل ما انت قلت ، هكذا:

الاول
Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\1_" & Me.ID & Chr(34)


والثاني
Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\2_" & Me.ID & Chr(34)

 

جعفر

[ابوآمنة]

شكرا حبيبنا جعفر لسعة صدرك 😘

[ابو جودي]

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

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

1- عند الفتح للقاعدة للمرة الاولى يتم الاتى

• انشاء مجلد رئيسى بمسار القاعدة باسم Program Files
• بتم داخله انشاء مجلد باسم Utility
  يحتوى على 
  1- zint.exe  برنامج منشئ الباركود
  2-Commandline.txt   الاوامر الخاصة بمنشئ الباركود
  3-manual.txt  دليل الاستخدام
  4-QR_&_Barcode_Reader_(Pro)_2.2.4-P.apk   برنامج ماسح الاكواد للجوالات التى تعمل بنظام الاندرويد نسخة كاملة ومحدثه
• يتم كذلك انشاء مجلد باسم  QR images
  يحتوى على
  1-  QRCode.png   صورة الباركود لهذا النوع  QR Code
  2- PDF417.png    صورة الباركود لهذا النوع   PDF 417
  3- Barcode.png   صورة الباركود لهذا النوع  Code 128

 

بخصوص برنامج الجوال لنظام الاندرويد  QR_&_Barcode_Reader_(Pro)_2.2.4-P.apk

هذه الصور توضح الانواع التى يستطيع مسحها وقراءة بياناتها على الجوال

كما ان للبرنامج مميزات رائعة

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

 



 



QR-Code_Generator.zip

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

[ابوآمنة]

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

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

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

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

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