المساعدة فى إنشاء QR code عربى

[abomnh]

عباقرة قسم الأكسيس الأفاضل
السلام عليكم ورحمة الله وبركاته
البرنامج المرفق مصمم على Office 2003 وبه تقرير يسمى ( اثبات قيد ) مصدره استعلام يسمى ( Reports ) 
التقرير به جزء مخصص لإظهار QR Code لكل طالب ومصدره حقل ( Barcod ) الموجود باستعلام ( Reports ) 
حاولت وبحثت كثيرا لادراج QR Code لكل طالب بالتقرير يقرأ اللغة العربية ويظهر بيانات حقل  ( Barcod ) عند قراءة الحقل بالموبايل أو قارئ الباركود
ولم استطع الوصول لصيغة QR Code يقرا اللغة العربية ويكون مفعل بشكل دائم وليس تجريبى او لفترة معينة
المطلوب
المساعدة فى إنشاء QR Code فى نفس مكان الـ QR Code يقرأ اللغة العربية ويقبل اضافة حقول أخرى لحقل ( Barcod ) ويكون مفعل بشكل دائم وليس تجريبى او لفترة معينة عن طريق وحدة نمطية او ما شابه
مع إمكانية تطبيق نفس الفكرة على تقارير أخري بنفس البرنامج
مع خالص تحياتى لحضراتكم جميعا

 

QR Code.mdb

[ابو البشر]

اقرأ هذا الموضوع .....

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

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

 

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

المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا 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 611.23 kB · 1,035 downloads

ID.zip 1.42 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 921 downloads

Shell_n_Wait_2021-12-13.txt.zip 9.57 kB · 301 downloads

 

[abomnh]

حاولت الاستفادة من الفكرة الموجودة به وللأسف لم اتمكن

[abomnh]

https://www.officena.net/ib/topic/120234-المساعدة-فى-إنشاء-qr-code-عربى/?do=findComment&comment=723913

اتمنى عمل QR Code بنفس طريقة الرابط المرقق 
واتمنى فيمن يجد فى نفسة القدرة على المساعدة ان يبادر الى تقديمها 
وجزاكم الله خيرا مقدما

[Eng.Qassim]

طيب شوف هذا الموضوع لاستاذنا صالح حمادي 

 

[abomnh]

جربته بالفعل واشتغل معايا تمام فى النصوص الخاصة باللغة الإنجليزية ( فقط )
لكن لمدة 15 يوم فقط
البرنامج المرفق والخاص بتوليد الـ Qrcode نسخة ( Trial ) غير مجانية ويتوجب شراؤها بعد المدة المحددة كفترة مجانية
والمطلوب Qrcode دائم

تم تعديل أغسطس 1, 2023 بواسطه abomnh