تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مظهر أدوبي Adobe Style
#31
mostafa.vb كتب :اهلا {[b]أبورائد[/b]} هل يمكنك مساعدتى فى هذا الموضوع : اضغط هنا


السلام عليكم ورحمة الله وبركاته






شكراً لمرورك أخي الكريم وتم الرد في موضوعك





السلام عليكم ورحمة الله وبركاته
الرد }}}
تم الشكر بواسطة:
#32
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته






كانت هذه الأداة مخطط لها منذ أشهر تطويرها وبيعها لزيادة دخلي،
ولكن نزولا عند رغبة الأخوة الملحّة فقد تنازلت هذا الدخل.

وإن كان لدي وقت أقوم بشرح أجزاء الشفرة ليتم فهمها بشكل أسرع وأوضح.





السلام عليكم ورحمة الله وبركاته

[COLOR="#0000CD"]شكرا لكرمك اخي


أخي @@أبورائد@@
هل تجيز لي ان استخدم الاداة عن طيب خاطر منك
و والله لن استخدمها حتى تأذن لي
[/COLOR]
الرد }}}
تم الشكر بواسطة:
#33
ابو ابراهيم كتب :شكرا لكرمك اخي


أخي أبورائد
هل تجيز لي ان استخدم الاداة عن طيب خاطر منك
و والله لن استخدمها حتى تأذن لي


السلام عليكم ورحمة الله وبركاته






بارك الله أخي أبو ابراهيم


والله لقد أنزلت الشفرة المصدرية عن طيب خاطر فلتطمئن ويطمئن الجميع ولا تتحرّجوا

أرجو أن تستفيدوا منها وتصلحوا ما فيها من أخطاء وعيوب وتطوروها

أتنمى أرى إبداعات وأدوات أخرى من عاملنا الاسلامي العربي





السلام عليكم ورحمة الله وبركاته
الرد }}}
تم الشكر بواسطة: عمو بيا
#34
السلام عليكم

نظرت إلى الكود ووجدت أنك مبرمج جبار

خصوصاً في هذا الكود

PHP كود :
Private Sub SetDoubleBuffering(ByVal frm As FormByVal value As Boolean)
        
Dim p As System.Reflection.PropertyInfo frm.GetType.GetProperty("DoubleBuffered"Reflection.BindingFlags.Instance Or Reflection.BindingFlags.NonPublic)
        
p.SetValue(frmvalueNothing)
    
End Sub 

ما إن نظرت إلى كلمة DoubleBuffering قلت في نفسي كيف سيفعلها والخاصية Protected (فقط الفئات المشتقة تراها) ولكنك اقتحمتها واجبرتها



بالمناسبة بخصوص Round Rectangle (مستطيل مقوس الزوايا)

بما أنه شكل كثير التكرر بالإمكان استخدام هذا Structure

PHP كود :
Public Structure RoundRectangle

#Region "Fields"
        
Private rec As Rectangle
        
Private dd1d2d3d4 As Integer
#End Region

#Region "Properties"
        
Public Property Rect() As Rectangle
            Get
                
Return rec
            End Get
            Set
(ByVal value As Rectangle)
                
rec value
            End Set
        End Property
        
Public Property AllRadius() As Integer
            Get
                
Return d
            End Get
            Set
(ByVal value As Integer)
                If 
value 0 Then
                    d 
value
                    d1 
d
                    d2 
d
                    d3 
d
                    d4 
d
                
Else
                    Throw New 
Exception("Radius must be greator than zero 0.")
                
End If
            
End Set
        End Property
        
Public Property TopLeftRadius() As Integer

            Get
                
Return d1
            End Get
            Set
(ByVal value As Integer)
                If 
value 0 Then
                    d1 
value
                
Else
                    Throw New 
Exception("Radius must be greator than zero 0.")
                
End If
            
End Set

        End Property
        
Public Property TopRightRadius() As Integer
            Get
                
Return d2
            End Get
            Set
(ByVal value As Integer)
                If 
value 0 Then
                    d2 
value
                
Else
                    Throw New 
Exception("Radius must be greator than zero 0.")
                
End If
            
End Set
        End Property
        
Public Property BottomRightRadius() As Integer
            Get
                
Return d3
            End Get
            Set
(ByVal value As Integer)
                If 
value 0 Then
                    d1 
value
                
Else
                    Throw New 
Exception("Radius must be greator than zero 0.")
                
End If
            
End Set
        End Property
        
Public Property BottomLeftRadius() As Integer
            Get
                
Return d4
            End Get
            Set
(ByVal value As Integer)
                If 
