للمتطوعين: التقاط الصورة بكاميرا Webcam

[MAK4]

اعجبتني الفكرة جدا

شكرا للابداع

[أمير ادم]

ايه اهم الكذب والحورات دي ةحد يقول في خطاء ويرجع رد على نفسه تاني انتم بتشتغلو نفسكم فين الشرح الصحيح 

في ١١‏/٥‏/٢٠١٧ at 23:51, jjafferr said:

السلام عليكم ورحمة الله وبركاته

 

الجزء الاول تم مناقشته هنا

 

هذا الجزء رقم 2 من مشروع متكامل لتصوير الاشخاص والمستندات بإستخدام الكاميرات والماسح الضوئي (Scanner) ، والمشروع يتكون من:

يعني مو بس البرامج الكبيرة تستخدم هذه التقنيات ، وإحنا بعد

وهذه الاجهزة ستكون لتصوير الاشخاص والمستندات ، ان شاء الله

1. التصوير عن طريق كاميرا هاتف اندرويد ، وتمت التجربة على هاتف اندرويد Galaxy S3 بنظام 4.4 و Huawei Mate 7 بنظام اندرويد 6 ،
2. التصوير عن طريق WebCam ، وتمت التجربة على Logitec HD c615 ، و Creative Live (VF0610)e ،
3. التصوير عن طريق الكامرات الكبيرة من نوع DSLR ، وتمت التجربة على Nikon D5100 او Canon Mark iii ،
4. تطويع الماسح الضوئي لتصوير المستند/المستندات ، وحفظ المستندات الى اي مجلد ، بصيغة 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

فين الرد يلي اترد عليه بعد عرض الخطاء انتم بتشتغلونا ولا بتشتغلو نفسكم فين 

[أمير ادم]

5 ساعات مضت, أمير ادم said:

ياجماعة الخير اين الحل بارك الله فيكم

 

6 ساعات مضت, أمير ادم said:

سؤال الى كل المحترفين والخبراء في اكسس لدي قاعدة بيانات بها جدولين ونموزجين الاول به أدخال بيانات الموظفين والثاني الرواتب

استخدمت الجدول الاول لادخال بيانات الموظفين فقط 

والثاني لعمل الرواتب لهم هنا  وضعت دلة DLookup  في النموذج لجلب بعض حقول بيانات الموظف من الجدول خاصة الموظفين  ولكن يوجد خطاء وهوا تاتي الداله DLookupبكل البيانات معادا صورة الموظف لماذ حيث ان صورة الموظف من نوع مرفق في الجدول

وهذا مرفق

asd.accdb

 

[أمير ادم]

9 ساعات مضت, أمير ادم said:

 

 

2 ساعات مضت, أمير ادم said:

 

 

9 ساعات مضت, أمير ادم said:

 

 

9 ساعات مضت, أمير ادم said:

 

 

9 ساعات مضت, أمير ادم said:

مشكوووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووور

في ١١‏/٥‏/٢٠١٧ at 23:51, jjafferr said:

 

9 ساعات مضت, أمير ادم said:

مشكووووووووووووووووووووووووووووووووووووووووووووووووووووووور 

في ١١‏/٥‏/٢٠١٧ at 23:51, jjafferr said: