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

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


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

التحميلات :

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

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

.rar   البرنامج.rar (الحجم : 140.79 ك ب / التحميلات : 151)
الرد }}
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star [مشروع] برنامج مبيعات مفتوح المصدر 2018 mohammedvego 169 120,652 24-06-22, 12:58 PM
آخر رد: alimousad
  برنامج مبيعات ومشتريات وإدارة أعمال ( الفاتورة الإلكترونية ) yassoo1985 2 344 03-06-22, 04:01 PM
آخر رد: yassoo1985
  [VB.NET] برنامج تحويل النصوص بصوت عربي مسموع ثم حفظ الصوت بصيغة wav abo ragab 2 481 31-05-22, 12:06 PM
آخر رد: محمد ابوخليل
Thumbs Up سورس كود برنامج مبيعات ومخازن نورالدين32 8 7,891 19-05-22, 07:44 PM
آخر رد: dindo
  [مشروع] مشروع برنامج مبيعات متكامل بالباركود nouribenyahia 53 28,042 08-05-22, 08:20 PM
آخر رد: elhossiny9
  متجري: برنامج محاسبة و مبيعات لمتجر 2021 مع السورس كود. Mohamad Anan 19 8,196 22-04-22, 03:14 AM
آخر رد: senawe
  برنامج محاسبي مجاني ( مبيعات - مشتريات - مخزون - حسابات ) مفتوح المصدر توب سوفت 2 1,265 22-04-22, 03:13 AM
آخر رد: senawe
Thumbs Up [مشروع] برنامج مخازن ومستودعات بسيط ورائع محمود بكرى 2 579 22-04-22, 03:12 AM
آخر رد: senawe
Brick [مشروع] مشروع تخرج برنامج عن وحدة التدريب والتوظيف مبرمج أوتار 69 113,352 09-04-22, 12:56 PM
آخر رد: muhammed_neddef
  برنامج مولد كلمات سر aldery 4 969 03-03-22, 08:40 PM
آخر رد: ابراهيم ايبو

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


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