value 0 Then
                    d1 
value
                
Else
                    Throw New 
Exception("Radius must be greator than zero 0.")
                
End If
            
End Set
        End Property
#End Region

#Region "Constructors"
        
Public Sub New(ByVal rect As RectangleByVal AllRad As Integer)
            If 
Not rect.IsEmpty Then
                rec 
rect
            
Else

                Throw New 
Exception("parameter rect is an empty rectangle .")
            
End If

            
AllRadius AllRad

        End Sub
        
Public Sub New(ByVal rect As RectangleByVal TopLeftRad As IntegerByVal TopRightRad As IntegerByVal BottomRightRad As IntegerByVal BottomLeftRad As Integer)
            If 
Not rect.IsEmpty Then
                rec 
rect
            
Else
                Throw New 
Exception("parameter rect is an empty rectangle .")
            
End If
            
Me.= -1
            
If TopLeftRad 0 AndAlso TopRightRad 0 AndAlso BottomRightRad 0 AndAlso BottomLeftRad 0 Then
                Me
.d1 TopLeftRad
                Me
.d2 TopRightRad
                Me
.d3 BottomRightRad
                Me
.d4 BottomLeftRad
            
Else
                Throw New 
Exception("Radius must be greator than zero 0.")
            
End If
        
End Sub
#End Region

#Region "Functions"
        
Public Function GetPath() As GraphicsPath
            Dim path 
As New GraphicsPath
            
If Me.AllRadius 1 Then
                path
.AddRectangle(Me.Rect)
            Else
                
Dim arcRect As Rectangle = New Rectangle(rec.Location, New Size(d1d1))
                
path.AddArc(arcRect18090)
                
arcRect.rec.Right d2
                arcRect
.Size = New Size(d2d2)
                
path.AddArc(arcRect27090)
                
arcRect.rec.Right d3
                arcRect
.rec.Bottom d3
                arcRect
.Size = New Size(d3d3)
                
path.AddArc(arcRect090)
                
arcRect.rec.Bottom d4
                arcRect
.rec.X
                arcRect
.Size = New Size(d4d4)
                
path.AddArc(arcRect9090)
            
End If
            
path.CloseFigure()
            Return 
path
        End 
Function
        Public Function 
IsTopNormal() As Boolean
            
Return (Me.TopLeftRadius Me.TopRightRadius) \ <= Me.rec.Width
        End 
Function
        Public Function 
IsLeftNormal() As Boolean
            
Return (Me.TopLeftRadius Me.BottomLeftRadius) \ <= Me.rec.Height
        End 
Function
        Public Function 
IsBottomNormal() As Boolean
            
Return (Me.BottomLeftRadius Me.BottomRightRadius) \ <= Me.rec.Width
        End 
Function
        Public Function 
IsRightNormal() As Boolean
            
Return (Me.BottomRightRadius Me.TopRightRadius) \ <= Me.rec.Height
        End 
Function
        Public Function 
IsNormal() As Boolean
            
Return Me.IsBottomNormal AndAlso Me.IsLeftNormal AndAlso Me.IsRightNormal AndAlso Me.IsTopNormal
        End 
Function
        Public Function 
GetMinimumNormalWidth() As Integer
            
Return Math.Max((Me.TopRightRadius Me.TopLeftRadius) \ 2, (Me.BottomRightRadius Me.BottomLeftRadius) \ 2)
        
End Function
        Public Function 
GetMinimumNormalHeight() As Integer
            
Return Math.Max((Me.TopRightRadius Me.BottomRightRadius) \ 2, (Me.TopLeftRadius Me.BottomLeftRadius) \ 2)

        
End Function
        Public Function 
GetMinimumNormalSize() As Size
            
Return New Size(Me.GetMinimumNormalWidthMe.GetMinimumNormalHeight)
        
End Function
#End Region


    
End Structure 
الرد }}}
تم الشكر بواسطة:
#35
أبو يعقوب كتب :السلام عليكم
نظرت إلى الكود ووجدت أنك مبرمج جبار

ما إن نظرت إلى كلمة DoubleBuffering قلت في نفسي كيف سيفعلها والخاصية Protected (فقط الفئات المشتقة تراها) ولكنك اقتحمتها واجبرتها



السلام عليكم ورحمة الله وبركاته






بارك الله فيك أخي أبو يعقوب وجزاك الله خيراً

مثل ما قالوا حبايبنا المصريين "اللي يسأل ميتهش"،

