دادن افکت به تصویر

[reza10203045]

سلام
دوستان به این تصویر نگاه کنند
29236
و این هم افکت مورد نظر
29237
دوستان میشه در این رابطه به من کمک کنند که چه طوری می تونم این کار رو بکنم

به این مقاله توجه کنید

[amin1softco]

دوست من چیزی که من می دونم فقط اینه که یک تصویر RGB رو سه تا ماتریس R G B تشکیل شده که از ترکیب این سه ماتریس تصویر بدست می آید ولی برای اینکار که یک افکت را اجرا کنید در این مقاله با نرم افزار matlab این کار صورت گرفتهکه یک نرم افزار قوی در زمینه ریاضیات است و انالیز کردن نمودار ها و غیره ولی اگر بخواهیم در ویژوال اینکار را بکنیم باید اول فرمت jpg یا bmp یا هر چیز دیگه ایی رو به سه ماتریس بالا بگردانیم بعد طبق فرمول های مقاله افکت را اجرا و دوباره فایل را بازسازی کرده و نمایش دهیم (واسه jpg اول از حالت فشرده باید خارج شود)من خیلی علاقمندم اگه مقاله نمونه کدی هم داری خواهشا بزار

[reza10203045]

ممنون دوست عزیز از پاسخ شما
راستش منم دنبال این روش هستم . یعنی تبدیل عکس مورد نظر به ماتریس ولی تا حالا چیزی در این رابطه پیدا نکردم اگر از دوستان کسی در رابطه اطلاعاتی داره راهنمایی کنه

[amin1softco]

تابعی برای بدست آوردن ماتریس های rgb


Private Sub Command2_Click()
Dim intX As Long
Dim intY As Long
Dim n As Long
Dim M As Long
Dim a() As Long
Dim b() As Long
Dim C() As Long
Dim col As Long
Dim RGB() As Byte
Dim i As Long
n = 0
M = 0

With Picture1.Picture
intY = ScaleY(.Height, vbHimetric, vbPixels)
intX = ScaleX(.Width, vbHimetric, vbPixels)
redim a(0 to (intX+1)*(intY+1))
redim b(0 to (intX+1)*(intY+1))
redim c(0 to (intX+1)*(intY+1))

Me.Label13 = "height : " & intY & ", Width : " & intX
i = 0
For n = 0 To intX
For M = 0 To intY
col = GetPixel(Picture1.hDC, n, M)
a(i) = col And &HFF ('this line is error')
'b = (col \ 256) Mod 256
b(i) = (col \ &H100) And &HFF
'c = (col \ 256 \ 256)
C(i) = (col \ &H10000) And &HFF
i = i + 1
M = M + 1
Next
n = n + 1

Next
End With
End Sub



فکر کنم تابع خوبی باشه :متفکر: