PDA

View Full Version : حرفه ای: میزان اختلاف رنگ پیکسل ها



AlgorithmX
جمعه 03 دی 1389, 00:59 صبح
سلام
نرم افزار های به دست آورنده میزان تفاوت دو یا چند عکس رو مشاهده کرده اید؟؟؟؟ که میشه به اون ها چند عکس داد (مثلا عکس اثر انگشت) و برنامه کنتراست رنگی تک تک پیکسل های عکس ها رو با هم مقایسه میکنه و میزان شباهت های عکس ها رو به درصد نمایش میده.
آیا کسی هست تابع انجام این کاررو داشته باشه؟؟؟ که مثلا در برنامه ای 2 Picture Box در کنار هم باشند و این تابع شروع به مقایسه رنگ پیکسل های این دو عکس رو با هم بکنه؟؟؟ یا حداقل تابعی که دو پیکسل رو فراخانی (یکی از عکس اول و دومی از عکس دوم) و مقایسه رو به عهده خودمان بگزارد؟؟؟

vbhamed
جمعه 03 دی 1389, 08:58 صبح
سلام

دستور Picture1.Point(x, y) رنگ نقطه X, Y رو بر مي گردون

AlgorithmX
جمعه 03 دی 1389, 09:43 صبح
حالا به نظر شما چطوری میشه این رمگ هایی که به ما داده رو باهم مقایسه کنیم؟؟؟
و چطوری میشه تعداد پیکسل های طول و عرض عکس رو گیر آورد تا دستور شما رو توی یک حلقه بزاریم که شروع به مقایسه کنه؟؟؟

vbhamed
دوشنبه 13 دی 1389, 11:36 صبح
سلام

خاصيت Autosize مربوط به PictureBox رو True كنيد، بعد از Load كردن عكس، عرض و ارتفاع PictureBox همون عرض و ارتفاع عكس ميشه

IamOverlord
سه شنبه 21 دی 1389, 16:00 عصر
سلام دوست عزیز!

حالا به نظر شما چطوری میشه این رمگ هایی که به ما داده رو باهم مقایسه کنیم؟؟؟
و چطوری میشه تعداد پیکسل های طول و عرض عکس رو گیر آورد تا دستور شما رو توی یک حلقه بزاریم که شروع به مقایسه کنه؟؟؟
برای مقایسه R و G و B دو رنگ رو به دست بیار و اختلاف دو تا R، دو تا G و دو تا B رو چک کن.
برای به دست آوردن R و G و B هم از این کدی که گذاشتم می تونی استفاده کنی:

Public Function GetR(ByVal Color As Long)
R = Color Mod 256
End Function

Public Function GetG(ByVal Color As Long)
G = Int(Color / 256) Mod 256
End Function

Public Function GetB(ByVal Color As Long)
B = Int(Color / 65536)
End Function