




المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا QR code ،
ويتم حفظ الصورة هنا
Data > QR_images
وعلشان كل شيء يشتغل تمام ، رجاء لا تعمل تغيير في مكان الملفات ولا المجلدات ، ولا تغيير اسمائها (طبعا تقدر تعمل اللي تريد ، بس على اساسه يجب تغيير الكود كذلك)
وهي النتيجة:
وخلونا نشوف من يقدر يقرأ الصورة
-----------------------------------------------------------------------------
إضافة في يوم الثلاثاء 7 / 5 / 2019 :
عملت مثال يعمل على 2003
-----------------------------------------------------------------------------
إضافة في يوم الجمعة 14 / 6 / 2019 :
باركود بطاقة دخول الطائرة (Boarding card) وهي من نوع PDF417
اختار الحقول اللي تريدها تظهر في QR code بإختيار مربع صح/خطأ :
.
والنتيجة:
.
و باركود 128 (ويمكن عمل اي نوع من انواع الباركود)
.
والتقرير (وبعد اذن اخي محمد سلامه ، فقد استعملت الصورة التي استعملها في مثاله )
.
وبهذه الطريقة نرى اننا لا نحتاج ان نحفظ صورة لكل سجل (واذا اردنا ذلك ، فنعمل تعديل في الكود ليقوم بذلك).
وهذا الكود مضافا اليه عمل الباركود العادي :
ويتم حفظ الصورة هنا
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 هو:
قام بنشر مايو 4, 2019
السلام عليكم
اللغة العربية هي المطلوبة هنا
المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا QR code ،
ويتم حفظ الصورة هنا
Data > QR_images
وعلشان كل شيء يشتغل تمام ، رجاء لا تعمل تغيير في مكان الملفات ولا المجلدات ، ولا تغيير اسمائها (طبعا تقدر تعمل اللي تريد ، بس على اساسه يجب تغيير الكود كذلك)
وهي النتيجة:
وخلونا نشوف من يقدر يقرأ الصورة
-----------------------------------------------------------------------------
إضافة في يوم الثلاثاء 7 / 5 / 2019 :
عملت مثال يعمل على 2003
-----------------------------------------------------------------------------
إضافة في يوم الجمعة 14 / 6 / 2019 :
باركود بطاقة دخول الطائرة (Boarding card) وهي من نوع PDF417
اختار الحقول اللي تريدها تظهر في QR code بإختيار مربع صح/خطأ :
.
والنتيجة:
.
و باركود 128 (ويمكن عمل اي نوع من انواع الباركود)
.
والتقرير (وبعد اذن اخي محمد سلامه ، فقد استعملت الصورة التي استعملها في مثاله )
.
وبهذه الطريقة نرى اننا لا نحتاج ان نحفظ صورة لكل سجل (واذا اردنا ذلك ، فنعمل تعديل في الكود ليقوم بذلك).
وهذا الكود مضافا اليه عمل الباركود العادي :

.
وبإستخدام برامج الموبايل والتي تقرأ 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 (ويمكن عمل اي نوع من انواع الباركود)

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

.
وبهذه الطريقة نرى اننا لا نحتاج ان نحفظ صورة لكل سجل (واذا اردنا ذلك ، فنعمل تعديل في الكود ليقوم بذلك).
وهذا الكود مضافا اليه عمل الباركود العادي :
كود:
[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]
-----------------------------------------------------------------------------
إضافة في يوم الجمعة 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