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

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


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

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

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

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

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

A4

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

وشكرا

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

منذ ساعه, hanan_ms said:

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

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

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

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

A4

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

وشكرا

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

 

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

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

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

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

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

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

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

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

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

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

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

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

 

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

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

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

 

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

 😇

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

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

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

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

BackEndLocation

BackEndLocation000

manger_new_db

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

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

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

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

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

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

a1.jpg

a3.jpg

xxxa.jpg

xxxad.PNG

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 اخي! ?! وانت استاذ الكريم 

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

😇

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

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

تحكم بالصور :

1-تدوير 

2- اقتصاص

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

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

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

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

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

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

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

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

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

😂

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

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

وشكرا

1.jpg

2.jpg

4.jpg

1.gif

2.gif

3.gif

4.gif

Cropping an Image With Controll Print v.1.rar

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

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

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

image.png.b46a0b0f5dec79d3e9a510a8764a8036.png

image.png.89f2078158ceb9c5771cfba0a3ac0c0c.png

والان نأتي الي الأكواد
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

بالتوفيق

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

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

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

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

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

 

1~3.jpg

xxxs.gif

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

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

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

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

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

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

 

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

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

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

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

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

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

من غير رعود 

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

 

x1.jpg

x2.jpg

x3.jpg

xxz.gif

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information