الرئيسية المنتدى مركز رفع الصور صفحتنا على الفيس قناة اليوتيوب صفحتنا على تويتر واتس اب قوانين المنتدى
منتدى مجمع التطوير    

العودة   منتدى مجمع التطوير > المنتدى المتخصص > لغـات البرمجـة والمشـاريع الجـاهزة > برامج Microsoft Office

الملاحظات

برامج Microsoft Office يهتم ببرامج الميكروسوفت اوفيس ,excel ,access, word Frontpage,powerpoint ,outlook,

آخر 10 مشاركات مواقع للحصول على باك لينكس عالية (الكاتـب : admin - آخر مشاركة : سنبول - مشاركات : 1 - المشاهدات : 1533 - الوقت: 10:19 PM - التاريخ: 09-23-2021)           »          التقليد المذموم (الكاتـب : admin - مشاركات : 0 - المشاهدات : 345 - الوقت: 06:44 PM - التاريخ: 09-06-2021)           »          الخداع (الكاتـب : admin - مشاركات : 0 - المشاهدات : 253 - الوقت: 06:43 PM - التاريخ: 09-06-2021)           »          إعلانات شركة Admaven (الكاتـب : سنبول - مشاركات : 0 - المشاهدات : 395 - الوقت: 04:20 PM - التاريخ: 08-26-2021)           »          جدار روحك يريد أن ينقض (الكاتـب : admin - مشاركات : 0 - المشاهدات : 442 - الوقت: 11:27 PM - التاريخ: 08-23-2021)           »          سعر الذهب في مصر وعالميا صباح اليوم الخميس 12 أغسطس 2021 (الكاتـب : admin - مشاركات : 0 - المشاهدات : 421 - الوقت: 02:58 PM - التاريخ: 08-12-2021)           »          تأملت والدنيا (الكاتـب : admin - مشاركات : 0 - المشاهدات : 465 - الوقت: 10:54 PM - التاريخ: 08-03-2021)           »          وكن راضيا (الكاتـب : admin - مشاركات : 0 - المشاهدات : 446 - الوقت: 10:54 PM - التاريخ: 08-03-2021)           »          طوبا لمن عاش في هذه الدنيا غريبا (الكاتـب : admin - مشاركات : 0 - المشاهدات : 456 - الوقت: 10:53 PM - التاريخ: 08-03-2021)           »          لا تشكُ للناسِ (الكاتـب : admin - مشاركات : 0 - المشاهدات : 468 - الوقت: 10:52 PM - التاريخ: 08-03-2021)

إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
  #1  
قديم 05-07-2021, 01:30 PM
الصورة الرمزية admin
admin 
✯ ادارة المنتدى ✯
 
تاريخ التسجيل: Mar 2021
الدولة: مصر
المشاركات: 733
معدل تقييم المستوى: 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)

التوقيع

رد مع اقتباس
قديم 05-07-2021, 04:00 PM   #2
ابن الوليد
::..مشرف برامج مايكروسوفت..::
 
الصورة الرمزية ابن الوليد
 
تاريخ التسجيل: Mar 2021
الدولة: مصر
المشاركات: 160
معدل تقييم المستوى: 21
ابن الوليد is a splendid one to beholdابن الوليد is a splendid one to beholdابن الوليد is a splendid one to beholdابن الوليد is a splendid one to beholdابن الوليد is a splendid one to beholdابن الوليد is a splendid one to beholdابن الوليد is a splendid one to behold


افتراضي

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

التوقيع
ســبحان الله وبحــمده سبحان الله العــظيم
" يا حي يا قيوم ، برحمتك أستغيث ، أصلح لي شأني كله ، ولا تكلني إلى نفسي طرفة عين "
ابن الوليد غير متواجد حالياً
 
رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
[ تصميم] باركود QR Code للدخول من خلاله الى مدونتك او قناتك على اليوتيوب admin برامج Microsoft Visual 0 04-01-2021 05:09 PM
برنامج شئون الموظفين باستخدام ديف اكسبريس + تحميل السورس كود admin برامج Microsoft Visual 0 03-29-2021 05:47 PM

 

موقع ومنتديات مجمع التطوير موقع يختص بالبرمجة والبرامج المساعدة  للتصاميم والأدوات المساعدة ,مع تقديم العون والمساعدة لكل مبرمج من خلال الأقسام المحددة , كما نعرض الأعمال الجاهزة والمفتوحة المصدر. ويهتم أيضا بالتصاميم والجرافيك وبرامجها وعرض التصاميم وملحقات التصاميم والأدوات المساعدة .كما نتمنى التوفيق لنا ولكم مع أجمل تحية مقدمة منا. 

  • الرئــيســية

  • الــمنــتـدى

  • مركز الرفع

  • التسـجـيل

  • قوانين المنتدى

  • التعـلـيمـات

  • الترقيات

check pagerank

 Flag Counter

كلمة الإدارة  منتدى مجمع التطوير غير مسئول عن أي طرح من الأعضاء فتلك الموضوعات تعبر عن رأى صاحبها ومن خلال وضع قوانين وتعليمات المشاركة بالمنتدى نسعى جاهدين لتطبيق تلك التعليمات. والمنتدى أيضا غير مسئول عن أي اتفاق مالي أو تجارى بين الأعضاء وبذلك تعد هذه الصيغة إخلاء مسئولية من جانب إدارة المنتدى وفقنا ووفقكم الله لما فيه الخير
 
الساعة الآن 04:25 AM


Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
جميع الحقوق محفوظة لمجمع التطوير