كيف اقتصاص الصورة المسحوبة بالماسح الضوئي الى حجم الصفحة المطلوبة A4 او A5

[hanan_ms]

ا ممكن مرفق ان امكن

بعد سحب الاوراق من الماسح الضوئي صور فيدر 

جعل الصور مقصوصة بحجم الصفحة المطلوبة بطول والعرض 

يكون السحب بحجم الورق  

A4

 او اي حجم احدد الطولة والعرض 

وشكرا

[ابو جودي]

منذ ساعه, hanan_ms said:

ا ممكن مرفق ان امكن

بعد سحب الاوراق من الماسح الضوئي صور فيدر 

جعل الصور مقصوصة بحجم الصفحة المطلوبة بطول والعرض 

يكون السحب بحجم الورق  

A4

 او اي حجم احدد الطولة والعرض 

وشكرا

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

 

هذا والله اعلى واعلم 

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

[hanan_ms]

  @ابو جودي استاذي 

سأحاول ارفاق مرفق لتحديد العرض والطول لاقتصاص كل صورة اسكنر مسحوبة

[ابو جودي]

8 دقائق مضت, hanan_ms said:

سأحاول ارفاق مرفق لتحديد العرض والطول لاقتصاص كل صورة اسكنر مسحوبة

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

بعكس مثلا التعامل مع الاسكانر من خلال ال vb.net  يمكنك التحكم فى كل تفصيلة وكبيرة وصغيرة مباشرة من الاكواد 

[hanan_ms]

❤️استاذي @ابو جودي 🌹سأرفق مرفق

حاولة التحجيم الارتفاع من 11 او العرض 8.5 

