اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

سحب عدة صور من خلال الماسح الضوئي


الردود الموصى بها

بعد اذن استاذي ابا جودي هذا المرفق بعد التعديل 

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

جاري رفع الملف ...

تحياتي

الارشيف.zip

تم تعديل بواسطه sandanet
  • Like 2
رابط هذا التعليق
شارك

@حسين العربى

أخي حسين وجدتها اخيراً ههه كانت المشكلة امام عيني طول الوقت لكني لم انتبه لها :wallbash: .. المشكلة كانت في الأمر : Ret = TWAIN_AcquireToFilename(Me.hwnd, PictureFile)   

عندما لغيته لم تعد تظهر لي مسألة الخصائص تلك :blink:

إليك المرفق التالي .. جربه ووافيني أو الغي كود Ret من المرفق السابق :Rules:

 

وهذا الامر نفسه لأخي @ابا جودى ارجو تطبيقه على مثالك ايضاً :Rules:

 

تحياتي :dance1:

الارشيف2.zip

  • Like 1
رابط هذا التعليق
شارك

12 دقائق مضت, sandanet said:

@حسين العربى

أخي حسين وجدتها اخيراً ههه كانت المشكلة امام عيني طول الوقت لكني لم انتبه لها :wallbash: .. المشكلة كانت في الأمر : Ret = TWAIN_AcquireToFilename(Me.hwnd, PictureFile)   

عندما لغيته لم تعد تظهر لي مسألة الخصائص تلك :blink:

إليك المرفق التالي .. جربه ووافيني أو الغي كود Ret من المرفق السابق :Rules:

 

وهذا الامر نفسه لأخي @ابا جودى ارجو تطبيقه على مثالك ايضاً :Rules:

 

تحياتي :dance1:

الارشيف2.zip

شكرا لك اخى الكريم

وجاري التجربة 

ويسلام لو اعرف اسمك بالعربى عشان اعرف اندهلك :'):biggrin::fff:

 

رابط هذا التعليق
شارك

9 دقائق مضت, محمد سلامة said:

شكرا لك اخى الكريم

وجاري التجربة 

ويسلام لو اعرف اسمك بالعربى عشان اعرف اندهلك :'):biggrin::fff:

 

استاذي القدير محمد سلامة يشرفني ان تجرب الملف كما ارجو منك ابلاغي بالنتيجة وذكر نوع السكانر الذي جربت عليه ^_^

بالنسبة للأسم فافضل ان يظل مجهول قدر الامكان :cool:

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم ورحمة الله تعالى وبركاته
طيب انا مرفوع من الخدمه مؤقتا لن استطع التجربه قبل يوم الاحد

لا املك ماسح ضوئى دفعى الان

لكن لى تعقيب صغير
اول شئ انا ان شاء الله سوف احضر لكم مفاجأه غير متوقعه فى هذا السياق

تانى شئ كل الشكر والتقدير والعرفان للاستاذ @sandanet   واضم صوتى لاخويه العزيز @محمد سلامة يا سلام لو نعرف اسمك بالعربى انا تعليم مجانى ههههههههههههههههه

تالت شئ من غير احباط يا استاذ @sandanet لو انا عاوز اسحب عدة صور من خلال ماسح ضوئى دفعى متعدد  لو العدد ده تقريبا اكتر من 100 وانا مش عارف اصلا العدد
ياترى احدد العدد كام ازاى ؟؟!!!!!!!!!

امممممممممممممممممممممممم 
 

الان, sandanet said:

استاذي القدير محمد سلامة يشرفني ان تجرب الملف كما ارجو منك ابلاغي بالنتيجة وذكر نوع السكانر الذي جربت عليه ^_^

بالنسبة للأسم فافضل ان يظل مجهول قدر الامكان :cool:

ههههههههه ماشى يا استاذ مجهول قدر الامكان تشرفنا 
ههههههههه اخوك مش معروف خالص بيمسى عليك :wink2:

  • Like 1
رابط هذا التعليق
شارك

1 دقيقه مضت, ابا جودى said:

