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


بسم الله الرحمن الرحيم

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

[SIZE=4]اولا:

ما هو الصف 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 واحد
ولاحظ سهولة استخدام الصف في ادخال البيانات و استعادتعا ومعالجتها[/SIZE]



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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [شرح] اتصال بقاعدة بيانات اكسيس , اضافة بيان , تعديل بيان , حذف بيان , عرض البيانات . ahmed salam 21 12,470 03-10-17, 12:54 PM
آخر رد: كود برمجي
  Data Marshall silverlight 2 73 20-09-17, 01:48 PM
آخر رد: silverlight
  مقدمة إلي إخفاء المعلومات - الجزء الأول silverlight 5 479 07-01-17, 10:44 PM
آخر رد: Basil Abdallah
  مقدمة إلي إخفاء المعلومات - الجزء الثاني silverlight 1 348 06-01-17, 11:52 AM
آخر رد: silverlight
  [كود] استرجاع البيانات من ConnectionString silverlight 1 544 25-01-16, 05:08 PM
آخر رد: khodor1985
  [درس فيديو] حل مشكلة صلاحيات قواعد البيانات عند تغيير مسارها على الجهاز Operating System Error 5 أحمد النجار 1 701 31-12-15, 02:52 AM
آخر رد: WAEL ABED
  فيديو بالعربي تبادل البيانات بين Excel و VB.net أحمد النجار 0 806 03-06-15, 10:53 PM
آخر رد: أحمد النجار
  تحويل الفيديو في برامجك-الجزء الثاني( إصلاح للمشاكل + تعديل للروابط + توضيح للأمر ) RaggiTech 1 939 10-12-14, 06:37 PM
آخر رد: abulayth
  الجزء الثالث من:كيف تجعل الـ Text Box ذكي!يترجم العمليات الحسابية ويخرج الناتج (الأقواس المتعددة) !! أنس محمود 9 2,630 06-12-14, 10:11 PM
آخر رد: RFEE3 ALSHAN
  برمجة قواعد البيانات sql server + vb.net ابوهديل 1 6,345 13-02-14, 08:26 PM
آخر رد: Omar Mekkawy

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


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