الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اريد اعرف كم عدد البكسلات البيضاء او السوداء داخل صورة معينه

مغلق
بدأه ابو بكير في 30 يناير 2007 · 9 رد · 682 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

يا شباب عندي صورة فيها لونين ابيض و اسود هل استطيع ان اعرف عدد البكسلات البيضاء او عدد البكسلات السوداء

وهل يفرق عدد البكسلات عندما تكون الصورة صغيرة او كبيرة

اتمنى ما يكون السؤال فيه نوع من الصعوبه

تحياتي لكم

سأصبر حتى يعجز الصبرُ عن صبري

وسأصبر حتى يأذن الله في أمري

وسأصبر حتى يعلم الصبرُ أني صبرتُ على شيئاٍ أمرُ من الصبرِ

#2

:lol:

ابو بكير كتب:
يا شباب عندي صورة فيها لونين ابيض و اسود هل استطيع ان اعرف عدد البكسلات البيضاء او عدد البكسلات السوداء

وهل يفرق عدد البكسلات عندما تكون الصورة صغيرة او كبيرة

اتمنى ما يكون السؤال فيه نوع من الصعوبه

تحياتي لكم

سأصبر حتى يعجز الصبرُ عن صبري

وسأصبر حتى يأذن الله في أمري

وسأصبر حتى يعلم الصبرُ أني صبرتُ على شيئاٍ أمرُ من الصبرِ

#3

من أجل معرفة او بالأحرى قراءة لون Pixel معين ماعليك الا استعمال الدالة GetPixel حاول ان تبحث عنها في ال MSDN او في الأنترنت و ستجد طريقة عملها :)

#4

مشكرو اخي

البقيه وين مشاركتهم ......................ليش السؤال صعب؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

سأصبر حتى يعجز الصبرُ عن صبري

وسأصبر حتى يأذن الله في أمري

وسأصبر حتى يعلم الصبرُ أني صبرتُ على شيئاٍ أمرُ من الصبرِ

#5
اقتباس
البقيه وين مشاركتهم ......................ليش السؤال صعب؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

هل جربت الدالتين التي ذكرتهما لك ؟؟؟ ام انك تريد برنامج جاهز مع كوده لعمل ما تريد ؟؟؟

تم تعديل هذه المشاركة بواسطة Ayoub JAMAL EL IDRISSI في 4 فبراير 2007 في 00:17

#6

أنا كتيت الكود ده بسرعة و مجربتوش كويس :


Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Private Sub Form_Load()
Me.Show
GetData picMe
End Sub

Private Sub GetData(pPicture As PictureBox)
Dim LX As Long, LY As Long, WCnt As Long, BCnt As Long

pPicture.ScaleMode = vbPixels
pPicture.AutoRedraw = True

For LX = 0 To (pPicture.Width / Screen.TwipsPerPixelX)
For LY = 0 To (pPicture.Height / Screen.TwipsPerPixelY)
If GetPixel(pPicture.hdc, LX, LY) = RGB(0, 0, 0) Then BCnt = BCnt + 1
Next
Next

For LX = 0 To pPicture.Width
For LY = 0 To pPicture.Height
If GetPixel(pPicture.hdc, LX, LY) = RGB(255, 255, 255) Then WCnt = WCnt + 1
Next
Next

MsgBox "Black pixels = " & BCnt & vbNewLine & "White pixels = " & WCnt
End Sub
Option Explicit

يا ريت تراجعه تانى

و من مشاركتى فلاتر للصور هتعرف أزاى تضيف شريط تقدم

#7

يعطيك العافيه أخي msayed2004 والله انت ابو البرمجه بكلها وينك من زمان كان وفرت علي كثير من العناء

والله الكود اكثر من رائع وهذا وعادك ما جربته عاد كيف اذا جربته.

وعفوا شغلتك اخي بعض البكسلات لونها مش ابيض تمام وانما قريب الى الابيض نسبة 80% لكن الكود الي اعطيته حساس جدا ..... كيف حل هذه المشكله مع العلم اني حاولت اغير في القيم 255 الى اقل او اكثر لكن بدون فائدة

وأقول لك اني بحثت عن الدالة GetPixel لكن ما وجدت المطلوب او اني لم اعرف ياريت لو مافيه كلفه عليك تظبط البرنامج وتخليه يحسب البكسل الابيض تمام والقريب من الابيض ولو فيه معك دروس او كتاب حول معالجة الصور تضعه لنا في المنتدى

اما برنامج فلاتر الصور برنامج ممتاز .

والله يعطيك العافيه ويزيدك في العلم النافع

تقبل تحياتي

تم تعديل هذه المشاركة بواسطة ابو بكير في 4 فبراير 2007 في 14:49

سأصبر حتى يعجز الصبرُ عن صبري

وسأصبر حتى يأذن الله في أمري

وسأصبر حتى يعلم الصبرُ أني صبرتُ على شيئاٍ أمرُ من الصبرِ

#8

طب قيم الألوان اللى قريبه من الأبيض عايزها لغاية كام ؟

#9

عفوا اخي العزيز والله مافهمت عليك من شان قيم الوان

لكن الالوان قريبه من االابيض او الاسود بنسبة 80 او 70 %

ياريت تشرح لي كيف تعرف ارقام الوان في فجوال بيسك كيف عرفت ان الابيض هو 255

اخي ا لعزيز انا محتاج اليك كثير في هذا الموضوع ولو سمحت ولو تكرمت تطرح ايميلك او هذا ايميلي وانت الى اضفني اذا كان عليك احراج

zaid200300@yahoo.com

تحياتي لك يا غالي

سأصبر حتى يعجز الصبرُ عن صبري

وسأصبر حتى يأذن الله في أمري

وسأصبر حتى يعلم الصبرُ أني صبرتُ على شيئاٍ أمرُ من الصبرِ

#10

يا جماعة لا تنسونا

الله يرحم والديكم

سأصبر حتى يعجز الصبرُ عن صبري

وسأصبر حتى يأذن الله في أمري

وسأصبر حتى يعلم الصبرُ أني صبرتُ على شيئاٍ أمرُ من الصبرِ

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…