в 16:40, 26 мая 2010

2010-05-26T16:40:16Z

Admin: 1 версия

2010-05-26T12:51:15Z

1 версия

Новая страница

==Stack.Count==

<source lang="vbnet">

Imports System
Imports System.Collections
Imports System.Collections.Specialized

Public Class MainClass

Shared Sub Main(ByVal args As String())
Dim letter_stack As New Stack

" Add the letters to the stack.
For i As Integer = 0 To 10
Console.WriteLine(i)
letter_stack.Push(i)
Next
" Remove the letters from the stack.
Do While letter_stack.Count > 0
Console.WriteLine( DirectCast(letter_stack.Pop(), Integer) )
Loop
End Sub
End Class

</source>

==Stack.IsSynchronized==

<source lang="vbnet">
Imports System.Threading
Imports System.Collections
public class Test
public Shared Sub Main
Dim S1 As New Stack()
Dim SyncS1 As Stack = Stack.Synchronized(S1)
Console.WriteLine("SyncS1: " & SyncS1.IsSynchronized.ToString())
Console.WriteLine("S1: " & S1.IsSynchronized.ToString())
End Sub
End class

</source>

==Stack.Peek()==

<source lang="vbnet">
Imports System
Imports System.Collections

Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim intStack As New Stack( )
" populate the stack
Dim i As Integer
For i = 0 To 7
intStack.Push((i * 5))
Next i
" Display the Stack.
Console.WriteLine("intStack values:")
DisplayValues(intStack)
" Remove an element from the stack.
Console.WriteLine("(Pop){0}", intStack.Pop( ))
" Display the Stack.
Console.WriteLine("intStack values:")
DisplayValues(intStack)
" Remove another element from the stack.
Console.WriteLine("(Pop){0}", intStack.Pop( ))
" Display the Stack.
Console.WriteLine("intStack values:")
DisplayValues(intStack)
" View the first element in the
" Stack but do not remove.
Console.WriteLine("(Peek) {0}", intStack.Peek( ))
" Display the Stack.
Console.WriteLine("intStack values:")
DisplayValues(intStack)
End Sub
Public Shared Sub DisplayValues(ByVal myCollection As IEnumerable)
Dim myEnumerator As IEnumerator = myCollection.GetEnumerator( )
While myEnumerator.MoveNext( )
Console.WriteLine("{0} ", myEnumerator.Current)
End While
Console.WriteLine( )
End Sub "DisplayValues
End Class

</source>

==Stack.Pop()==

<source lang="vbnet">

Imports System
Imports System.Collections
Imports System.Collections.Specialized

Public Class MainClass

Shared Sub Main(ByVal args As String())
Dim letter_stack As New Stack

" Add the letters to the stack.
For i As Integer = 0 To 10
Console.WriteLine(i)
letter_stack.Push(i)
Next
" Remove the letters from the stack.
Do While letter_stack.Count > 0
Console.WriteLine( DirectCast(letter_stack.Pop(), Integer) )
Loop
End Sub
End Class

</source>

==Stack.Push==

<source lang="vbnet">

Imports System
Imports System.Collections
Imports System.Collections.Specialized

Public Class MainClass

Shared Sub Main(ByVal args As String())
Dim letter_stack As New Stack

" Add the letters to the stack.
For i As Integer = 0 To 10
Console.WriteLine(i)
letter_stack.Push(i)
Next
" Remove the letters from the stack.
Do While letter_stack.Count > 0
Console.WriteLine( DirectCast(letter_stack.Pop(), Integer) )
Loop
End Sub
End Class

</source>

==Stack.Synchronized==

<source lang="vbnet">

Imports System.Threading
Imports System.Collections
public class Test
public Shared Sub Main
Dim S1 As New Stack()
Dim SyncS1 As Stack = Stack.Synchronized(S1)
Console.WriteLine("SyncS1: " & SyncS1.IsSynchronized.ToString())
Console.WriteLine("S1: " & S1.IsSynchronized.ToString())
End Sub
End class

</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net by API/System.Collections/Stack - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия