+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : Stack & Queue Classes (/showthread.php?tid=4724)
Stack & Queue Classes - RaggiTech - 01-10-12
كاتب الموضوع : !!! BoriS !!!
الفئة Stack :تمكنك هذه الفئة بقوة ومرونة عند التعامل م العناصر بصورة اوضح مع المدخلات والمخرجات بحيث انها تمكنك من تطبيق Lifo Algorithm --- (اختصارا الى Last In First Out) وهو خوارزم شهير يمكنك من جعل اول عنصر يضاف هو اخر عنصر يتم طبعة او اخراجة
الفئة Stack ليها طريقتين هامين : ...
الطريقة Push : : :
لاضــافة عنصر جيد
الطريقة Pop : : :
لقراءة عنصــر
كود :
[color=#000000][COLOR=#0000bb]Dim MyStack [/color][color=#007700]As [/color][color=#0000bb]Stack [/color][color=#007700]= New [/color][COLOR=#0000bb]Stack
MyStack[/COLOR][color=#007700].[/color][color=#0000bb]Push[/color][color=#007700]([/color][color=#0000bb]10[/color][color=#007700]) : [/color][color=#0000bb]MyStack[/color][color=#007700].[/color][color=#0000bb]Push[/color][color=#007700]([/color][color=#0000bb]20[/color][color=#007700]) : [/color][color=#0000bb]MyStack[/color][color=#007700].[/color][color=#0000bb]Push[/color][color=#007700]([/color][color=#0000bb]30[/color][COLOR=#007700])
[/COLOR][color=#0000bb]MessageBox[/color][color=#007700].[/color][color=#0000bb]Show[/color][color=#007700]([/color][color=#0000bb]MyStack[/color][color=#007700].[/color][color=#0000bb]Pop[/color][COLOR=#007700])
[/COLOR][/COLOR]المخرجـــات 30
وعلى العكس يوجد الفئة Queue
تتطبق خوارزم First In First Out
كود :
[color=#000000][COLOR=#0000bb] Dim MyQueue [/color][color=#007700]As [/color][color=#0000bb]Queue [/color][color=#007700]= New [/color][color=#0000bb]Queue[/color][color=#007700]([/color][color=#0000bb]100[/color][COLOR=#007700])
[/COLOR][color=#0000bb]MyQueue[/color][color=#007700].[/color][color=#0000bb]Enqueue[/color][color=#007700]([/color][color=#0000bb]10[/color][color=#007700]) : [/color][color=#0000bb]MyQueue[/color][color=#007700].[/color][color=#0000bb]Enqueue[/color][color=#007700]([/color][color=#0000bb]20[/color][color=#007700]) : [/color][color=#0000bb]MyQueue[/color][color=#007700].[/color][color=#0000bb]Enqueue[/color][color=#007700]([/color][color=#0000bb]30[/color][COLOR=#007700])
[/COLOR][color=#0000bb]MessageBox[/color][color=#007700].[/color][color=#0000bb]Show[/color][color=#007700]([/color][color=#0000bb]MyQueue[/color][color=#007700].[/color][color=#0000bb]Dequeue[/color][COLOR=#007700])
[/COLOR][/COLOR]المخرجات 10
تحياتى