عرض مشاركة واحدة
  #1  
قديم 05-07-2021, 01:30 PM
الصورة الرمزية admin
admin 
✯ ادارة المنتدى ✯
 
تاريخ التسجيل: Mar 2021
الدولة: مصر
المشاركات: 724
معدل تقييم المستوى: 10
admin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to behold


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

 

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


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

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

اللغة العربية هي المطلوبة هنا 🙂
المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا QR code ،
ويتم حفظ الصورة هنا
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-W...b/master/Shell %26 Wait v2/modShellWait.bas



الموضوع الأصلي : كارنيهات باستخدام باركود ماتركس QR code || الكاتب : admin || المصدر : منتدى مجمع التطوير

 

الملفات المرفقة
نوع الملف: zip ID.zip‏ (1.42 ميجابايت, المشاهدات 0)
نوع الملف: zip zint QR 3.zip‏ (611.2 كيلوبايت, المشاهدات 0)

التوقيع

رد مع اقتباس