/
aprogrammer
/
dotnet-docs
Обзор
Документация
Войти
/
aprogrammer
/
dotnet-docs
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
main
samples/snippets/visualbasic/VS_Snippets_CLR_System/system.Threading.Timer/VB/source2.vb
35 строк
830 B
Next Turn
Format codes based on .editorconfig, Part 15 (#18959)
16 июн 2020, 14:56
Не верифицирован
16 июн 2020, 14:56
2eb0af2
Код
Авторство
О чём код?
' <snippet2> Imports System.Threading Module Program Private Timer As Timer Sub Main(args As String()) Dim StateObj As New TimerState StateObj.Counter = 0 Timer = New Timer(New TimerCallback(AddressOf TimerTask), StateObj, 1000, 2000) While StateObj.Counter <= 10 Task.Delay(1000).Wait() End While Timer.Dispose() Console.WriteLine($"{DateTime.Now:HH:mm:ss.fff}: done.") End Sub Private Sub TimerTask(ByVal StateObj As Object) Console.WriteLine($"{DateTime.Now:HH:mm:ss.fff}: starting a new callback.") Dim State As TimerState = CType(StateObj, TimerState) Interlocked.Increment(State.Counter) End Sub Private Class TimerState Public Counter As Integer End Class End Module ' </snippet2>