تعديل واضافة كود عمل ماسح ضوئي مع برنامج (IrfanView)

[Ahmed_J]

السلام عليكم

استاذ @ابوخليل

ربي يحفظك من كل مكروه

كل شيء تمام 

البرنامج يحفظ الملف في مساره الصحيح ويحفظه برقم الكتاب وبصيغة pdf

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

                             الا بعد اغلاق وفتح النموذج مرة اخرى او الانتقال الى السجل التالي او السجل السابق يظهر الملف بصورة اعتيادية.

لكنني انتبهت على ملاحظة عند تشغيل الماسح الضوئي (الكود يذهب مباشرة الى آخر كود موجود والماسح لسه يعمل) لذلك لايجد المسار الصحيح له

خطرت لي فكرة ان اضع بين كود تشغيل الماسح ونهاية الكود فاصل زمني (PauseTime = 20)  لمدة 20 ثانية وفعلا نجحت الفكرة وظهر ملف pdf في النموذج

لكن هذه طريفة غير صحيحة لان المدة ثابتة (20) ثانية بينما ممكن اعمل مسح ضوئي لاكثر من كتاب

اتمنى توضحت المشكلة والفكرة لديك

سؤال: اليس من المفروض ان يكمل الماسح الضوئي عمله ثم ينتقل للخطوة التالية بالكود؟ انا لااعلم

تحياتي

 

تم تعديل أكتوبر 22, 2023 بواسطه Ahmed_J

[ابوخليل]

الحل جاهز عندي 

النسخ سيكون مرة واحدة سواء قصرت المدة او طالت نسخة او اكثر اقصد تنفيذ الحدث

فقط لدي مشكلة في مسألة التأكد من وجود الملف .. 

dir  لا تعترف بالمتغير الذي يمثل رقم الكتاب تريد رقما او اسما صريحا

الدالة هذه صغيرة تأخذ سطرا واحدا فقط وبضم len اليها تفيد اذا الملف موجود ام لا

سأكمل العمل غدا ان شاء الله وابحث عن طريقة اخرى

اذا لديك كودا جاهزا  للتأكد من وجود الملف من عدمه فزودني به

[ابوخليل]

كان الخلل في قراءة رقم الكتاب

هذه تحدث احيانا وليست على اطلاقها .. وهي ان الكود لا يقرأ قيمة الحقل الا مع التركيز عليه

لذا اخذت بالاحتياط

وتم التحايل على فرق الوقت الذي تأخذه عملية المسح بين ملف وآخر ، بالاستعانة بعداد النموذج بدلا من sleep   او wait

وهذه هي الجمل البرمجية كاملة ...

Option Compare Database
Option Explicit
Dim i As Integer
Dim mypath As String
'---------------------------------------------------------------------------------
Private Sub Form_Timer()
Me.Refresh
If funDirFile = 0 Then
If i = 0 Then
Me.bookNumber.SetFocus
Shell ("c:\Program Files (x86)\irfanview\i_view32.exe /batchscan=(" & Me.bookNumber.Value & ",,,,," & mypath & " ,pdf,0) /scanhidden")
i = 1
End If
Else
Me.TimerInterval = 0
End If
Call Form_Current
End Sub
'----------------------------------------------------------------------
Private Sub scanpdf_Click()
i = 0
Dim strFile As String, DirFile As String
Me.bookNumber.SetFocus
strFile = Trim(bookNumber.Value) & ".pdf"
mypath = Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\"
DirFile = Dir(Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\" & strFile)
Me.TimerInterval = 3000
End Sub
'---------------------------------------------------------------------------
Function funDirFile()
Dim strFile As String, DirFile As String
Me.bookNumber.SetFocus
strFile = bookNumber.Value & ".pdf"
DirFile = Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\" & strFile
 funDirFile = Len(Dir(DirFile))
End Function
'------------------------------------------------------------------------------------
Private Sub Form_Current()
Dim sMyFileName As String
        sMyFileName = Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\" & Trim(bookNumber.Value) & ".pdf"
        WebBrowser1.Navigate (sMyFileName)
Me.Refresh
End Sub

 

test6.rar

[Ahmed_J]

السلام عليكم 

استاذ @ابوخليل

آسف على التاخير كنت مسافر

كل شيء تمام

بارك الله فيك

وشكرا لك

تم تعديل أكتوبر 28, 2023 بواسطه Ahmed_J

[زياد الحسناوي]

1 ساعه مضت, Ahmed_J said:

السلام عليكم 

استاذ @ابوخليل

آسف على التاخير كنت مسافر

كل شيء تمام

بارك الله فيك

وشكرا لك

أردت تجربة الملف المرفق ولكن ظهرت المشاكل التاليىة