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

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


jjafferr

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

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

 

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

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

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

Data > QR_images

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

 

وهي النتيجة:

QR_Test.png.144e6281ae2bb2fd9590795f95ff8b18.png

 

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

 

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

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

 

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

QR_code.png.05d645d4d3ee7fa4a2c4b6cbc6dc992e.png

 

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

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

 

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

 

PDF_417.png.c13be43fb6e1e7b767afda48fcdc14b8.png

 

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

Form.jpg.335378000dbd6917d8ea0872f9b95b17.jpg

.

والنتيجة:

QR_code.png.05d645d4d3ee7fa4a2c4b6cbc6dc992e.png

.

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

Barcode.png.06be00b6b5374807210fadd1c98dc8e4.png

.

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

Report.jpg.4ba14681e6f96c392f81136cfbe65d48.jpg

.

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

 

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

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 ليخزن معلومات الشخص مباشرة في الموبايل 🙂

image.png.07b31dfc4d4cbd2239ecccd46f2fb77a.png

.

وبإستخدام برامج الموبايل والتي تقرأ 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  (رجاء ابقاء حجمه ، فقد توصلت الى هذا الحجم والكود بعد محاولات ساعات طويلة) :

Clipboard00.jpg.89f1995300c05845404cf4ed9a8b57e3.jpg

Clipboard01.jpg.6f524354a51fc4639c668e5325aebf15.jpg

Clipboard02.jpg.ece441d6c6c4d07ca85dfafd09d5e227.jpg

Clipboard03.jpg.1ee536eb120969fbf23c6327dc802a92.jpg

.

وهذا هو QR code

QR_code.png.d69fb731396dd3930969c933366c0b16.png

Screenshot_20191102_211620.jpg.92e3b3a058d1759810b2bf489bc52e48.jpg

.

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

.

 

جعفر

ملاحظة: 

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

  • Like 20
  • Thanks 8
رابط هذا التعليق
شارك

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

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

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

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

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

تحية عطرة

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

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

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

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

 

QR_code.png

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

  • 2 weeks later...

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

 

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

 

المرفق الثاني هو بصيغة 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

 

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

 

جعفر

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

  • 2 weeks later...

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

 

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

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

PDF_417.png.f6ce76b8e8e5dc7b26d2a1e731ea9bce.png

 

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

 

جعفر

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

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

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

 

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

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

PDF_417.png.f6ce76b8e8e5dc7b26d2a1e731ea9bce.png

 

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

 

جعفر

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

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

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

 

QR_Scanner-v2.1.9-P.zip

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

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

لون ازرق :wink2:

PDF_417.png

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

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

 

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

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

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

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

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

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

 

جعفر

 

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

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

 

في ٥‏/٥‏/٢٠١٩ at 00:10, 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)

 

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

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

 

جعفر

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

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

 

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

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

 

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

الاول
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)

 

جعفر

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

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

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

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:

 

 001.jpg.16451d9cfe93f257070869f570909900.jpg

002.jpg.ddfc89c97d2e5376388f02f23564679b.jpg

 

 003.jpg.1a0329fed7bf928e0dbc77f18531c31e.jpg

QR-Code_Generator.zip

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

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

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

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

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

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

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

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