رتبه موضوع:
  • 16 رای - 2.56 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
سورس کد تبدیل تصویر رنگی به سیاه سفید
#1
Convert an image to pure Black-and-White

کد پی‌اچ‌پی:
InstructionsTo use this function, first pass the desired image to it,
 and 
then pass the Mode parameterwhich determines if the image 
should be processes based on the total RGB value of a pixel 
or the lightness of a pixel.
 
Then pass the Tolerance valuewhich is a decimal which must be >= -and 

سورس کد :

کد پی‌اچ‌پی:
Public Function PureBW(ByVal image As System.Drawing.BitmapOptional ByVal Mode As BWMode BWMode.By_LightnessOptional ByVal tolerance As Single 0) As System.Drawing.Bitmap
        Dim x 
As Integer
        Dim y 
As Integer
        
If tolerance Or tolerance < -1 Then
            
Throw New ArgumentOutOfRangeException
            
Exit Function
        
End If
        For 
0 To image.Width 1 Step 1
            
For 0 To image.Height 1 Step 1
                Dim clr 
As Color image.GetPixel(xy)
                If 
Mode BWMode.By_RGB_Value Then
                    
If (CInt(clr.R) + CInt(clr.G) + CInt(clr.B)) > 383 - (tolerance 383Then
                        image
.SetPixel(xyColor.White)
                    Else
                        
image.SetPixel(xyColor.Black)
                    
End If
                Else
                    If 
clr.GetBrightness 0.5 - (tolerance 2Then
                        image
.SetPixel(xyColor.White)
                    Else
                        
image.SetPixel(xyColor.Black)
                    
End If
                
End If
            
Next
        Next
        
Return image
    End 
Function
    
Enum BWMode
        By_Lightness
        By_RGB_Value
    End Enum 
در صورتی که سوال دارید و سوالتون مختصر هست با شماره 09120642214 میتونید تماس بگیرید.
کسانی که دوست دارن در کانال فروشگاه ما و یا کانال انجمن عضو بشن یک پیامک در تلگرام برای من بفرستید که عضوشون میکنم.

ادرس فروشگاه :

http://www.amshop.ir



ای ام شاپ را در اینستگرام دنبال کنید

ای ام شاپ رو در کانال تلگرام دنبال کنید



This forum uses Lukasz Tkacz MyBB addons.
پاسخ


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سورس کد اضافه اپدیت حذف سرچ در اکسس (وی بی دات نت) Amin_Mansouri 2 4,593 04-07-2013، 10:50 AM
آخرین ارسال: Amin_Mansouri
  سورس کد تبدیل ویدئو به فرمت های 3gp mp4 و..(وی بی دات نت) Amin_Mansouri 0 2,199 01-31-2013، 07:22 PM
آخرین ارسال: Amin_Mansouri
  سورس کد پروژه مدیریت هتل (vb.net) Amin_Mansouri 0 2,329 01-31-2013، 07:13 PM
آخرین ارسال: Amin_Mansouri
  سورس کد چک کردن وضعیت سیستم عامل (ویژوال بیسیک دات نت) Amin_Mansouri 0 1,812 09-29-2012، 12:48 AM
آخرین ارسال: Amin_Mansouri
  سورس ماشین حساب پیشرفته kazemfallahi1371 0 1,478 07-01-2012، 01:49 AM
آخرین ارسال: kazemfallahi1371
  سورس کد خواندن فایل Pdf (وی بی دات نت) Amin_Mansouri 0 4,660 06-08-2012، 10:16 PM
آخرین ارسال: Amin_Mansouri
  سورس کد پرینت گزارش توسط کریستال ریپورت (وی بی دات نت) Amin_Mansouri 1 5,231 05-30-2012، 05:15 PM
آخرین ارسال: parvin
  سورس کد تغییر نام سطل زباله سیستم عامل (وی بی دات نت) Amin_Mansouri 0 1,842 05-02-2012، 04:08 PM
آخرین ارسال: Amin_Mansouri
  سورس کد بدست اوردن درجه دمای سی پی یو Amin_Mansouri 0 3,928 01-20-2012، 01:07 PM
آخرین ارسال: Amin_Mansouri
  سورس کد تغییر سایز عکس Amin_Mansouri 0 4,171 01-20-2012، 01:03 PM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان
<------> <____> <<<<----------------->>>> <<<<--->>>>>
This forum uses Lukasz Tkacz MyBB addons.