منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : Generic Delegates - Func and Action
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم ورحمة الله وبركاته

الهدف:
الهدف من هذا الموضوع هو مشاركة بعض الافكار البرمجية

مقدمة:

Generic Delegates

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

الحقيقة و لضيق الوقت غالبا ما لايجد المبرمج وقتا كافيا للتعامل مع الكلاسات الجديدة في الدوت نت و للاسف موقع مايكروسوفت غالبا و ابدا لا يوضح اي شئ جديد بالشكل المناسب ودائما لا تجد موضوعات تتعمق في الأمر بشكل يجعلك تفهم تماما كيفية التعامل مع بعض الكلاسات الجديدة في الدوت نت

هنا غالبا عليك أنت أن تقرأ و تقرأ ثم تحاول و تحاول حتي تفهم و من ثم تستطيع أن تستفيد بشكل افضل من أي شئ جديد في الدوت نت

عموما الشئ المبدئي الوحيد الواضح جدا هو أن Func and Action Delegates تقبل متغيرات او باراميتر من اي نوع
و كان اول ما تبادر في ذهني هو هذا السؤال

هل يمكن استخدامها لحفظ الملفات و قراءة الملفات ؟

و كانت الإجابة علي هذا حاضرة في ذهني بشكل مباشر
من المؤكد و بما أنها تقبل متغيرات من اي نوع فبالتالي يمكن أن نستخدمها مع اي كلاس موجود في الدوت نت

Generic Func
ابسط تعريف لها انها عبارة عن دالة Function في صورة EventHandler او في صورة حدث مثل اي حدث موجود في الدوت نت وهي تقبل باراميتر او تقبل متغيرات من اي نوع و لكنها تستخدم بدون استخدام RaisEvent
وعلي ما أظن انها مصممة لكي تستخدم مثل اي دالة نسترجع منها قيمة ما

Generic Action
أبسط تعريف لها هو أنها روتين Method في صورة EventHandler أو في صورة حدث مثل اي حدث موجود في الدوت نت وهي تقبل اي باراميتر او تقبل متغيرات من اي نوع أيضا و بما أنها من النوع Delegate فبالتالي يمكن استخدامها في صورة دالة و ايضا يتم استخدامها بدون استخدام جملة  RaisEvent
وعلي ما أعتقد انها مصممة لكي تستخدم مثل اي روتين نكتبه او مثل اي دالة نكتبها

كيفية الاستخدام:

ولتوضيح كيفية الاستفادة من Generic Delegates سوف أستخدم فكرة بسيطة موجودة في موقع مايكروسوفت

الفكرة عبارة عن كيفية تخزين بعض المعلومات في ملف ثم إعادة قراءة البيانات من نفس الملف باستخدام كل من BinaryWriter و BinarrReader

وهذه الفكرة الهدف منها أن تساعد علي توضيح الأمر عندما نقوم بإعادة كتابتهابشكل أخر وذلك باستخدام Func and Action Delegates

كتابة و قراءة البيانات باستخدام BinaryWriter و BinaryReader

الكود التالي يوضح كيفية قراءة و حفظ String في ملف باستخدام BinaryReader و BinaryWriter

PHP كود :
Private Const fileName As String ".\data.dat"
 
   Private Sub WritetValue(value As String)
 
       Using writer As BinaryWriter = New BinaryWriter(File.Open(fileNameFileMode.Create))
 
           writer.Write(value)
 
           writer.Flush()
 
       End Using
    End Sub

    Private 
Function ReadValue() As String
        Dim result 
As String CType(NothingString)
 
       If (File.Exists(fileName)) Then
            Using reader 
As BinaryReader = New BinaryReader(File.Open(fileNameFileMode.Open))
 
               result reader.ReadString()
 
           End Using
        End 
If
 
       Return result
    End 
Function 


كتابة و قراءة البيانات باستخدام Generic Delegates

الكود التالي يوضح كيفية استخدام Generic Delegates في كتابة نفس الكود أعلاه وهو سيؤدي نفس الهدف وسوف يقوم بحفظ البيانات في ملف



PHP كود :
Private Const fileName As String ".\generic.dat"

 
   Private Sub WritetValueWithDelegate(value As String)
 
       Dim writeAction As Action(Of BinaryWriterString) = Sub(writer As BinaryWriterAs String)
 
                                                                Using writer
                                                                     writer
.Write(s)
 
                                                                    writer.Write(True)
 
                                                                    writer.Flush()
 
                                                                End Using
                                                             End Sub

        writeAction
(New BinaryWriter(File.Open(fileNameFileMode.Create)), value)
 
   End Sub

    Private 
Function ReadValueWithDelegate() As String
        Dim func 
As Func(Of BinaryReaderString) = Function(reader As BinaryReader)
 
                                                       Dim result As String CType(NothingString)
 
                                                       If (File.Exists(fileName)) Then
                                                            Using reader
                                                                result 
