Tutorials Infos - Anleitungen - Hilfe - Dreamcodes
 

Timer

Einen Timer nutzen:

Module Timertest
Sub main()
Dim t As New Timers.Timer()
AddHandler t.Elapsed, AddressOf ping
t.Interval = 2000
t.Start()
Threading.Thread.Sleep(10000)
t.Stop()
End Sub
Sub ping(ByVal src As Object, ByVal e As Timers.ElapsedEventArgs)
Console.WriteLine("PING: {0}", e.SignalTime)
End Sub
End Module

 
ID: 1930
eingestellt am: 25.01.2010
Autor: Keine Angabe
Status zum lesen: Gast
gelesen: 5349
Webseite: www.dreamcodes.com
[Drucken]