تعديل الصور : التحديد Sharpening - نسخة قابلة للطباعة

كود :
[SIZE=4][b][FONT=courier new]

[/FONT][/b][/SIZE]

[align=left][b][SIZE=3]

[/SIZE][FONT=courier new][SIZE=3]'بداية أمر الضغط على الزر

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



'إرجاع قيمة صغرية لشريط التقدم

ProgressBar1.Value = 0



'جعل القيمة الأعظمية لشريط التفدم مساوية القيمة الرقمية لارتفاع الصورة في مربع الصور

ProgressBar1.Maximum = Val(PictureBox1.Image.Height)



'تعريف متغير على أنه صورة و إعطائه الصورة الموجودة في مربع الصور

Dim AHED As New Bitmap(PictureBox1.Image)



'إرجاع قيمة المتغير إلى مربع الصورة لتتأثر بالتغيرات الحاصلة

PictureBox1.Image = AHED



'تعريف متغيرات للألوان و الاحداثيات

Dim Red, Green, Blue, I, J As Integer



'عبارة الاختصار

With AHED



'جملة تكرار للإحداثي الصادي

For I = 1 To .Height - 2



'جملة تكرار للاحداثي السيني

For J = 1 To .Width - 2



'أخذ قيمة اللون الأحمر من النقطة و إضافة نصف الفرق بين " الأحمرين " و هذا ما تحدثنا عنه

Red = CInt(.GetPixel(J, I).R) + (0.5 * (CInt(.GetPixel(J, I).R) - CInt(.GetPixel(J - 1, I - 1).R)))



'إن كانت القيمة سالبة ترجع موجبة باستخدام الضرب بالواحد السالب

If Red < 0 Then Red = Red * -1



'العملية نفسها على اللون الأخضر

Green = CInt(.GetPixel(J, I).G) + (0.5 * (CInt(.GetPixel(J, I).G) - CInt(.GetPixel(J - 1, I - 1).G)))

If Green < 0 Then Green = Green * -1



'مرة أخرى على اللون الأزرق

Blue = CInt(.GetPixel(J, I).B) + (0.5 * (CInt(.GetPixel(J, I).B) - CInt(.GetPixel(J - 1, I - 1).B)))

If Blue < 0 Then Blue = Blue * -1



'من الممكن بعد العملية الحسابية أن تكون القيمة أكبر من 255 و هذا خطأ

'نصلح الأمر بالدالة الرياضية التي تختار القيمة الأصغر من القيمتين المرجعتين لها

'و بذلك لن تتعدى القيمة فوق سقف ال 255

Red = Math.Min(Red, 255)



'نفس الحركة بالنسبة للون الأزرق

Blue = Math.Min(Blue, 255)



'مرة أخرى للون الأخضر

Green = Math.Min(Green, 255)



'إعادة القيم مرة أخرى إلى النقطة بعد التعديل

.SetPixel(J, I, Color.FromArgb(Red, Green, Blue))



'إنهاء عبارة التكرار الأولى

Next



'تحديث الصورة

PictureBox1.Refresh()



'زيادة قيمة شريط التقدم خطوة

ProgressBar1.Value = ProgressBar1.Value + 1



'إنهاء التكرار الثاني

Next



'إنهاء عبارة الاختصار

End With



'تحديث الصورة

PictureBox1.Refresh()



'إنهاء العملية بإكمال شريط التقدم

ProgressBar1.Value = ProgressBar1.Maximum



' نهاية الحدث

End Sub[/SIZE] 

[/FONT][/b][/align]