بتغير القيمة على سبيل المثال 8.7 تظهر رسالة خطأ 

 وان صفحات بعد السحب تكون مقصوص عند تذليل الصفحة؟ A4 اكبر بقليل later 

 

 ( من الفيدر شغال بس محتاجة تعديل على الكود ليعمل لا يقبل قيمة اعلى  يعطيني رسالة خطأ من الدالة

وليس من الجدول لانه مفتوح فقد غير قيمة الجدول "IDP"

لامكان تغير القيمة

 

ومرفق على السريع تجميعة من الاساتذه

 😇

 تحميل 6 اجزاء ضغط فقط .Rar

====================================

الرجاء التعديل على مرفقي نسية مسارة الملفات من منتدى الآخر 

تغير مسار بثلاث جداول الى مسار حاسوبك

BackEndLocation

BackEndLocation000

manger_new_db

ترك اسم الملف من مسار المحفوظ ,آخر رمز "/"

وشكرا لاستاذي @ابو جودي❤️ ولكم

تسجيل الدخول بصورة مرفقة

@Moosak من غير رعود 😂

@ابو جودي اهم شي سلامة استاذي

وسلامة الجميع

Ms-Access ADD User with Control And Link VBa GO ANd Back Link.part01.rar

Ms-Access ADD User with Control And Link VBa GO ANd Back Link.part02.rar

Ms-Access ADD User with Control And Link VBa GO ANd Back Link.part03.rar

Ms-Access ADD User with Control And Link VBa GO ANd Back Link.part04.rar

Ms-Access ADD User with Control And Link VBa GO ANd Back Link.part05.rar

Ms-Access ADD User with Control And Link VBa GO ANd Back Link.part06.rar

Ms-Access ADD User with Control And Link VBa GO ANd Back Link.part07.rar

Ms-Access ADD User with Control And Link VBa GO ANd Back Link.part08.rar

 8 روابط فقط 🌹❤️

😇

[Ahmos]

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

أخي الكريم يمكنك الاطلاع علي هذا الرابط
https://www.devhut.net/how-to-crop-an-image-using-wia-in-vba/

والموقع به مكتبة رائعة

[hanan_ms]

@Ahmos اخي! ?! وانت استاذ الكريم 

تغار من @ابو جودي 🌹❤️

😇

======================

هذه محاولتي مرفق آخر 

تحكم بالصور :

1-تدوير 

2- اقتصاص

3-كل الصور اقتصاص 

4-اعداداة الطابعة 

==============================

محتاج دالة بعد كل سحب من ماسح الضوئي اسكانر تغير الاحجام 11 و8.5 

عند التغير رسالة خطأ؟

===============================

كأن استاذي @ابو جودي 

!يقول : انا والرعود حين ما تأتي السحب    

وانا كصحاري اتشوق للمطر

😂

===============================

اتمنى من يستطيع ان يكمل بعض الدوال في المرفق للتشغيل

وشكرا

Cropping an Image With Controll Print v.1.rar

[Ahmos]

الأستاذة / حنان
الأخوة الكرام
تحية طيبة وبعد ،،،

كما فهمت المطلوب هو دالة لتغير مقاس الصورة
الدالة المستخدمة هي WIA_ResizeImage
وهذه الدالة تقوم بتغير أبعاد الصورة بـ البكسل PIXEL
والبكسلز تتغير بثلاث عوامل الطول والعرض والجودة
لذا يجب العلم ان عند تحويل المقاس إلي 8.5 سم × 11 سم يجب أن يتم تحديد أيضاً الجودة المطلوبة
والصور التالية توضح الأمر

والان نأتي الي الأكواد
1- الاكواد المساعدة للتحويل من MM / CM / INCH  إلي PIXELS
يجب وضعها في بداية مديول جديد

Option Explicit

Public Enum convertFrom
    cm
    mm
    inch
End Enum

Public Enum qualityRes
    q72PPI = 72
    q96PPI = 96
    q150PPI = 150
    q200PPI = 200
    q300PPI = 300
End Enum

Public Function ConvertToPixels(Value As Double, unit As convertFrom, resolution As qualityRes) As Double
    Dim inches              As Double
    Dim finalResolution     As Double

    If Value < 0 Then
        Debug.Print "ConvertToPixels", "Measurement value must be non-negative."
        ConvertToPixels = 0
        Exit Function
    End If

    Select Case unit
        Case convertFrom.cm
            inches = Value / 2.54
        Case convertFrom.mm
            inches = Value / 25.4
        Case convertFrom.inch
            inches = Value
        Case Else
            Debug.Print "ConvertToPixels", "Invalid unit"
            ConvertToPixels = 0
            Exit Function
    End Select

    finalResolution = resolution
    
    ConvertToPixels = inches * finalResolution
End Function

كما يمكن استخدام هذا الموقع للتحويل
https://www.aspect-ratios.com/pixel-calculator/

كود التجربة 

Sub test_ChangeImageSize()
    
    Dim sourceImgPath           As String
    Dim targetImgPath           As String
    Dim imgWidth                As Double
    Dim imgHight                As Double
    Dim pxlWidth                As Long
    Dim pxlHight                As Long
    Dim keepAspectRatio         As Boolean
    Dim overWrtieTargetFile     As Boolean
    
    
    sourceImgPath = "C:\Users\user\Downloads\Compressed\Cropping an Image With Controll Print v.1\Images\4130001.jpg"
    targetImgPath = "C:\Users\user\Downloads\Compressed\Cropping an Image With Controll Print v.1\Images\4130001_2.jpg"
    
    imgWidth = 8.5
    imgHight = 11
    
    keepAspectRatio = False
    overWrtieTargetFile = True
    
    pxlWidth = Round(ConvertToPixels(imgWidth, cm, q300PPI), 0)
    pxlHight = Round(ConvertToPixels(imgHight, cm, q300PPI), 0)
    
    If WIA_ResizeImage(sourceImgPath, targetImgPath, pxlWidth, pxlHight, keepAspectRatio, overWrtieTargetFile) Then
        Debug.Print "Your Image Resized Successfully"
    Else
        Debug.Print "Something Went Wrong !"
    End If
End Sub

هذا الإختيار للحفاظ علي تناسق ابعاد الصورة وبالطبع انم لم تكن الابعاد المستخدمة متناسقة فستختلف النتيجة
لذا تم عمله هكذا حتي تخرج الصورة بالأبعاد المحددة keepAspectRatio = False

وهذا الاختيار للكتابة فوق الملف الجديد إذا كان موجود بالفعل    overWrtieTargetFile = True

بالتوفيق

[hanan_ms]

اشكرك استاذ @Ahmos على الدالة 

 وتمة التجربة هي تمدد الصوره 

وحبيت الدالة ❤️😇

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

 

Cropping an Image With Controll Print v.1.4.part1.rar

Cropping an Image With Controll Print v.1.4.part2.rar

[Ahmos]

اللي فهمته
1- سيتم عمل اسكان لورقة
2- تريدي قص هذه الصورة لاستبعاد الأجزاء الغير مرغوب بها
3- تغير مقاس هذه الصورة

فيما يخص النقطة رقم 2
- إذا أمكن مشاركة صورة للتجربة
- حسب تصوري يجب أولاً معرفة جودة هذه الصورة
  حتي نتمكن من حساب البكسلز ومعرفة كيفية حساب الجزء المستبعد
  ثم قص الصورة

فيما يخص النقطة رقم 3
فهمت من الصور ان المقاس المرغوب هو 8.5 * 11 بوصة(انش) وليس سم
*ملحوظة هذا المقاس ليس A4 إنما US Letter Size
  A4  > 8.3 * 11.7 بوصلة
  A4  > 21 * 29.7 سم

 

[Ahmos]

تفضلي أستاذة / حنــان الملف بالمرفق
جميع الاكواد المضافة والمعدلة داخل مديول (New_Functions_Subs)

الصورة :

بعد القص :

بعد تعديل المقاس :

Cropping_Images_V1.zip

[hanan_ms]

اشكرك وايد استاذ @Ahmos ❤️🌹

👍 تمة التجربة ميدوال رائع

صحيح عند اختيار صورة حجم K4

تمتد الصورة وعند تجربة صورة اقل من الجوده تتم الاقتصاص 

 شفت استاذي @ابو جودي من مرفق امس دخان 😂

من غير رعود 

============================

 

Editor_Size And Cropping an Image With Controll Print v.1.part1.rar

Editor_Size And Cropping an Image With Controll Print v.1.part2.rar

[hanan_ms]

[Ahmos]

الحمد لله والشكر لله
بالتوفيق
 

38 دقائق مضت, hanan_ms said:

صحيح عند اختيار صورة حجم K4

تمتد الصورة وعند تجربة صورة اقل من الجوده تتم الاقتصاص

لو أمكن مشاركتها للتجربة

[hanan_ms]

حاضر استاذ @Ahmos

مع بعض تعديلات❤️🌹🌹