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

admin

عضو إداري
ادارة المنتدى

المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا QR code ،
ويتم حفظ الصورة هنا
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
تم عمل 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


قام بنشر مايو 4, 2019

السلام عليكم

اللغة العربية هي المطلوبة هنا
المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا QR code ،
ويتم حفظ الصورة هنا
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

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

وهذا الكود مضافا اليه عمل الباركود العادي :
كود:
[LEFT][LEFT]   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 
[/LEFT]
[/LEFT]


-----------------------------------------------------------------------------
إضافة في يوم الجمعة 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

 

المرفقات

  • ID.zip
    1.4 MB · المشاهدات: 9
  • zint QR 3.zip
    611.2 KB · المشاهدات: 9

ابن الوليد

مشرف برامج مايكروسوفت
الاشراف التقنى

مشروع رائع تحياتي لك يا غالى
 

أعلى