السلام عليكم اخواني الأعزاء
اريد اعرف كيف يتم عمل صبغة و اشباع لصورة ما باللون الأحمر باستخدام فيجوال بيسك 6
إذا لم يكن السؤال واضح شاهد الصورة .
سؤال في الجرافكس
مغلق
العملية بسيطة كما واضح من الرسم ان تطبيق هذه العملية مكون في خطوتين الاولي و هي " وضع جميع البتات باللون الاحمر و إن وجد بتات تحتوي علي اللون الابيض يتجالها و لا يقوم بمزجها Blending باللون .
قديماً في الرسومات الثنائية الابعاد كانت الرسمة تحتوي علي خلفية مثلاً بيضاً او سوداء و كنا نريد ان نرسم فقط الشخصية عدا اللون الاسود كنا نستخدم مفتاح الالوان Colo/ur Key و بتطبيق اللون الاسود مثلاً و في عملية الرسم يرسم كله عدا اللون الاسود ، نفس الفكرة فوق .
BEng , Electronics and communications.
Embedded systems engineer.
Graphics Programmer
عالم الكومبيوتر هو من لديه المعرفة في علوم الكومبيوتر ، الرياضيات ، هندسة الالكترونيات -احمد صالح
اقتباسوضع جميع البتات باللون الاحمر و إن وجد بتات تحتوي علي اللون الابيض يتجالها و لا يقوم بمزجها Blending باللون .
ارجو ان توضح لي اكثر اريد ان تخبرني بالكود الذي يقوم بعمل ذلك المهم يكون بالفيجوال بيسك 6 و شكراً جزيلاً على الرد
لا أعلم كيف تتعامل مع الصور في الفيجوال بيسك
لكن الفكره هكذا
اللون في كل pixel له ثلاث قيم تحدده Red,Green,Blue
نبقي على قيمة Blue,Green ثابتة ونغير قيمة Red الى 255 مثلاً
عند التعامل مع الصور بواسطة API ستستعمل التركيب الآتي
typedef struct tagRGBQUAD { // rgbq
BYTE rgbBlue;
BYTE rgbGreen;
BYTE rgbRed;
BYTE rgbReserved;
} RGBQUAD;وهناك سيتم اسناد 255 مثلا الى rgbRed
بالطبع يمكنك ان تجعل المستخدم يتحكم في درجة اللون الأحمر من 1 الى 255
أنا جربتها على الدلفي ونجحت معي
أعتقد هناك طريقة في الفيجوال بيسك للتعامل مع RGB ...
اقتباسوضع جميع البتات باللون الاحمر و إن وجد بتات تحتوي علي اللون الابيض يتجالها و لا يقوم بمزجها Blending باللون .
لا أظن ذلك هو الوضع الذي حدث في الصورة التي ارفقها الأخ
لو قمنا بما ذكرته فسنحصل على صورة كل ما فيها احمر ( لن تظهر المعالم الداخلية في الصورة) الا بعض الاجزاء باللون الأبيض (طبعاً في هذه الحالة لم نحدد ما هو اللون الأبيض أهو R :G :B =255:255:255 )..
تم تعديل هذه المشاركة بواسطة cipher في 31 ديسمبر 2005 في 18:34
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
لاحظ الصورة المرفقة
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
اخي انا افترضت بعدم وجود ما يستطيع التحكم به بالالوان فداخل عمليات الالوان ما ذكرته من العمليات علي بتات الصورة.
اما اذا كنت تملك التحكم بالالوان من الاساس فالعب ب RGB تستطيع تخلط الالوان كما تشاء .
BEng , Electronics and communications.
Embedded systems engineer.
Graphics Programmer
عالم الكومبيوتر هو من لديه المعرفة في علوم الكومبيوتر ، الرياضيات ، هندسة الالكترونيات -احمد صالح
الأخ العزيز أحمد
اقتباسقديماً في الرسومات الثنائية الابعاد كانت الرسمة تحتوي علي خلفية مثلاً بيضاً او سوداء و كنا نريد ان نرسم فقط الشخصية عدا اللون الاسود كنا نستخدم مفتاح الالوان Colo/ur Key و بتطبيق اللون الاسود مثلاً و في عملية الرسم يرسم كله عدا اللون الاسود ، نفس الفكرة فوق
هذا ما يعرف بـ Transparent حيث تحدد لون محدد وتعتبره transparent color حينها أي Pixel لها نفس اللون لن يتم رسم هذا اللون .. ( برامج الـ Skins تعتمد على هذه الطريقة )..
أنا علقت على ردك بسبب
اقتباسنفس الفكرة فوق .
فالفكرتين مختلفتين تماماً
تحياتي
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
أخ سلام
يمكنك الإستفادة من الكود الآتي
أضف PictureBox و Button
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long Private Sub Command2_Click() Dim r As Integer, g As Integer, b As Integer Dim x As Integer, y As Integer, clr As Long Picture1.ScaleMode = vbPixels For y = 0 To Picture1.ScaleHeight For x = 0 To Picture1.ScaleWidth ' Get Pixel Color and parse it into R,G,B clr = GetPixel(Picture1.hdc, x, y) 'You can use the APIs GetRValue,GetBValue, GetGValue r = clr And &HFF& g = (clr \ &H100&) And &HFF& b = (clr \ &H10000) And &HFF& 'change them as you want r = 255 g = g b = b SetPixel Picture1.hdc, x, y, RGB(r, g, b) Next x Next y End Sub
طبعا سيكون العمل بطئ وعليك التغيير في الكود ليعطي نتيجة اسرع ... خبرتك في الفيجوال بيسك اكثر ..
تحياتي
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
اولاً احب اشكركم على التفاعل مع الموضوع .
اما بالنسبة للشفرة التي ارفقها اخ cipher مع الرد فهي بالفعل بطيئة لأنها تقوم بالمرور على البكسل
واحداً تلو الأخر فإذا كانت الصورة كبيرة قد يستغرق ذلك وقت بينما في برنامج الفوتوشوب تتم العملية بسرعة كبيرة ممها كان حجم الصورة و كذلك يوجد عندي برنامج معمول بالفيجوال بيسك يقوم بالعملية بشكل سريع جداً و لكنه تنفيذي .
العيب في GetPixel و SetPixel انها تتعامل مع بكسل واحد فقط و لايمكنها ان تتعامل مع جميع
البكسل في نفس الوقت و لهذا لا يمكن ان اعمل اي شيء لتسريع الشفرة و انا على يقين ان هنالك
طريق تمكن من التعامل مع جميع البكسل في نفس الوقت و ارجو منكم ان تخبروني بها اذا كانت لديكم
.
تحياتي
اقتباسلهذا لا يمكن ان اعمل اي شيء لتسريع الشفرة و انا على يقين ان هنالكطريق تمكن من التعامل مع جميع البكسل في نفس الوقت و ارجو منكم ان تخبروني بها اذا كانت لديكم
كان قصدي أن تستعمل نفس الفكره في الكود بالتحكم في قيم RGB ... كان مثال لجعلك تفهم الفكره ليس إلا أما بقية العمل فعليك القيام به بنفسك :)
منتظر أشوف رد منك ببرنامج يحل المشكله .. :D
(الفكره وأعطيناها لك بقي عليك التنفيذ ... رميت الكرة في ملعبك .. )
على فكره اعتقد ان الفيجوال بيسك أبطأ من غيرها في التعامل مع الـ graphics ... كنت قرأت ذلك في مقال باللغة الصينية ..
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
اقتباسكان قصدي أن تستعمل نفس الفكره في الكود بالتحكم في قيم RGB ... كان مثال لجعلك تفهم الفكره ليس إلا أما بقية العمل فعليك القيام به بنفسك
لم اكن ابحث عن الفكرة فهي مفهومة عندي من قبل كان طلبي هو الشفرة وللأسف الشفرة التي ارفقتها كانت بطيئة كما انك اخ cipher قادر على البحث في مواقع اجنبية اما انا فلا اجيد اللغة الإنجليزية و إلا كنت قد وجدت الإجابة من زمان و لهذا اطلب المساعدة منك و لا اظنك تردد في تقديمها . :)
اقتباسعلى فكره اعتقد ان الفيجوال بيسك أبطأ من غيرها في التعامل مع الـ graphics ... كنت قرأت ذلك في مقال باللغة الصينية ..
اقراء السطر الرابع في الرد السابق لي :D
اقتباسلم اكن ابحث عن الفكرة فهي مفهومة عندي من قبل
أسف .كنت أظن أن الفكره لم تكن مفهومة لك لذا قمت بالتفلسف :D
اقتباسانك اخ cipher قادر على البحث في مواقع اجنبية اما انا فلا اجيد اللغة الإنجليزية
حاول التغلب على هذه المشكلة , المشكلة هي عامل نفسي فقط ... قل لنفسك انك افضل من يجيد الإنجليزية واستخدم قاموس لمساعدتك وشوف النتيجة ...
اقتباسلهذا اطلب المساعدة منك و لا اظنك تردد في تقديمها
طيب ولا يهمك , ساحاول المساعدة ..
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
راجع هذه الوصلة
http://www.vb-helper.com/howto_make_gray.html
نزل المثال وان كانت السرعة مناسبة غير في الكود بما يتناسب مع طلبك (أعتقد المهمة صارت سهلة الآن ).
صاحب الصفحة معاه كتاب Visual Basic Graphics Programming أظن سيفيدك كثيراً
وقت ممتع مع الـ Graphics ...
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
ارجو المعذرة على التأخير كنت مشغول شوية
اقتباسحاول التغلب على هذه المشكلة , المشكلة هي عامل نفسي فقط ... قل لنفسك انك افضل من يجيد الإنجليزية واستخدم قاموس لمساعدتك وشوف النتيجة ...
كلامك مشجع بالفعل ساحاول ان أتغلب على مشكلة اللغة الإنجليزية ...
اما بالنسبة للكود فقد كان أكثر من رائع ... اشكرك جزيل الشكر على المساعد و الله ما قصرت
و أسأل الله ان يجزيك خير الجزاء على هذه المساعدة
تحياتي
السلام عليكم
الفكره دى ممكن تتعمل بسهوله بإستخدام DirectX وبالأخص Direct Draw لو عايز الكود قولى اقوله لك ولو عايز تحلها بدوال API يبقى خلاص ^^
هذا الموضوع مغلق.