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
Hinweis
: Das lesen des Artikels Timer
- listings ID: 1930
auf Dreamcodes,
sowie Link Verweise auf Internetseiten
fremder Anbieter erfolgen auf eigene Gefahr. Dreamcodes
haftet nicht für Schäden, die aus der Verwendung des
Inhaltes der Artikel erfolgen könnten. Schadenersatzansprüche, aus welchem
Rechtsgrund auch immer, sind ausgeschlossen !
Live Statistik
Datum: 20.04.2024
Uhrzeit: 14:15 Uhr
Online: 11 User
User heute: 5742
User allgem.: 33663645
Home
Startseite
Tutorials
Die Möglichkeit diesen Artikel zu verlinken
: