jjafferr قام بنشر مايو 11, 2017 قام بنشر مايو 11, 2017 السلام عليكم ورحمة الله وبركاته الجزء الاول تم مناقشته هنا هذا الجزء رقم 2 من مشروع متكامل لتصوير الاشخاص والمستندات بإستخدام الكاميرات والماسح الضوئي (Scanner) ، والمشروع يتكون من: يعني مو بس البرامج الكبيرة تستخدم هذه التقنيات ، وإحنا بعد وهذه الاجهزة ستكون لتصوير الاشخاص والمستندات ، ان شاء الله التصوير عن طريق كاميرا هاتف اندرويد ، وتمت التجربة على هاتف اندرويد Galaxy S3 بنظام 4.4 و Huawei Mate 7 بنظام اندرويد 6 ، التصوير عن طريق WebCam ، وتمت التجربة على Logitec HD c615 ، و Creative Live (VF0610)e ، التصوير عن طريق الكامرات الكبيرة من نوع DSLR ، وتمت التجربة على Nikon D5100 او Canon Mark iii ، تطويع الماسح الضوئي لتصوير المستند/المستندات ، وحفظ المستندات الى اي مجلد ، بصيغة pdf او jpg والعمل غير مكتمل 100% ، هذا البرنامج يشتمل على الرقم 1 كذلك (وهو نفس نسخة الرابط اعلاه وبدون تغيير) ، هذا البرنامج يعتمد على البرنامج الخارجي (RobotEyez.exe) ، وهذا رابطه: https://batchloaf.wordpress.com/2011/11/27/ultra-simple-machine-vision-in-c-with-roboteyes/ وهذا كود برنامج التصوير عن طريق كاميرا Webcam: Dim cmmd As String 'how long does it take to take the picture istart = Timer 'set BE_Path Call BE_or_FE 'RobotEyez location App_Location = BE_Path & "Camera_App\WebCam\RobotEyez.exe" Save_images_to = BE_Path & "images\" 'Debug.Print App_Location iview_Folder = BE_Path & "image_App\i_view32.exe" File_Path = Save_images_to & Me.Employee_ID & ".jpg" SetCurrentDirectory Save_images_to 'cmmd = App_Location & " /devnum 1 /delay 1000 /width 1920 /height 1080 /bmp" cmmd = App_Location & " /devnum 1 /delay 1000 /width 1280 /height 720 /bmp" 'Debug.Print cmmd Call ShellWait(cmmd, vbHidden) 'convert bmp to jpg Call ShellWait(iview_Folder & " " & Save_images_to & "frame.bmp" & " /convert=" & File_Path, vbNormalFocus) 'Delete the bmp image Kill Save_images_to & "\frame.bmp" 'show the picture in the Form Me.Pic.Picture = Save_images_to & Me.Employee_ID & ".jpg" MsgBox Timer - istart . المرفق فيه جميع البرامج المطلوبة لجعل هذا البرنامج يعمل ، ولكن ، 1. المطلوب اولا معرفة حجم الصورة التي تستطيع Webcam التقاطها ، فاذا ادخلت رقم خطأ ، فستظهر لك رسالة بعدم الحصول على الصورة frame.bmp ، فرجاء تغيير هذه الارقام: width 1280 /height 720 فتجربتي على الكاميرتين كانا: Logitec HD c615 : 1920 x 1080 Creative Live (VF0610)e : 1280 x 720 وهذه قائمة بالاحجام العامة للكاميرات ، وانا انصح بالبدء بالحجم 640x480 ، وعند ظهور الصورة ، تستطيع ان تزيد الحجم بالتجربة: . 2. اذا عندك اكثر من Webcam ، مثلا تستخدم كاميرا اللابتوب واخرى خارجية ، فيجب تغيير الرقم الى 2: devnum 1 وهذا هو سطر الكود الذي يحتاج الى تغيير: cmmd = App_Location & " /devnum 1 /delay 1000 /width 1280 /height 720 /bmp" . وبما ان هذا البرنامج للتجربة ، فالرجاء ابداء ملاحظاتكم جعفر Camera_Scanner.zip 4
Shivan Rekany قام بنشر مايو 11, 2017 قام بنشر مايو 11, 2017 (معدل) فرحت لاني اول شخص ان اعمل مشارك مع مواضيعك هذا لكن حصل معي هذا ما السبب استاذي الحبيب ؟ تم تعديل مايو 11, 2017 بواسطه Shivan Rekany
jjafferr قام بنشر مايو 11, 2017 الكاتب قام بنشر مايو 11, 2017 18 دقائق مضت, jjafferr said: 1. المطلوب اولا معرفة حجم الصورة التي تستطيع Webcam التقاطها ، فاذا ادخلت رقم خطأ ، فستظهر لك رسالة بعدم الحصول على الصورة frame.bmp ، هذا السبب جعفر 1
Shivan Rekany قام بنشر مايو 11, 2017 قام بنشر مايو 11, 2017 (معدل) 19 دقائق مضت, jjafferr said: هذا السبب جعفر شكرا لك تم العمل بنجاح حسب رأيي اولا فتحت المرفق باسم RobotEyez وتم التقط صصور عند فتحه و فتحت صورة في برامج Picosmos Shows لكي اعرف حجم الصورة وعرفت ان لابتوبي بيلتقط الصور بحجم 640 * 480 للعلم لابتوبي الان هو من نوع اج بي بافيليون جي 6 وغير الارقام في ذاك السطر وتم التقط صورة و كم تلتقط صورة جديدة راح يحذف الصورة القبل لنفس الموظف اي يعني سيخلي لكل موظف صورة واحدة فقط لكن اريد اعرف ما هو الارقام اللي في الرسالة بعد التقاط الصورة وتسلم ايدك سيدي تم تعديل مايو 11, 2017 بواسطه Shivan Rekany
king5star قام بنشر مايو 11, 2017 قام بنشر مايو 11, 2017 تسلم ايدك استاذى وهذه التجربة والاب توب نوع Acer ZHG 1
Shivan Rekany قام بنشر مايو 11, 2017 قام بنشر مايو 11, 2017 يللا استاذنا @jjafferr @ابو خليل @رمهان انا اتمنى ان اشوف وجوهكم الطيب هل من الممكن ان ترفق لنا تجربتكم
jjafferr قام بنشر مايو 11, 2017 الكاتب قام بنشر مايو 11, 2017 21 دقائق مضت, Shivan Rekany said: لكن اريد اعرف ما هو الارقام اللي في الرسالة بعد التقاط الصورة الحمدلله ، التجربة كانت ناجحة ، شكرا لكم هذا الرقم هو المدة بالثواني من وقت ضغطك على زر التقاط الصورة ، إلى وقت الانتهاء من كل شيء وعرض الصورة في النموذج جعفر الحجم 640x480 هو حجم افتراضي وتستطيع ان تجرب الرقم الاكبر فالاكبر ، حسب القائمة اللي ارفقتها في المشاركة. جعفر 1
رمهان قام بنشر مايو 11, 2017 قام بنشر مايو 11, 2017 (معدل) 55 دقائق مضت, Shivan Rekany said: يللا استاذنا @jjafferr @ابو خليل @رمهان انا اتمنى ان اشوف وجوهكم الطيب هل من الممكن ان ترفق لنا تجربتكم اخي شيفان تحية لك وللاستاذ جعفر وبعد انا من يوم اشوف الاستعانة ببرنامج خارجي او مكتبات خارج الاكسس لا احب التجربة لانك لا تعلم ماذا بداخل هذه البرامج واحب ان اعمل برامجي دائما بواسطة اكسس 100% واذا خرج الموضوع عن الاكسس فاني اترك الاكسس نهائيا وانتقل لتقنية اخرى كما ان كمبيوتري هو للعمل وليس لدي صلاحية في التحميل والاعدادات وووو فاني استسمحكم العذر هذا وتقبلو تحياتي تم تعديل مايو 11, 2017 بواسطه رمهان 1
king5star قام بنشر مايو 12, 2017 قام بنشر مايو 12, 2017 منور والله يا استاذ ابو خليل ربنا يديم عليك نور وجهك . 1
ابوخليل قام بنشر مايو 12, 2017 قام بنشر مايو 12, 2017 56 دقائق مضت, king5star said: منور والله يا استاذ ابو خليل ربنا يديم عليك نور وجهك . الله ينور دربك بالايمان ، ويديم عليك نعمه ، واعتذر لتغيير الصورة 3
jjafferr قام بنشر مايو 12, 2017 الكاتب قام بنشر مايو 12, 2017 9 ساعات مضت, Shivan Rekany said: تم العمل بنجاح حسب رأيي 9 ساعات مضت, king5star said: تسلم ايدك استاذى وهذه التجربة 4 ساعات مضت, ابوخليل said: الله ينور دربك بالايمان ، ويديم عليك نعمه ، واعتذر لتغيير الصورة السلام عليكم شباب اشكركم على تأكيد ان البرنامج اشتغل ، وان شاء الله في النسخة النهائية نعمل احد اثنين ، حتى لا يدخل المستخدم في الكود اصلا: 1. نحاول نقرأ مقدرة الكاميرا في حجم الصور ، ونضع القائمة تلقائيا في مربع تحرير وسرد ، ويختار المستخدم الحجم المناسب ، 2. او نضع القائمة يدويا في مربع تحرير وسرد ولقد اجريت بعض التعديلات على اصل الموضوع ، مثل وضع رابط لصفحة البرنامج الخارجي الذي نستخدمه هنا 8 ساعات مضت, رمهان said: 1. انا من يوم اشوف الاستعانة ببرنامج خارجي او مكتبات خارج الاكسس لا احب التجربة لانك لا تعلم ماذا بداخل هذه البرامج 2. واحب ان اعمل برامجي دائما بواسطة اكسس 100% واذا خرج الموضوع عن الاكسس فاني اترك الاكسس نهائيا وانتقل لتقنية اخرى هلا والله أخوي رمهان 1. كلنا يعرف ان الاكسس برنامج قاعدة بيانات ، ونحن في الكثير من الاحيان نلوي ذراعه ليعمل اللي نريد ، لذا انا دائما اقول: اقتباس وانا أؤمن بأن للأكسس حدود معينة (مثله مثل اي برنامج) ، فانا دائما استخدم البرامج المساعدة لمساعدتي في عمل المطلوب ، مثل النجار اللي عنده جميع الادوات للاستعمال ، لهذا السبب فهو لا يستخدم المطرقة لكل اعماله ، لهذا ، انا استخدم الاداة الصح ، للعمل الصح ، وفي الكثير من الاحيان ، هذه الاداة لا تكون في برنامج الاكسس ونستخدم بشكل يومي كائنات ActiveX و OCX ومكتبات تأتي مع اجهزة ، داخل الاكسس (والتي هي برامج خارجية) ، سواء من صنع مايكروسوفت ، او من غيرها ، 2. هممم ، هنا سنواجه مشكلة في جميع البرامج تقريبا!! SQL Server ليس ببرنامج بحد ذاته ، حيث انه جداول فقط ، وتحتاج الى برنامج واجهة لجعله يشتغل ، فهل هذا معناه عدم استعماله لأنه يستعمل برنامج خارجي معه!! وفي احد المشاريع التي عملت فيها ، المبرمج كان يستعمل ASP.net ، واضطررنا الى شراء كائن ActiveX لإستعماله في البرنامج ، فهذا كذلك برنامج خارجي!! في هذه الحالة ، احنا تمام مع الاكسس على العموم ، طريقتك استاذ رمهان تعتمد على المعرفة والتدقيق والتمحيص في جميع دقائق البرنامج ، لهذا السبب ماشاءالله ، اجاباتك تكون غير مألوفة ، وبالخصوص المختصرة/المختزلة منها والسبب اني كتبت ما قلته اعلاه ، حتى يعرف الجميع الاختيارات التي لديه ، سواء بالاكسس 100% ، او بمساعدة البرامج الخارجية جعفر 3
رمهان قام بنشر مايو 12, 2017 قام بنشر مايو 12, 2017 3 ساعات مضت, jjafferr said: على العموم ، طريقتك استاذ رمهان تعتمد على المعرفة والتدقيق والتمحيص في جميع دقائق البرنامج ، لهذا السبب ماشاءالله ، اجاباتك تكون غير مألوفة ، وبالخصوص المختصرة/المختزلة منها شهادة اعتز بها ووسام على صدري تحياتي 2
النجاشي قام بنشر مايو 12, 2017 قام بنشر مايو 12, 2017 23 ساعات مضت, jjafferr said: السلام عليكم ورحمة الله وبركاته الجزء الاول تم مناقشته هنا هذا الجزء رقم 2 من مشروع متكامل لتصوير الاشخاص والمستندات بإستخدام الكاميرات والماسح الضوئي (Scanner) ، والمشروع يتكون من: يعني مو بس البرامج الكبيرة تستخدم هذه التقنيات ، وإحنا بعد وهذه الاجهزة ستكون لتصوير الاشخاص والمستندات ، ان شاء الله التصوير عن طريق كاميرا هاتف اندرويد ، وتمت التجربة على هاتف اندرويد Galaxy S3 بنظام 4.4 و Huawei Mate 7 بنظام اندرويد 6 ، التصوير عن طريق WebCam ، وتمت التجربة على Logitec HD c615 ، و Creative Live (VF0610)e ، التصوير عن طريق الكامرات الكبيرة من نوع DSLR ، وتمت التجربة على Nikon D5100 او Canon Mark iii ، تطويع الماسح الضوئي لتصوير المستند/المستندات ، وحفظ المستندات الى اي مجلد ، بصيغة pdf او jpg والعمل غير مكتمل 100% ، هذا البرنامج يشتمل على الرقم 1 كذلك (وهو نفس نسخة الرابط اعلاه وبدون تغيير) ، هذا البرنامج يعتمد على البرنامج الخارجي (RobotEyez.exe) ، وهذا رابطه: https://batchloaf.wordpress.com/2011/11/27/ultra-simple-machine-vision-in-c-with-roboteyes/ وهذا كود برنامج التصوير عن طريق كاميرا Webcam: Dim cmmd As String 'how long does it take to take the picture istart = Timer 'set BE_Path Call BE_or_FE 'RobotEyez location App_Location = BE_Path & "Camera_App\WebCam\RobotEyez.exe" Save_images_to = BE_Path & "images\" 'Debug.Print App_Location iview_Folder = BE_Path & "image_App\i_view32.exe" File_Path = Save_images_to & Me.Employee_ID & ".jpg" SetCurrentDirectory Save_images_to 'cmmd = App_Location & " /devnum 1 /delay 1000 /width 1920 /height 1080 /bmp" cmmd = App_Location & " /devnum 1 /delay 1000 /width 1280 /height 720 /bmp" 'Debug.Print cmmd Call ShellWait(cmmd, vbHidden) 'convert bmp to jpg Call ShellWait(iview_Folder & " " & Save_images_to & "frame.bmp" & " /convert=" & File_Path, vbNormalFocus) 'Delete the bmp image Kill Save_images_to & "\frame.bmp" 'show the picture in the Form Me.Pic.Picture = Save_images_to & Me.Employee_ID & ".jpg" MsgBox Timer - istart . المرفق فيه جميع البرامج المطلوبة لجعل هذا البرنامج يعمل ، ولكن ، 1. المطلوب اولا معرفة حجم الصورة التي تستطيع Webcam التقاطها ، فاذا ادخلت رقم خطأ ، فستظهر لك رسالة بعدم الحصول على الصورة frame.bmp ، فرجاء تغيير هذه الارقام: width 1280 /height 720 فتجربتي على الكاميرتين كانا: Logitec HD c615 : 1920 x 1080 Creative Live (VF0610)e : 1280 x 720 وهذه قائمة بالاحجام العامة للكاميرات ، وانا انصح بالبدء بالحجم 640x480 ، وعند ظهور الصورة ، تستطيع ان تزيد الحجم بالتجربة: . 2. اذا عندك اكثر من Webcam ، مثلا تستخدم كاميرا اللابتوب واخرى خارجية ، فيجب تغيير الرقم الى 2: devnum 1 وهذا هو سطر الكود الذي يحتاج الى تغيير: cmmd = App_Location & " /devnum 1 /delay 1000 /width 1280 /height 720 /bmp" . وبما ان هذا البرنامج للتجربة ، فالرجاء ابداء ملاحظاتكم جعفر Camera_Scanner.zip جزاك الله خير استاذنا جعفر 1
Shivan Rekany قام بنشر مايو 12, 2017 قام بنشر مايو 12, 2017 21 ساعات مضت, رمهان said: اخي شيفان تحية لك والف تحية لك سيدي 11 ساعات مضت, jjafferr said: 1. نحاول نقرأ مقدرة الكاميرا في حجم الصور ، ونضع القائمة تلقائيا في مربع تحرير وسرد ، ويختار المستخدم الحجم المناسب ، انا اتفضل هذا على النقطة الثانية كما عملت لي في موضوع هدية سكرين ريليشن 1
النجاشي قام بنشر مايو 12, 2017 قام بنشر مايو 12, 2017 حملته البرنامج ولايعمل هل المشكله الافس الذي عندي 2010 1
Shivan Rekany قام بنشر مايو 12, 2017 قام بنشر مايو 12, 2017 25 دقائق مضت, ابو زاهر said: حملته البرنامج ولايعمل هل المشكله الافس الذي عندي 2010 لا انا هم عم استخدم اوفيس 2010 هل فتحت ملف زيب رار و نقلت الملفات الى خارج زيب رار ام فتحت برامج بداخله ؟ وما هو مشكلة عندك هل مشكلتك هو مثل مشكلتي في مشاركتي الاولى ؟ 1
النجاشي قام بنشر مايو 13, 2017 قام بنشر مايو 13, 2017 16 ساعات مضت, Shivan Rekany said: لا انا هم عم استخدم اوفيس 2010 هل فتحت ملف زيب رار و نقلت الملفات الى خارج زيب رار ام فتحت برامج بداخله ؟ وما هو مشكلة عندك هل مشكلتك هو مثل مشكلتي في مشاركتي الاولى ؟ استاذي القدير @شفان ريكاني انا لم انقل الملفات كامله لسطح المكتب نقلت البرانامج الخاص بالاكسس الذي يوجد به النماذج 1
Shivan Rekany قام بنشر مايو 13, 2017 قام بنشر مايو 13, 2017 23 دقائق مضت, ابو زاهر said: استاذي القدير @شفان ريكاني انا لم انقل الملفات كامله لسطح المكتب نقلت البرانامج الخاص بالاكسس الذي يوجد به النماذج انقل كل الملفات الى مكان واحد مثلا قرص D و جرب 2
النجاشي قام بنشر مايو 13, 2017 قام بنشر مايو 13, 2017 26 دقائق مضت, Shivan Rekany said: انقل كل الملفات الى مكان واحد مثلا قرص D و جرب شكرا لك استلذي شفان نسخت الملفات للدي ضبط شكرا لك ولاخوان جميعا بالمنتدي 2
jjafferr قام بنشر مايو 13, 2017 الكاتب قام بنشر مايو 13, 2017 شكرا أخوي شفان يحتاج المرة الجاية اكتب ، للدعم الفني رجاء مراجعة الاستاذ شفان جعفر 1 1
Shivan Rekany قام بنشر مايو 13, 2017 قام بنشر مايو 13, 2017 منذ ساعه, jjafferr said: يحتاج المرة الجاية اكتب ، للدعم الفني رجاء مراجعة الاستاذ شفان 1
sandanet قام بنشر فبراير 8, 2018 قام بنشر فبراير 8, 2018 ماشاء الله على هذا الابداع .. ارجو متابعة التحديث على هذا البرنامج لكي يعمل تلقائياً مع اي نوع كاميرا بدون الحاجة الى تغيير شيء في الكود
king5star قام بنشر يوليو 7, 2018 قام بنشر يوليو 7, 2018 استاذى @جعفر إلا يمكن عرض الصورة كـ Live View قبل الالتقاط ؟ 1
النجاشي قام بنشر يوليو 7, 2018 قام بنشر يوليو 7, 2018 2 ساعات مضت, king5star said: استاذى @جعفر إلا يمكن عرض الصورة كـ Live View قبل الالتقاط ؟ سوال جيد اخي الفاضل بإذن الله ينظر استاذنا جعفر. بالامر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.