Stacki - pile

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 934 fois - Téléchargée 17 fois

Contenu du snippet

Stacki est une classe de gestion de "pile". Il permet surtout de comprendre le principe des piles.

Fonction :
- Push
- Peek
- Pop
- CountStack

Source / Exemple :


Stacki.vb :

' Class Stacki by iLgend
Public Class Stacki

    Private StackList As New List(Of StackClass)

    Public Sub Push(ByVal Value As String)

        ' Insère une valeur en haut de la pile

        Dim StackPush As New StackClass
        StackPush.Position = 1
        StackPush.Value = Value

        For Each Position In StackList

            Position.Position -= 1

        Next

        StackList.Add(StackPush)

    End Sub

    Public Function Peek()

        ' Retourne la valeur en haut de la pile sans la supprimer

        For Each Position In StackList

            If Position.Position = 1 Then

                Return Position.Value

            End If

        Next

        Return 0

    End Function

    Public Function Pop()

        ' Supprime et retourne la valeur en haut de la pile

        Dim PositionPop As New StackClass

        For Each Position In StackList

            If Position.Position = 1 Then

                PositionPop = Position

            End If

            Position.Position += 1

        Next

        StackList.Remove(PositionPop)

        For Each Position In StackList

            If Position.Position = 1 Then

                Return Position.Value

            End If

        Next

        Return 0

    End Function

    Public Function CountStack()

        ' Obtient le nombre de valeurs dans la pile

        Return StackList.Count

    End Function

    Private Class StackClass

        Public Position As Integer
        Public Value As String

    End Class

End Class

Conclusion :


Voir la source. :-)

A voir également

Ajouter un commentaire

Commentaires

cs_Blodox
Messages postés
134
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
24 octobre 2010

lol
cs_glad
Messages postés
97
Date d'inscription
lundi 26 novembre 2001
Statut
Membre
Dernière intervention
24 février 2012

Blodox :-)) !
On sent le "vieux" qui a galéré
Les djeuns n'ont jamais entendu parlé de 8086 :-P, il n'y a eu que des pentiums pour eux :-))
Aïe ! Pas taper !!
cs_Blodox
Messages postés
134
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
24 octobre 2010

Si tu avais fait un peu d'assembleur 8086...
cs_gasore
Messages postés
1
Date d'inscription
dimanche 26 septembre 2010
Statut
Membre
Dernière intervention
27 septembre 2010

Pas mal pour un débutant non?
cs_iLgend
Messages postés
4
Date d'inscription
samedi 12 juin 2010
Statut
Membre
Dernière intervention
12 juin 2015

"Il permet surtout de comprendre le principe des piles.", j'avoue quele code n'est pas intéressent en lui même comme on le trouve n'importe où et qu'il existe une class "Stack" en VB.Net.

Merci NEXPER

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.