أمير ادم قام بنشر يوليو 30, 2018 قام بنشر يوليو 30, 2018 ايه اهم الكذب والحورات دي ةحد يقول في خطاء ويرجع رد على نفسه تاني انتم بتشتغلو نفسكم فين الشرح الصحيح في ١١/٥/٢٠١٧ at 23:51, 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 فين الرد يلي اترد عليه بعد عرض الخطاء انتم بتشتغلونا ولا بتشتغلو نفسكم فين
أمير ادم قام بنشر يوليو 30, 2018 قام بنشر يوليو 30, 2018 5 ساعات مضت, أمير ادم said: ياجماعة الخير اين الحل بارك الله فيكم 6 ساعات مضت, أمير ادم said: سؤال الى كل المحترفين والخبراء في اكسس لدي قاعدة بيانات بها جدولين ونموزجين الاول به أدخال بيانات الموظفين والثاني الرواتب استخدمت الجدول الاول لادخال بيانات الموظفين فقط والثاني لعمل الرواتب لهم هنا وضعت دلة DLookup في النموذج لجلب بعض حقول بيانات الموظف من الجدول خاصة الموظفين ولكن يوجد خطاء وهوا تاتي الداله DLookupبكل البيانات معادا صورة الموظف لماذ حيث ان صورة الموظف من نوع مرفق في الجدول وهذا مرفق asd.accdb
أمير ادم قام بنشر يوليو 30, 2018 قام بنشر يوليو 30, 2018 9 ساعات مضت, أمير ادم said: 2 ساعات مضت, أمير ادم said: 9 ساعات مضت, أمير ادم said: 9 ساعات مضت, أمير ادم said: 9 ساعات مضت, أمير ادم said: مشكوووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووور في ١١/٥/٢٠١٧ at 23:51, jjafferr said: 9 ساعات مضت, أمير ادم said: مشكووووووووووووووووووووووووووووووووووووووووووووووووووووووور في ١١/٥/٢٠١٧ at 23:51, jjafferr said:
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.