reader.ReadString()
 
                                                           End Using

                                                        End 
If
 
                                                       Return result
                                                    End 
Function


 
       Return func(New BinaryReader(File.Open(fileNameFileMode.Open)))
 
   End Function 

المصادر المستخدمة:

Func Delegate

Action Delegate

BinaryReader

BinaryWriter

في المرفقات ستجدون نسخة من الكود مع توضيح لكيفية استخدامه
الكود بنسخة الفيجوال استوديو 2015
تقبلوا تحياتي
شكراااا على مجهودك المتواصل فى توضيح وتعجز الكلمات عن شكرك فقد تعلمت منك كثيرا

اريد من حضرتك طريقة رسم متور او بريمة لانى اعمل على برامج ومشاريع سكادا

شكرا
انا من الاسكندرية

كنت اريد كيفية عمل طريقة tool ber الموجودة فى c++ mfc فى vb .net

تجد صورة bmp فيها اكثر من صورة مختلفة وتجد تستخدم فى toolber

جربت اكثر من طريقة ولم اجد

ارجوا المساعدة
من فضلك توضح فقط ما تريد رسمه بارسال صوره لي لأني مش فاهم
هل تقصد بكلمة بريمة = DrillingRig كما في شركات حفر البترول؟
زى متور مثلا
زى تكس رقمية

https://scontent-cai1-1.xx.fbcdn.net/hph...e=573E0A99

من فضلك ادخل على الرابط تجد صورة من برنامج تحكم الى انا صممتة فية صورة بريما ومواتير كيف اصممها

https://fbcdn-photos-a-a.akamaihd.net/hp...fa8bb1dd5f
ما فهمته هو انك تحاول رسم Crusher او مطحنة و هي تدور بشكل حلزوني اي أنك تريدها متحركة وعندما يتم ايقافها بالضغط علي باتون تتوقف عملية Animation الخاصة بهذه المطجنة
عموما الرسم ليس صعبا و لكنه يحتاج الي وقت لتنفيذه
مبدئيا انت تحتاج لرسم motors و Structure

سؤال هل رسمت اي شئ من الموجود في الصورة ام لا؟
انا استخدمت Industrial_Gadgets_ActiveX_Pro فية صور الموجودة فى الصورة
هذا رابط صورة
https://scontent-frt3-1.xx.fbcdn.net/hph...e=5743C887
كيف اجزى الصورة فى toolstrip h او imeg list
شكرا على التجاوب
الفكرة:
ان هذا النوع من الصور ما يكون ارتفاع الصورة الواحدة يساوي عرضها
و غالبا ما يتم حساب عدد الصور عن طريق قسمة طول الصورة الاصلية علي ارتفاعها
ثم نقوم بحساب المستطيل الخاص بأول صورة موجودة في شريط الصور
ثم نستخدم تلك البيانات في استخلاص كل صورة علي حدة و نضيفها الي مصفوفة صور



في المرفقات ستجد مثالا لكيفية استخلاص جميع الصور من شريط الصور
ومن فضلك وفي المرات القادمة ان تضع اسئلتك في قسم الاسئلة حتي يستفيد منها الجميع
خاصة ان الموضوع المطروح هنا مختلف تماما عن نوعية سؤالك
شكرا على الكود عمل بشكل تمام ولاكن لم افهم جزء من الكود اريد توضيحة

For i As Integer = 0 To counter - 1
images.Add(img.Clone(r, img.PixelFormat))
r.X += img.Height
Next
انا الذى فهمتة انة يخزن على حسب العددىالناتج من القسمة
ولكن السطر لم افهمة هو
images.Add(img.Clone(r, img.PixelFormat))
r.X += img.Height
img.Clone

وكيق اجعل الخلفية شفافة
شكرا
القيمة Counter -1  تحدد عدد الصور الموجودة في شريط الصور
و نحصل عليها عن طريق ناتج قسمة طول شريط الصور مقسوما علي ارتفاع شريط الصور
ثم نطرح من الناتج 1 فنحصل علي عدد الصور

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

و بما أن الصورةالاصلية مكونة من عدة صور فبالتالي  النقطة x الخاصة بالمستطيل سوف يتغير مكانها
و قيمة X عبارة عن اضافة قيمة مساوية لإرتفاع شريط الصور الي القيمة الاصلية المبدئية و التي تبدأ اصلا من القيمة صفر في عملية loop

أما بخصوص أن تجعل الصورة شفافة فهناك أسلوبان لذلك وعموما الكود التالي سوف يقوم بتحويل خلفية الصورة الي اللون الشفاف


PHP كود :
For Each bmp As Bitmap In images
            bmp
.MakeTransparent(Me.BackColor)
 
       Next 
الصفحات : 1 2