تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] برنامج لالتقاط اي لون كان + المشروع
#1
السلام عليكم اصدقائي الكرام في هذا الموضوع الجديد اقدم لكم برنامج لالتقاط اي لون كان 
نبذة : البرنامج يساعدك على الكثير من الاشياء اهمها مثلا اذا كنت مصمم ولا تعرف لون خلفية او لون شيء آخر فإن البرنامج يساعدك على التقاط اللون

طريقة التقاط بالبرنامج :


1 - لالتقاطك لاي لون قم بالضغط على 1 ولا تفلت الماوس لكي يلتقط اللون
2 - بعد التقاطك للون اضغط على " اضف اللون"
3 - بعد ضغطك على اضف اللون قم بنسخ الكود

التحميلات :

تحميل المشروع

.rar   Project_Color_Picker.rar (الحجم : 427.24 ك ب / التحميلات : 271)
تحميل البرنامج

.rar   البرنامج.rar (الحجم : 140.79 ك ب / التحميلات : 169)
الرد }}}
#2
برنامج رائع وسهل التعامل معه
ويمكن الاستفادة منه من قبل المصممين


+1

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: ayoubelmouttaqi
#3
مشكور اخي العزيز بصراحة برنامج رائع و موفيد
الرد }}}
تم الشكر بواسطة: ayoubelmouttaqi
#4
مشروع ممتاز تشكر عليه ..
هل يمكن نسخة لنفس المسروع ولكن مع الوان بصيغة CMYK  اتمنى ذلك
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة:
#5
(16-07-18, 01:59 AM)ابراهيم ايبو كتب : مشروع ممتاز تشكر عليه ..
هل يمكن نسخة لنفس المسروع ولكن مع الوان بصيغة CMYK  اتمنى ذلك

يمكنك فعل ذلك اخى الحبيب 
حتى لا اتعدى على صاحب الموضوع فى تعديل السورس بدون اذن
فيمكنك التعديل على السورس لتضيف التالى


لنقول يتم اضافة عدد 4 Label  و 4 TextBox او كما تشاء
ليصبح الشكل كما فى الصورة


كل ما عليك وضع الكود التالى فى الفورم
كود :
   Public Structure CMYK
       Private _c As Double
       Private _m As Double
       Private _y As Double
       Private _k As Double

       Public Sub New(c As Double, m As Double, y As Double, k As Double)
           Me._c = c
           Me._m = m
           Me._y = y
           Me._k = k
       End Sub

       Public Property C() As Double
           Get
               Return Me._c
           End Get
           Set(value As Double)
               Me._c = value
           End Set
       End Property

       Public Property M() As Double
           Get
               Return Me._m
           End Get
           Set(value As Double)
               Me._m = value
           End Set
       End Property

       Public Property Y() As Double
           Get
               Return Me._y
           End Get
           Set(value As Double)
               Me._y = value
           End Set
       End Property

       Public Property K() As Double
           Get
               Return Me._k
           End Get
           Set(value As Double)
               Me._k = value
           End Set
       End Property

       Public Overloads Function Equals(cmyk As CMYK) As Boolean
           Return (Me.C = cmyk.C) AndAlso (Me.M = cmyk.M) AndAlso (Me.Y = cmyk.Y) AndAlso (Me.K = cmyk.K)
       End Function
   End Structure

   Public Structure RGB
       Private _r As Byte
       Private _g As Byte
       Private _b As Byte

       Public Sub New(r As Byte, g As Byte, b As Byte)
           Me._r = r
           Me._g = g
           Me._b = b
       End Sub

       Public Property R() As Byte
           Get
               Return Me._r
           End Get
           Set(value As Byte)
               Me._r = value
           End Set
       End Property

       Public Property G() As Byte
           Get
               Return Me._g
           End Get
           Set(value As Byte)
               Me._g = value
           End Set
       End Property

       Public Property B() As Byte
           Get
               Return Me._b
           End Get
           Set(value As Byte)
               Me._b = value
           End Set
       End Property

       Public Overloads Function Equals(rgb As RGB) As Boolean
           Return (Me.R = rgb.R) AndAlso (Me.G = rgb.G) AndAlso (Me.B = rgb.B)
       End Function
   End Structure

   Public Shared Function RGBToCMYK(rgb As RGB) As CMYK
       Dim dr As Double = CDbl(rgb.R) / 255
       Dim dg As Double = CDbl(rgb.G) / 255
       Dim db As Double = CDbl(rgb.B) / 255
       Dim k As Double = 1 - Math.Max(Math.Max(dr, dg), db)
       Dim c As Double = (1 - dr - k) / (1 - k)
       Dim m As Double = (1 - dg - k) / (1 - k)
       Dim y As Double = (1 - db - k) / (1 - k)

       Return New CMYK(c, m, y, k)
   End Function

وبالنهاية اذهب الى منطقة تنفيذ جلب الكود واستخدم الكود التالى
كود :
       Dim data As New RGB(62, 121, 155)
       Dim value = RGBToCMYK(data)

       TextBox1.Text = Math.Round(value.C * 100) & " %"
       TextBox2.Text = Math.Round(value.M * 100) & " %"
       TextBox3.Text = Math.Round(value.Y * 100) & " %"
       TextBox4.Text = Math.Round(value.K * 100) & " %"

وبكده تكون تمكنت من اضافة الـ CMYK


مع التنبيه ان تضع قيم كلاً من RGB بدلاً الارقام 62 و 121 و 155

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
#6
(16-07-18, 06:46 AM)elgokr كتب :
(16-07-18, 01:59 AM)ابراهيم ايبو كتب : مشروع ممتاز تشكر عليه ..
هل يمكن نسخة لنفس المسروع ولكن مع الوان بصيغة CMYK  اتمنى ذلك

