البنى الديناميكية في VB.NET

????????????????? بصراحة لم افهم ولا كلمة ارجو ان توضح السؤال اخي riatta :)

السلام عليكم

سؤال الاخ كان واضحا وهو يتحدث عن هياكل البيانات Data structure

واحد هذه الهيكليات هى القائمة المتصله التى يسئل عنها

ولن تحتاج الى مؤشرات حقيقية

واليك الكود

Option Strict Off
Imports System
    'Class Node to hold the Linklist Item.
    
     Public Class Node
        Public Value As Integer
        Public NextNode As Node = Nothing
        'Constructor
        Public Sub New(ByVal NewValue As Integer)
            MyBase.New()
            Me.Value = NewValue
        End Sub
    End Class
    'Linked List Class.  
    
   Public Class LinkedList
        Private m_head As Node = Nothing
        Private m_tail As Node = Nothing
        'Adding to Linklist
        Public Function Add(ByVal iValue As Integer) As Boolean
            Dim curNode As Node = m_head
            While Not (curNode Is Nothing)
                If (curNode.Value = iValue) Then Return False
                curNode = curNode.NextNode
            End While
            Dim newNode As Node = New Node(iValue)
            If (m_tail Is Nothing) Then
                m_tail = newNode
                m_head = m_tail
            Else
                m_tail.NextNode = newNode
                m_tail = newNode
            End If
            Return True
        End Function
        'Remove from link list
        Public Function Remove(ByVal iValue As Integer) _
              As Boolean
            Dim prevNode As Node = Nothing
            Dim curNode As Node = m_head

            While Not (curNode Is Nothing)
                If (curNode.Value = iValue) Then
                    If (prevNode Is Nothing) Then
                        If (m_head Is m_tail) Then
                            m_tail = Nothing
                            m_head = m_tail
                        Else
                            m_head = m_head.NextNode
                        End If
                    Else
                        prevNode.NextNode = curNode.NextNode
                        Exit While
                    End If
                    Return True
                End If
                prevNode = curNode
                curNode = curNode.NextNode
            End While
            Return False
        End Function
        'Find a specific node in linklist
        Public Function FindNode(ByVal iValue As Integer) As Node
            Dim curNode As Node = m_head
            While Not (curNode Is Nothing)
                If curNode.Value = iValue Then Return curNode
                curNode = curNode.NextNode
            End While
            Return Nothing
        End Function
        'Swap the Node position in linked list
        Public Function SwapPositions(ByVal iValue1 As Integer, _
          ByVal iValue2 As Integer) As Boolean
            Dim curNode As Node = m_head
            Dim Node1 As Node = Nothing
            Dim Node2 As Node = Nothing
            Dim prevNode As Node = Nothing
            Dim prevNode1 As Node = Nothing
            Dim prevNode2 As Node = Nothing

            If iValue1 = iValue2 Then
                Return False
            End If

            While Not (curNode Is Nothing)
                If (curNode.Value = iValue1) Then
                    prevNode1 = prevNode
                    Node1 = curNode
                ElseIf (curNode.Value = iValue2) Then
                    prevNode2 = prevNode
                    Node2 = curNode
                End If

                If (Not (Node1 Is Nothing)) And (Not (Node2 Is Nothing)) Then
                    Exit While
                End If

                prevNode = curNode
                curNode = curNode.NextNode
            End While

            If Node1 Is Nothing Or Node2 Is Nothing Then _
                 Return False

            If (prevNode1 Is Nothing) Then
                m_head = Node2
            Else
                prevNode1.NextNode = Node2
            End If
            If (prevNode2 Is Nothing) Then
                m_head = Node1
            Else
                prevNode2.NextNode = Node1
            End If
            Dim tmp As Node = Node1.NextNode
            Node1.NextNode = Node2.NextNode
            Node2.NextNode = tmp

            Return True
        End Function
        'Display 
        Public Sub Draw()
            Dim curNode As Node = m_head
            Debug.Write("List: ")
            While Not (curNode Is Nothing)
                Debug.Write(curNode.Value & "  ")
                curNode = curNode.NextNode
            End While
            Debug.WriteLine("")
        End Sub
    End Class

اخي بصراحة انا لم افهم هل من الممكن ان تشرح المؤشرات

اقتباس

اخي بصراحة انا لم افهم هل من الممكن ان تشرح المؤشرات

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

اقتباس

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

قال يعني هوا كده فهم

انت عامل زي واحد بيسأل واحد يعني ايه SUB ده رد عليه و قال له دي حاجة كده عاملة زي ال Function بس مالهاش Arguments :D :D

اقتباس

انت عامل زي واحد بيسأل واحد يعني ايه SUB ده رد عليه و قال له دي حاجة كده عاملة زي ال Function بس مالهاش Arguments

لا يا راجل قصدك بس ملهاش Return ,

الصراحه أنا معنديش فكره عن الـ Data structure ولو حد يعرف عنها كتاب بالدوت نت يبقي يبعت ,,,

اقتباس

قال يعني هوا كده فهم

انت عامل زي واحد بيسأل واحد يعني ايه SUB ده رد عليه و قال له دي حاجة كده عاملة زي ال Function بس مالهاش Arguments 

سبب ردى هذا ان الموضوع محتاج لشرح مطول وساحاول لو لقيت وقت شرح data structure وكيف تطبيقها فى vb.net

لا يا راجل قصدك بس ملهاش Return ,

يابني ما هوا ده لب الموضوع :D :D :D

انا بعرف أن المؤشرات من أساس قوة ++C

ماذا أتى بها لهنا

اقتباس

انا بعرف أن المؤشرات من أساس قوة ++C

ماذا أتى بها لهنا

بدأ اللبس فى الموضوع

وكمان vb.net فيها مؤشرات وبما انك مهووس فى التعامل مع الجرافيك اكيد حتلجاء لاستخدام الموشرات :rolleyes:

السلام على من اتبع الهدى

عذرا على عدم ردي السريع لأنني لا أستعمل الأنترنت كثيرا

أشكركم أخوتي على ردكم

وخاصة solo.net الذي أتمى أن يقدم شرحا للكود الذي قدمه

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

اقتباس

أشكركم أخوتي على ردكم

وخاصة solo.net الذي أتمى أن يقدم شرحا للكود الذي قدمه

/index.php?showtopic=66885