أهم شيء ذكره أخي الحبيب أبو إيهـــاب هي الفكرة،
من ثم تجهيز الشفرات لتطبيقها سواء من صنعنا أو بالبحث عنها وقد تستغرق وقتاً،

والنت مليء بالشفرات الجاهزة،
عندك مثلاً DoubleBuffering وRound Rectangle كلها جاهزة من النت،

ولكن الأهم لنا جميعاً بعد أخذ الشفرات وفي وقت فراغ وهدوء نقوم بالتمعن في أجزاءها واستيعابها
حتى نتمكن من خلال تعديلها الاستفادة منها لتؤدي مهمة أخرى فبهذا تزداد الخبرة.


أسأل الله لي ولكم التوفيق والنجاح





السلام عليكم ورحمة الله وبركاته
الرد }}}
تم الشكر بواسطة:
#36
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته






بارك الله أخي أبو ابراهيم


والله لقد أنزلت الشفرة المصدرية عن طيب خاطر فلتطمئن ويطمئن الجميع ولا تتحرّجوا

أرجو أن تستفيدوا منها وتصلحوا ما فيها من أخطاء وعيوب وتطوروها

أتنمى أرى إبداعات وأدوات أخرى من عاملنا الاسلامي العربي





السلام عليكم ورحمة الله وبركاته


[COLOR="#0000FF"]لقد احرجتني بكرمك اخي @@أبورائد@@

بارك الله لنا فيك وبك
[/COLOR]
الرد }}}
تم الشكر بواسطة:
#37
[COLOR="#000080"] بارك الله فيك اخي ابو رائد والله انت انسان خلوق ومحترم
ولك معزه تتزايد في قلوب الاعضاء مع كل مشاركه لك في المنتدي


سأجيبك علي هذه النقطه
إقتباس :الصراحة كانت هذه ستكون أول تجربة لي في مسألة البيع ولا أعرف حتى الطريقة.

اولا علي عكس ما يعتقد البعض ان الادوات او جزء صغير من الكود لا يمكن بيعه
هل تعلم ان شاشه واحده قد تكسب منها اكثر من برنامج متكامل لانك تقوم ببيعها اكثر من مره
وقد كان لي تجارب مع (الباركود و البصمه و السنترال و الطابعات الحراريه ) ولله الحمد
ومن يشتري منك هذه الاكواد ليس اشخاص فقط بل شركات برمجه ايضا

اليك الطريقه اخي ابو رائد صمم برنامج او كود تعلم انه مطلوب و غير متوفره في المنتديات
قم بعمل اعلان عن ما تريد بيعه في المنتديات المهتمه بالبرمجه واترك وسيله للتواصل
وان شاء الله ستجد اشخاص تريد شراء ما قمت بتصميمه
بالنسبه لكيفيه استلام الاموال (1 - حواله بنكيه & 2 - حواله فوريه بالبريد الداخلي & 3 - ويسترن يونيون )
اما البرنامج تقوم بأرساله علي الاميل بعد استلام الحواله ..

وفقك الله اخي الحبيب



[/COLOR]
الرد }}}
تم الشكر بواسطة:
#38
بسم الله ما شاء الله عليك اخي الفاضل
ربنا يوفقك

إشهـــــــــــــــــــد إن لا إله إلا اللــــــــــــه إشهـــــــــــــــــد إن محمد رسول اللــــــــــــــه

الرجال أربعة
رجل يدري ويدري أنه يدري فذلك عالم فاتبعوه.Smile
ورجل يدري ولا يدري أنه يدري فذلك نائم فأيقظوه.Cool
ورجل لا يدري ويدري أنه لا يدري فذلك مسترشد فأرشدوه.Big Grin

ورجل لا يدري ولا يدري أنه لا يدري فذلك جاهل فارفضوه‏.‏Cool
الرد }}}
تم الشكر بواسطة:
#39
ممكن طريقة التركيب
وما هو اصدار مكتبة الفورم المستخدم

انا شغال بفيجوال 2012
واريد ادراجها فى مشروع يستخدم مكتبة فورم ورك 3.5
الرد }}}
تم الشكر بواسطة:
#40
ali.alfoly كتب :ممكن طريقة التركيب
وما هو اصدار مكتبة الفورم المستخدم

انا شغال بفيجوال 2012
واريد ادراجها فى مشروع يستخدم مكتبة فورم ورك 3.5

بما ان الأخ ابو رائد أنزل السورس كود فبإمكانك نقله إلى vs 2008 وعمل Build للمشروع وتستخدم المكتبة في أي برنامج 3.5

وإضافتها من references داخل أي مشروع
الرد }}}
تم الشكر بواسطة:


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


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