يمكنك فعل ذلك اخى الحبيب 
حتى لا اتعدى على صاحب الموضوع فى تعديل السورس بدون اذن
فيمكنك التعديل على السورس لتضيف التالى


لنقول يتم اضافة عدد 4 Label  و 4 TextBox او كما تشاء
ليصبح الشكل كما فى الصورة



كل ما عليك وضع الكود التالى فى الفورم
كود :
   Public Structure CMYK
       Private _c As Double
       Private _m As Double
       Private _y As Double
       Private _k As Double

       Public Sub New(c As Double, m As Double, y As Double, k As Double)
           Me._c = c
           Me._m = m
           Me._y = y
           Me._k = k
       End Sub

       Public Property C() As Double
           Get
               Return Me._c
           End Get
           Set(value As Double)
               Me._c = value
           End Set
       End Property

       Public Property M() As Double
           Get
               Return Me._m
           End Get
           Set(value As Double)
               Me._m = value
           End Set
       End Property

       Public Property Y() As Double
           Get
               Return Me._y
           End Get
           Set(value As Double)
               Me._y = value
           End Set
       End Property

       Public Property K() As Double
           Get
               Return Me._k
           End Get
           Set(value As Double)
               Me._k = value
           End Set
       End Property

       Public Overloads Function Equals(cmyk As CMYK) As Boolean
           Return (Me.C = cmyk.C) AndAlso (Me.M = cmyk.M) AndAlso (Me.Y = cmyk.Y) AndAlso (Me.K = cmyk.K)
       End Function
   End Structure

   Public Structure RGB
       Private _r As Byte
       Private _g As Byte
       Private _b As Byte

       Public Sub New(r As Byte, g As Byte, b As Byte)
           Me._r = r
           Me._g = g
           Me._b = b
       End Sub

       Public Property R() As Byte
           Get
               Return Me._r
           End Get
           Set(value As Byte)
               Me._r = value
           End Set
       End Property

       Public Property G() As Byte
           Get
               Return Me._g
           End Get
           Set(value As Byte)
               Me._g = value
           End Set
       End Property

       Public Property B() As Byte
           Get
               Return Me._b
           End Get
           Set(value As Byte)
               Me._b = value
           End Set
       End Property

       Public Overloads Function Equals(rgb As RGB) As Boolean
           Return (Me.R = rgb.R) AndAlso (Me.G = rgb.G) AndAlso (Me.B = rgb.B)
       End Function
   End Structure

   Public Shared Function RGBToCMYK(rgb As RGB) As CMYK
       Dim dr As Double = CDbl(rgb.R) / 255
       Dim dg As Double = CDbl(rgb.G) / 255
       Dim db As Double = CDbl(rgb.B) / 255
       Dim k As Double = 1 - Math.Max(Math.Max(dr, dg), db)
       Dim c As Double = (1 - dr - k) / (1 - k)
       Dim m As Double = (1 - dg - k) / (1 - k)
       Dim y As Double = (1 - db - k) / (1 - k)

       Return New CMYK(c, m, y, k)
   End Function

وبالنهاية اذهب الى منطقة تنفيذ جلب الكود واستخدم الكود التالى
كود :
       Dim data As New RGB(62, 121, 155)
       Dim value = RGBToCMYK(data)

       TextBox1.Text = Math.Round(value.C * 100) & " %"
       TextBox2.Text = Math.Round(value.M * 100) & " %"
       TextBox3.Text = Math.Round(value.Y * 100) & " %"
       TextBox4.Text = Math.Round(value.K * 100) & " %"

وبكده تكون تمكنت من اضافة الـ CMYK


مع التنبيه ان تضع قيم كلاً من RGB بدلاً الارقام 62 و 121 و 155

تحياتى لك
وتمنياتى لك التوفيق


حتى لا تذهب حقوق صاحب الكود

فالمصدر هنا
الرد }}}
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج البحث عن لقطة داخل صورة أخرى Taha Okla 4 1,234 أمس, 04:23 PM
آخر رد: عبدالكريم برشدان
  برنامج صانع الاكواد الاصدار المجاني الجديد aljzazy 27 20,084 14-01-24, 12:39 PM
آخر رد: mahmoued2022
Shocked برنامج مواقيت الصلاة ( الاذان ) alsaher1 5 2,532 25-11-23, 02:57 PM
آخر رد: alsaher1
Star [مشروع] برنامج مبيعات مفتوح المصدر 2018 mohammedvego 174 143,574 18-11-23, 03:01 AM
آخر رد: Darweesh
Thumbs Up [VB.NET] برنامج محاسبي مجاني ( مبيعات - مشتريات - مخزون - حسابات ) مفتوح المصدر توب سوفت 3 7,498 06-11-23, 01:36 AM
آخر رد: Ramzigh
  [مشروع] سورس كود برنامج مبيعات لسه مبتدئ 42 34,751 07-10-23, 07:25 PM
آخر رد: حورس2000
  برنامج لادارة الدروس الخصوصية VB.NET2013& Access moaath.khalaf 16 15,791 19-08-23, 12:22 AM
آخر رد: Ramadan alking
  برنامج بنك الأكواد esawy1 4 1,368 28-07-23, 11:53 AM
آخر رد: karmina2012
Music [VB.NET] سورس كود برنامج إذاعي متطور musalem 0 624 25-06-23, 02:06 AM
آخر رد: musalem
Brick [مشروع] سورس كود برنامج إدارة المخزن MStore بلغة VB.NET musalem 1 1,378 17-06-23, 10:03 AM
آخر رد: atefkhalf2004

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم