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. :-)
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.