مشكل با سياه و سفيد كردن تصاوير

[Reza,M]

دوستان من براي سياه و سفيد كردن عكس از كد زير استفاده ميكنم ولي نميدونم جرا خطا ميگيره ؟

[Hybrid]

سلام دوست عزیز ...به ترتیب مراحل زیر رو برو تا به جوابتون برسید...

1)اول در بالای کد ادیتور یعنی اولین خطش کد زیر رو قرار بده...


Imports System.Drawing
Imports System.Drawing.Imaging

این کد فضای های نامی برای کار بر روی تصاویر رو به داخل برنامه میاره...

2)یه دکمه و یه PictureBox بر روی فرم قرار بده و از طریق خصوصیت image شی پیکچر باکسس یه عکس رو به برنامت اضافه کن...

3)در خصوصیت کلیک دکمه کد زیر رو که براتون نوشتم قرار بدین تا به جوابتون برسید.


Dim bitmap1 As Bitmap
bitmap1 = New Bitmap(Me.PictureBox1.Image)
Dim x, y
Dim d As Byte
For x = 0 To Me.PictureBox1.Image.Width - 1
For y = 0 To Me.PictureBox1.Image.Height - 1
d = Math.Round((bitmap1.GetPixel(x, y).R * 0.299 + bitmap1.GetPixel(x, y).G * 0.587 + bitmap1.GetPixel(x, y).B * 0.114))
bitmap1.SetPixel(x, y, Color.FromArgb(d, d, d))
Next y
Next x
Me.PictureBox1.Image = bitmap1


موفق باشین.سوالی بود در خدمتم..

[Reza,M]

دوست عزيز چرا انجام نميشه ؟

[Hybrid]

دوست عزيز چرا انجام نميشه ؟

سلام ، مطمئنین که انجام نمیشه من همین الان هم امتحان کردم و جواب گرفتم...

خوب دقت کن ببین کدی رو اشتپاه قرار ندادی یا کدی را جا نذاشتی؟

موفق باشین

[Reza,M]

آره وقتي دكمه رو ميزنم ميره تو هنگي؟
اگه ميشه نمونه رو آپ كنيد.
با تشكر

[Reza,M]

دوست عزيز هنوز جواب نگرفتم؟

[SilverGold]

سلام آقا رضا اگه مشکلتون حل شد نمونه حل شده رو بزارین ممنون میشم

درضمن اگه بخواهیم روی یک عکس حالت زوم قراربدیم کدش رو شما بلد هستین بزارین ممنون میشم

[Reza,M]

با سلام
براي ZoomIn


PictureBox1.Width = PictureBox1.Width / 2
PictureBox1.Height = PictureBox1.Height / 2

و براي ZoomOut


PictureBox1.Width = PictureBox1.Width * 2
PictureBox1.Height = PictureBox1.Height * 2

[SilverGold]

آقا دستت درد نکنه
ولی این پیکچرباکس رو کوچیک و بزرگ می کنه
زوم نمیکنه که

[sari-1369]

به این تاپیک مراجعه کنید و فایل رو دانلود کنید . حتما کمکتون میکنه .

گفتگو: (http://barnamenevis.org/showthread.php?205097-%D9%BE%D8%B1%D8%AF%D8%A7%D8%B2%D8%B4-%D8%AA%D8%B5%D9%88%DB%8C%D8%B1-%D8%AF%D8%B1-Vb.net) پردازش تصویر در Vb.net (http://barnamenevis.org/showthread.php?205097-%D9%BE%D8%B1%D8%AF%D8%A7%D8%B2%D8%B4-%D8%AA%D8%B5%D9%88%DB%8C%D8%B1-%D8%AF%D8%B1-Vb.net)