mohsen_sh
سه شنبه 23 خرداد 1385, 22:58 عصر
در کد زیر که برای سیاه سفید کردن عکس می باشد و متعلق به یکی از دوستان هستش چند سؤال دارم:
For x = 1 To Picsrc.ScaleWidth
For y = 1 To Picsrc.ScaleHeight
lColor = Picsrc.Point(x, y)
bRed = lColor Mod &H100
bGreen = (lColor \ &H100) Mod &H100
bBlue = lColor \ &H10000
bGray = bRed * 0.3 + bGreen * 0.59 + bBlue * 0.11
PicDest.PSet (x, y), RGB(bGray, bGray, bGray)
Next y
Next x
اول اینکه در خط اول picsrc که نام کنترل boxpicture اوله و عکس رنگی در آن است picsrc.point()x,yچه چیزی را بر می گرداند آیا فقط مختصاته یا.....
دوم اینکه از تقسیم مlcolor به 256 چه چیزی حاصل می شه
و سوم برای اینکه عکس ما با همان حالت رنگی و به همین صورت پیکسل به پیکسل ترسیم بشه در picture box دوم باید در خط آخر چه تغییری ایجاد کرد
مثل اینکه زیاد نوشتم ولی می خواستم کامل توضیح داده باشم
For x = 1 To Picsrc.ScaleWidth
For y = 1 To Picsrc.ScaleHeight
lColor = Picsrc.Point(x, y)
bRed = lColor Mod &H100
bGreen = (lColor \ &H100) Mod &H100
bBlue = lColor \ &H10000
bGray = bRed * 0.3 + bGreen * 0.59 + bBlue * 0.11
PicDest.PSet (x, y), RGB(bGray, bGray, bGray)
Next y
Next x
اول اینکه در خط اول picsrc که نام کنترل boxpicture اوله و عکس رنگی در آن است picsrc.point()x,yچه چیزی را بر می گرداند آیا فقط مختصاته یا.....
دوم اینکه از تقسیم مlcolor به 256 چه چیزی حاصل می شه
و سوم برای اینکه عکس ما با همان حالت رنگی و به همین صورت پیکسل به پیکسل ترسیم بشه در picture box دوم باید در خط آخر چه تغییری ایجاد کرد
مثل اینکه زیاد نوشتم ولی می خواستم کامل توضیح داده باشم