الى مبرمجين الفيجوال مساعدة

[كرستاله]

السلام عليكم
شلونكم اخباركم
ممكن اطلب طلب خاص برمجه برنامجين بلغه فيجوال بيسك واكون ممنونه الكم

البرنامجين خاصه بمعالجه الصور

البرنامج الاول خاص بأضاءة المناطق المعتمه بالصوره
ونستخدم هذا القانون
Vout=log(1+e^k-1)Vin)/k


البرنامج الثاني
خاص بالمناطق المضيئه بالصوره تصبح اكثر اضاءه
Vout=(1+k)^Vin-1)/k

[adobe]

زين ممكن اعرف شتردين بالضبط؟
و عندي كم سؤال همين
Vout هذا شنو؟
log() و هذا سب لو فنكشن لو شنو؟
و هذا همين شنو هو؟ Vin
و هذا شنو؟ k
و e همين شنو


يعني وردة شوية فهمينا

[iraqhack]

زين ممكن اعرف شتردين بالضبط؟
و عندي كم سؤال همين
Vout هذا شنو؟
log() و هذا سب لو فنكشن لو شنو؟
و هذا همين شنو هو؟ Vin
و هذا شنو؟ k
و e همين شنو


يعني وردة شوية فهمينا


فهمي محد يحلها غيره

[مشتاقلك صديقي]

[كرستاله]

برمجلي هاي المعادلتين ولو تعبتك ويايه
وهاي المعادله مقاربه للمعادلات السابقه
1 0 Vout=log(Vin)
2 0 Vout=e^Vin
وشكرا مقدما كلش محتاجه الحل

[adobe]

فهمي محد يحلها غيره

[مشتاقلك صديقي]

ليش اني مو؟ تعرفني؟

برمجلي هاي المعادلتين ولو تعبتك ويايه
وهاي المعادله مقاربه للمعادلات السابقه
1 0 Vout=log(Vin)
2 0 Vout=e^Vin
وشكرا مقدما كلش محتاجه الحل


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

[كرستاله]

بكسل الصوره الجديده = لوغارتم بكسل الصوره المراد معالجتها

بكسل الصوره الجديده = اكسبونينشيل الصوره المراد معالجتهاط

او بالاعتماد على المعادلات الاصليه

[iraqhack]

ليش اني مو؟ تعرفني؟

ههههههه خاف متقبل .... ليش مو تدري اني داخل دوره سحر يم ابو سموس

[Jig$aw]

هذا البرنامج بس بقة انه تحولين المعادلة حسب رغبتج للي تريديه اومي يعني اني قيم الالوان
استخرجت في pixel والج حق اضافة المعادلة وحسب رغبتج وهذا شي بسيط
يعني البرنامج كامل وبقة انت تفوتين المعادلة عليه ومنفذ طبعا
وهو اصلا للاضاءة بدون معادلة ورح احاول اشرحة الج بس المعادلة اذا معرفتي تضيفيها شرحيها بالتفصيل واني ابرمجها الج - البرنامج بالمرفقات
Dim r, g, b, x, y, i, j
تعريف متغيرات فقط
CommonDialog1.Filter = "*.bmp"
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
تحميل صورة من نوع بي ام بي فقط اي فلترة الصور لايجاد هذا النوع فقط وهذا مرتبط طبعا بوضع اداة CommonDialog1 من صفحة شريط الادوات رايت كلك منها كومبوننت واضافتها اوكي.
الثاني لاظهار البراوس للبحث وايجاد الصور
والامر الثالث تحميل الصورة من هذا المسار الى مربع الصورة الاول.
x = Picture1.ScaleWidth
y = Picture1.ScaleHeight
Picture2.Height = Picture1.Height
Picture2.Width = Picture1.Width
هذي اخذت ابعاد الصورة الاولى وعطيتها للصورة الثانية بساطة الطول والعرض في متغيرين
وجعلنا ابعاد الصورتين متطابقة لان الصورة الثانية هي ناتج الصورة الاولى بعد اجراء العملية عليها.

For i = 1 To x
For j = 1 To y
pixel = Picture1.Point(i, j)
r = (pixel Mod 256) + 100
g = (((pixel And &HFF00FF00) / 256&)) + 100
b = (((pixel And &HFF0000) / 65536)) + 100
عملنا لووووب للتنقل بقيم الصورة الاولى طبعا ووضعنا قيمة الصورة الاولى كبكسل بكسل في متغير يسمى بكسل وهذا المتغير الذي يمكنك اضافة المعادلة له اختي الغالية
ومنها تعاملنا مع الالوان الثلاثة وحسب معادلات ثابتة
وقيمة ال100 المضافة هذي من برنامجي لعمل سطوع

If r < 0 Then
r = 0
End If
If g < 0 Then
g = 0
End If

If b < 0 Then
b = 0
End If
هذه لتجنب الارقام الاصغر من صفر (سالبة) او اكبر من 255

Picture2.PSet (i, j), RGB(r, g, b)
Next
Next



هاي المرة الثانية هع

تحياتي