تالت شئ من غير احباط يا استاذ @sandanet لو انا عاوز اسحب عدة صور من خلال ماسح ضوئى دفعى متعدد  لو العدد ده تقريبا اكتر من 100 وانا مش عارف اصلا العدد
ياترى احدد العدد كام ازاى ؟؟!!!!!!!!!

تقدر تعمل لوب لعند مايصدر رقم الخطأ التالي -2145320957 للبرنامج حينها يتوقف اللوب عن اصدار امر السكان 

Do While Err.Number <> -2145320957

'عمل سكان

Loop

 

  • Like 1
رابط هذا التعليق
شارك

6 دقائق مضت, sandanet said:

استاذي القدير محمد سلامة يشرفني ان تجرب الملف كما ارجو منك ابلاغي بالنتيجة وذكر نوع السكانر الذي جربت عليه ^_^

بالنسبة للأسم فافضل ان يظل مجهول قدر الامكان :cool:

وانا ايضا لم استطيع التجربة غير يوم السبت حيث توجد الماسح بالعمل

وطبعا احترم رغبتك فى عدم اظهار اسمك .. بس احب اقول لحضرتك ان اللى بيعمل الحركة دى هما مبرمجى الهكرز وما ادراك ربنا يجعل كلمنا خفيف عليهم ههههههه @sandanet

8 دقائق مضت, ابا جودى said:

السلام عليكم ورحمة الله تعالى وبركاته
طيب انا مرفوع من الخدمه مؤقتا لن استطع التجربه قبل يوم الاحد

لا املك ماسح ضوئى دفعى الان

لكن لى تعقيب صغير
اول شئ انا ان شاء الله سوف احضر لكم مفاجأه غير متوقعه فى هذا السياق

تانى شئ كل الشكر والتقدير والعرفان للاستاذ @sandanet   واضم صوتى لاخويه العزيز @محمد سلامة يا سلام لو نعرف اسمك بالعربى انا تعليم مجانى ههههههههههههههههه

تالت شئ من غير احباط يا استاذ @sandanet لو انا عاوز اسحب عدة صور من خلال ماسح ضوئى دفعى متعدد  لو العدد ده تقريبا اكتر من 100 وانا مش عارف اصلا العدد
ياترى احدد العدد كام ازاى ؟؟!!!!!!!!!

امممممممممممممممممممممممم 
 

ههههههههه ماشى يا استاذ مجهول قدر الامكان تشرفنا 
ههههههههه اخوك مش معروف خالص بيمسى عليك :wink2:

مش كده يا @ابا جودى برده

رابط هذا التعليق
شارك

6 دقائق مضت, sandanet said:

تقدر تعمل لوب لعند مايصدر رقم الخطأ التالي -2145320957 للبرنامج حينها يتوقف اللوب عن اصدار امر السكان 


Do While Err.Number <> -2145320957

'عمل سكان

Loop

 

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

او ممكن حاجه تانيه يا استاذ @محمد سلامة

هههههههه حاجة من اللى بتودى وراء القمر وبرضوا الناس فى الحالات دى بتقول ربنا يجعل كلامنا خفيف عليهم

تم تعديل بواسطه ابا جودى
  • Like 1
رابط هذا التعليق
شارك

7 دقائق مضت, sandanet said:

:cool: الله يبعدنا عن الهاكرز .. دحنا ناس غلابة اوي

حبيبي تشرفنا بمعرفتك ..

 

10 دقائق مضت, ابا جودى said:

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

او ممكن حاجه تانيه يا استاذ @محمد سلامة

هههههههه حاجة من اللى بتودى وراء القمر وبرضوا الناس فى الحالات دى بتقول ربنا يجعل كلامنا خفيف عليهم

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

رابط هذا التعليق
شارك

26 دقائق مضت, ابا جودى said:

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

ملحوظة صغيرة : اذا لم تكن تعرف عدد مرات المسح فعند تطبيق اللوب السابق Do While يجب عليك ازالة اللوب For i = 1 To Nz(Me.Text1, 1) من المرفق السابق وذلك لأن لوب 

Do While Err.Number <> -2145320957 يتوقف فقط عندما يكون رقم الخطأ المستلم من الفيدر يساوي -2145320957 اي لم يعد هنالك ورق في السكانر لتصويره 

