login  Naam:   Wachtwoord: 
Registreer je!
 Forum

handeling als ingevoerd tijdstip bereikt is

Offline chth - 06/02/2013 21:23
Avatar van chthLid k ben al een tijdje aan het zoeken hoe ik een bepaalde handeling kan laten uitvoeren wanneer een bepaald tijdstip bereikt is.
Het is de bedoeling dat ik dus via een textbox een tijdstip (vb: 14:15:00) invoer, en wanneer het dan 14:15:00 is, er een melding verschijnt.

Ik heb een textbox (TxtTijd1) en ik gebruik 1 timer

  1. Public Class FrmMain
  2. Private Sub FrmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  3. Timer1.Enabled = True
  4. If (TimeOfDay = TxtTijd1.Text) Then
  5. MsgBox("tijd")
  6. End If
  7.  
  8. End Sub
  9.  
  10. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  11. Label1.Text = TimeOfDay
  12. Label2.Text = "Date: " + DateString
  13.  
  14. End Sub
  15. End Class


Kan iemand mij helpen hoe ik dit voor elkaar krijg, eventueel met een voorbeeld?


Dank bij voorbaat

1 antwoord

Gesponsorde links
Offline Mario - 06/02/2013 23:09
Avatar van Mario Crew algemeen
  1. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  2.  
  3. Dim dt As Date
  4.  
  5. Label1.Text = CStr(TimeOfDay)
  6. Label2.Text = "Date: " + DateString
  7.  
  8. If DateTime.TryParse(TxtTijd1.Text, dt) Then
  9. If TimeOfDay = CDate(TxtTijd1.Text) Then MessageBox.Show("tijd")
  10. End If
  11.  
  12. End Sub
  13.  
  14. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  15.  
  16. With Timer1
  17. .Interval = 1000
  18. .Enabled = True
  19. End With
  20. End Sub
Gesponsorde links
Je moet ingelogd zijn om een reactie te kunnen posten.
Actieve forumberichten
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.168s