تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هياكل البيانات Data Structures الصف Queue : الجزء الاول
#1
[COLOR="#000080"]
بسم الله الرحمن الرحيم

ساتكلم هنا عن الصف QUEUE وهو احد بنى المعطيات وذلك لما له من فائدة في الاستخدام البرمجي
وايضا لان اغلب الاخوة لا يعرفون عنه شيئاً

اولا:
ما هو الصف QUEUE ؟
هو عبارة عن مصفوفة تحوي اي نوع من البيانات تقوم انت بتحديده ولكنها تتميز بأنها تتبع اسلوب ال FIFO والذي يعني First In First Out او الداخل اولا خارج اولا
اي انه لا يمكنك اخد الا العنصر الاول منها وبعدما تاخذه رح ينحذف من المصفوفة او الصف بالاحرى

هي تشبه طابور السينما الى حد كبير او اي طاور اخر
حيث يوجد ناس واقفين بالدور واللي يجي اول شي راح يدخل اول شي وهكذا

ثانياً:
كيف اعرف الـصف Queue ؟
من زمان كنا نقوم نحن ببرمجته
لكن الان هو جاهز ما عليك سوى ان تصرح عنه بهذه الطريقة
كود :
Dim Q As New Queue(Of String)

وطبعا تستطيع ان تحدد نوع بيانات اخر مكان String
المهم الان اصبح عندك صف جاهز للاستخدام

ثالثا:
كيف اضيف البيانات الى الصف Queue؟
كما قلت لك اصبح الصف جاهزاً ولا داعي لتشغل بالك باموره البرمجية لذا ما عليك الا ان تستخدم الدالة Enqueue ويتم ذلك بهذا الشكل
كود :
Q.Enqueue("Any String")

وبهذا الكود يتم ادخال النص Any String الى الصف ليأخذ دوره

رابعاً:
كيف استخرج البيانات من الصف Queue ؟
ايضا لا داعي للقلق فهذا اسهل مما تتصور
استخدم الدالة Dequeue وهي ستقوم بالمطلوب
ستعيد لك العنصر الاول من الصف ثم ستقوم بحذفه من الصف ومن ثم تقريب جميع القيم ليصبح الثاني هو الاول والثالث هو الثاني و هكذا
ويتم استخامها بهذا الشكل
كود :
Dim S As String = Q.Dequeue

هنا وضعنا العنصر الاول بالمتغير S وطبعا تستطيع استعماله كما تريد

خامساً:
بماذا يفيدني الصف Queue برمجياً؟
ممم هذا اهم سؤال
حسنا يفيدك كثيرا عند تصميم برنامج يقوم بمعالجة طلبات متعددة مثل ارسال ملفات او معالجة صور او صوت او اي برنامج يقوم بتنفيذ مهام
حيث انك تضع المهام في الصف ثم تستخرج منه مهمة تلو الاخرى و تنفذها

في النهاية اعذروني على طريقتي بالشرح فبالنهاية انا لست محترفاً

وهنا اريد ان اورد مثال صغير عن الصف
كود :
Public Class Form1
    Dim Q As New Queue(Of String)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 0 To 5
            Q.Enqueue(i)
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i = 1 To Q.Count
            MsgBox(Q.Dequeue)
        Next
    End Sub
End Class

فقط قم باضافة button واحد
ولاحظ سهولة استخدام الصف في ادخال البيانات و استعادتعا ومعالجتها
[/COLOR]


الملفات المرفقة
.rar   Queue.rar (الحجم : 61.41 ك ب / التحميلات : 43)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [شرح] اتصال بقاعدة بيانات اكسيس , اضافة بيان , تعديل بيان , حذف بيان , عرض البيانات . ahmed salam 20 9,122 26-09-16, 08:12 AM
آخر رد: abumuhannadzym
  [كود] استرجاع البيانات من ConnectionString silverlight 1 295 25-01-16, 05:08 PM
آخر رد: khodor1985
  [درس فيديو] حل مشكلة صلاحيات قواعد البيانات عند تغيير مسارها على الجهاز Operating System Error 5 أحمد النجار 1 417 31-12-15, 02:52 AM
آخر رد: WAEL ABED
  فيديو بالعربي تبادل البيانات بين Excel و VB.net أحمد النجار 0 555 03-06-15, 10:53 PM
آخر رد: أحمد النجار
  تحويل الفيديو في برامجك-الجزء الثاني( إصلاح للمشاكل + تعديل للروابط + توضيح للأمر ) RaggiTech 1 717 10-12-14, 06:37 PM
آخر رد: abulayth
  الجزء الثالث من:كيف تجعل الـ Text Box ذكي!يترجم العمليات الحسابية ويخرج الناتج (الأقواس المتعددة) !! أنس محمود 9 2,086 06-12-14, 10:11 PM
آخر رد: RFEE3 ALSHAN
  برمجة قواعد البيانات sql server + vb.net ابوهديل 1 5,831 13-02-14, 08:26 PM
آخر رد: Omar Mekkawy
  برمجة قواعد البيانات SQL Server + vb.net مع ابو عبد الرحمن مبرمج أوتار 3 2,465 07-06-13, 06:09 AM
آخر رد: مبرمج أوتار
  حساب قيمة معادلة(اقصد صيغة دون مجاهيل) مكتوبة بالتكست : الجزء الخامس والاخير محمد شريقي 3 910 28-05-13, 01:06 PM
آخر رد: Sajad
  الإصدار الاول من إضافة الرسائل ( Msge ) والصور مجانآ ali.alfoly 12 1,686 25-05-13, 01:10 PM
آخر رد: shaker.soft

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


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