بينما اللوب For i = 1 To Nz(Me.Text1, 1) يتوقف عن العد فقط عندما يعد تصاعدياً الى قيمة مربع النص Text1
تم تعديل بواسطه sandanet
  • Like 1
رابط هذا التعليق
شارك

الان, sandanet said:

ملحوظة صغيرة : عند تطبيق اللوب السابق يجب عليك ازالة اللوب For i = 1 To Nz(Me.Text1, 1) من المرفق السابق وذلك لأن لوب 


Do While Err.Number <> -2145320957 يتوقف فقط عندما يكون رقم الخطأ المستلم من الفيدر يساوي -2145320957 بينما اللوب For i = 1 To Nz(Me.Text1, 1) يتوقف فقط عندما يعد تصاعدياً الى قيمة مربع النص Text1

طب ينوبك ثواب وكمل جميلك اعملها واضف المرفقين وفرق بينهم 
مثلا
1- تحديد عدد الاوراق ان كان معروف
2- سحب الاوراق دفعة واحد مهما كان العدد

تسهيلا على احبابنا اللى يتسر لهم الحال بالتجربة قبل يوم الاحد

رابط هذا التعليق
شارك

19 دقائق مضت, sandanet said:

ملحوظة صغيرة : اذا لم تكن تعرف عدد مرات المسح فعند تطبيق اللوب السابق Do While يجب عليك ازالة اللوب For i = 1 To Nz(Me.Text1, 1) من المرفق السابق وذلك لأن لوب 


Do While Err.Number <> -2145320957 يتوقف فقط عندما يكون رقم الخطأ المستلم من الفيدر يساوي -2145320957 اي لم يعد هنالك ورق في السكانر لتصويره 

بينما اللوب For i = 1 To Nz(Me.Text1, 1) يتوقف عن العد فقط عندما يعد تصاعدياً الى قيمة مربع النص Text1
16 دقائق مضت, ابا جودى said:

2- سحب الاوراق دفعة واحد مهما كان العدد
تسهيلا على احبابنا اللى يتسر لهم الحال بالتجربة قبل يوم الاحد

طبعا الافضل كما قال الاستاذ @ابا جودى(سحب الاوراق دفعة واحدة مهما كان العدد) 

لان دائما المستخدم يضع الورق فى الفيدر وما يعرف عدده 

 

تم تعديل بواسطه محمد سلامة
رابط هذا التعليق
شارك

28 دقائق مضت, محمد سلامة said:

طبعا الافضل كما قال الاستاذ @ابا جودى(سحب الاوراق دفعة واحدة مهما كان العدد) 

لان دائما المستخدم يضع الورق فى الفيدر وما يعرف عدده 

 

تفضل جرب المرفق على سكانر نوع اوتو فيدر .. عملت الملف بدون تجربة لذلك اتمنى موافاتي بالنتيجة باقرب وقت

للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور.zip

رابط هذا التعليق
شارك

استاذي الفاضل sandanet اشكرك اولا علي سعة صدرك ومجهودك العظيم   

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

وليكم مرفق ابا جودي 

اليك صورة من مرفقك  استاذي  sandanet عند التجربه ماذا يظهر

Untitled.png.2823bef695f2a229346dbaaf7785dba1.png

 

 

 

 

333.png.21067e4284cec54641356ebe811d6cf5.png

test scan.rar

 

مرفق

Untitled.png.fbe5b5be66a5598896ef79ee61c6cddd.png

مرفق ابا جودي 

 

test scan.rar

تم تعديل بواسطه حسين العربى
  • Like 1
رابط هذا التعليق
شارك

@حسين العربى

أخي حسين هل جربت ادخال رقم الموظف ومن ثم تحديد مسار المجلد الذي سوف يتم حفظ الصور فيه ومن ثم تحديد عدد مرات المسح من السكان؟ حسب الصورة التي ارفقتها انت يتبين ان النموذج خالي من البيانات والكود لديك يعتمد على شيئين رئيسيين هما رقم الموظف ومسار المجلد الذي يجب تحديده قبل عملية السكان والا فإن رسالة الخطأ تلك سوف تظهر لك طبعاً المفروض يتم تعديل زر الامر scan بأن يكون غير مفعل الا بعد التأكد من وجود رقم الموظف ومسار حفظ الصور .. بالنسبة لرسالة الخطأ فهي بالتأكيد سوف تظهر لك لان الكود لايرى رقم الموظف ولا مسار مجلد الصور لذلك يعتبره error ولا يتم التنفيذ وانما يظهر لك رسالة الخطأ تلك

 

