• 0
saad.abu

كود مسح ضوئي

سؤال

تحية طيبة

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

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

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

بحيث لا يسمح للمستخدم تغيير اعدادات الصورة المسحوبة لمنع ادخال صور ملونة ذات حجم كبير على قاعدة البيانات

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

1 إجابات على هذا السؤال .

  • 0

كود المسح الضوئي الحالي

 EZTwain.SelectTwainsource(0) ' امر تحديد الاسكنر
            If My.Computer.FileSystem.FileExists(Application.StartupPath & "MyImage.tif") = True Then ' يتحقق إذا كان الصورة موجوده في الهارديسك بنفس الاسم ام لا 
                My.Computer.FileSystem.DeleteFile(Application.StartupPath & "MyImage.tif") ' في حال وجودها سيتم حذفها حتى يتمكن من حفظ الصورة الجديده
            End If
            EZTwain.AcquireToFileName(Me.Handle, Application.StartupPath & "MyImage.tif") ' يقوم باستخراج الصورة من الماسح الضوئي وحفظها في الهاردسك
            PictureBox1.ImageLocation = Application.StartupPath + "MyImage.tif" ' لجلب الصورة في البكتشر بوكس وعرضها

            OFD.FileName = Application.StartupPath + "MyImage.tif" ' لجلب موقع الصوره ووضعها في متغير
            If OFD.FileName = "" Then ' يتحقق هل المتغير فارغ لا يوجد فيه مسار لصورة ام لا
                Button2.Enabled = False
            Else
                Button2.Enabled = True
            End If

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

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



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .