Morteza Manafpour
جمعه 15 مهر 1384, 12:18 عصر
با سلام خدمت دوستان عزیز
کد برنامه به شکل زیر میباشد.
Dim Pix(1 To 70, 1 To 70) As Long
Dim x As Integer, y As Integer
Dim bRed As Integer, bGreen As Integer, bBlue As Integer, bAverage As Integer
For x = 1 To 70
For y = 1 To 70
Pix(x, y) = PicGray.Point(x, y)
Next y
Next x
For x = 1 To 70
For y = 1 To 70
bRed = Pix(x, y) Mod &H100
bGreen = (Pix(x, y) \ &H100) Mod &H100
bBlue = Pix(x, y) \ &H10000
bAverage = (bRed + bGreen + bBlue) / 3
PicColor.PSet (x, y), bAverage
Next y
Next x
Picture1.Picture = PicColor.Picture
چون PicColor یک تصویر ترسیمی است نمی تونم اونو به Picture1 یا یک فایل ارجاع بدم
اگه از دوستان راهحلی بلدن کمک کنن
کد برنامه به شکل زیر میباشد.
Dim Pix(1 To 70, 1 To 70) As Long
Dim x As Integer, y As Integer
Dim bRed As Integer, bGreen As Integer, bBlue As Integer, bAverage As Integer
For x = 1 To 70
For y = 1 To 70
Pix(x, y) = PicGray.Point(x, y)
Next y
Next x
For x = 1 To 70
For y = 1 To 70
bRed = Pix(x, y) Mod &H100
bGreen = (Pix(x, y) \ &H100) Mod &H100
bBlue = Pix(x, y) \ &H10000
bAverage = (bRed + bGreen + bBlue) / 3
PicColor.PSet (x, y), bAverage
Next y
Next x
Picture1.Picture = PicColor.Picture
چون PicColor یک تصویر ترسیمی است نمی تونم اونو به Picture1 یا یک فایل ارجاع بدم
اگه از دوستان راهحلی بلدن کمک کنن