ارجو التأكد من ملئ بيانات النموذج اولاً

رابط هذا التعليق
شارك

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

وليك سوره اخري بها  البيانات  وبها نفس الرسالة مع العلم مره اخر اني جربت المرفق الذي وضعته لك يعمل تمام   وذكرته في الرد الاخير وهو خاص بالاستاذ ابا جودي  

2.png.cdb4784f7c6d9297cf86406fba3c4f82.png1.png.cd4005b3a513d6f77fbc84f80b5da9a4.png

رابط هذا التعليق
شارك

استاذي الفاضل  sandanet  انا طبعا بعد ما جربت علي الاسكان المنفصل طبعا لم يفلح الامر وهذا ما تم شرحه في الرد الاخير 

طبعا ذهبت الي العمل اليوم الجمعة  وجربت علي الاسكان الغير منفصل  وهو HP  Deskjet 1050  PRINT + SCAN + COPY البرنامج يعمل تمام  بس عند عمل الغاء سحب  الامر لايستجيب  ويعطي امر للاسكان

/ولاكن استاذي الفاضل انا لااريد ان اتقيد باسكان معين وهذا الاسكان الغير منفصل لاينجز عمل  مثلا لو عندي كتاب له 20 مرفق ماذا افعل  ولكن الاسكان المنفصل سريع تضع به الاوراق وتنسي الامر  اما الاسكان الغير منفصل كل شويه لازم ترفع الغطاء وتحط الكتاب وتشيل وتحط اخر يعني تعب علي المستخدم  /  و انا لا اريد ان اتقيد بسكان معين كده يبقي برنامجي به عيب كبير  

ولا ايه رأيكم  وشكرا

 

تم تعديل بواسطه حسين العربى
  • Like 1
رابط هذا التعليق
شارك

1 ساعه مضت, حسين العربى said:

تضع به الاوراق وتنسي الامر

هنا المشكلة .. انت تتكلم عن سكانر اوتو فيدر على مايبدو .. طيب جربت المرفق الذي اسمه 

للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور.zip

ارجو منك تجربته على سكانر العمل 

 

بالنسبة للكود الموجود في ملف الاخ ابا جودى فهو يزيد عنك في هذا الامر "Ret = TWAIN_AcquireToFilename"

رابط هذا التعليق
شارك

13 دقائق مضت, sandanet said:

هنا المشكلة .. انت تتكلم عن سكانر اوتو فيدر على مايبدو .. طيب جربت المرفق الذي اسمه 

للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور.zip

ارجو منك تجربته على سكانر العمل 

 

بالنسبة للكود الموجود في ملف الاخ ابا جودى فهو يزيد عنك في هذا الامر "Ret = TWAIN_AcquireToFilename"

استاذي الفاضل  بالنسبه انت بتقولي جربت  المرفق الي اسمه 

للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور.zip

هذا المرفق شبيه لمرفق الاخ ابا جودي  ولا كنه لايعمل  اما مرفق ابا جودي الذي ذكرته انا من قبل وارفقته لك في الرد الي قبل الاخير  يعمل عندي 100% 

اما بالنسبه للنقطه الثانيه الي هي

بالنسبة للكود الموجود في ملف الاخ ابا جودى فهو يزيد عنك في هذا الامر "Ret = TWAIN_AcquireToFilename"

والله انا الي اعرفه انه شغال عندي اما مسالت يزيد هذه  فترجع لحضرتك انا لست بالخبره الكافيه في هذا الشأن 

وشكرا لك استاذي الفاضل 

الموضوع ليس سهل ولاكن يحتاج الي صبر لكي نصل الي النتيجه المطلوبه بأذن الله 

ملحوظه فعلا الاسكنر الي عندي اوتو فيدر وهو الي جربت عليه برنامج استاذي الفاضل ابا جودي وظبط معي

تم تعديل بواسطه حسين العربى
  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information