actie na 1 seconden verder van de timer

[WILLIAMXXX]

Heej

Alweer een vraag over de timer...
Weer timer1 en label: tijd
Als waarneer er 1 seconden bij komt hoe kan ik hem iets laten doen
Dus als het eerst bijvoorbeeld 12:00:00
En het wordt 12:00:01 dat die dan een bepaalde opdracht uitvoert die IK moet programmeren... Hoe doe je dat?
En de tijd moet alle tijdstippen kunenn zijn uiteraadt...:thumb:

 

[BrEeZeR]

Kan je niet verder gaan in je andere topic?

 

[WILLIAMXXX]

Vraag ik dat???

Nee...

 

[BrEeZeR]

Vraag ik dat???

Nee...

Nee dat vraag ik. Je hoeft over 1 onderwerp geen 2 topics te openen.

 

[WILLIAMXXX]

In allebei de topics heb ik toch een andere vraag???

Of ben je soms blind of verbeelding zient

 

[RonaldGJ]

Als je de tijd in een Label hebt staan doe je bijvoorbeeld dit:

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Label1_Change()
If Label1.Caption = "12:00:01" Then
Text1.Text = "Het is 1 seconde later dan 12 uur"
ElseIf Label1.Caption = "12:00:01" Then
Text1.Text = "Het is 2 seconde later dan 12 uur"
End If

Ik weet niet of het werkt, doe het zo ff uit het hoofd! Maar zijn er fouten, zeg het maar!
Succes ermee,

Greetz.. Ronald:thumb:

 

[WILLIAMXXX]

Als je de tijd in een Label hebt staan doe je bijvoorbeeld dit:

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Label1_Change()
If Label1.Caption = "12:00:01" Then
Text1.Text = "Het is 1 seconde later dan 12 uur"
ElseIf Label1.Caption = "12:00:01" Then
Text1.Text = "Het is 2 seconde later dan 12 uur"
End If

Ik weet niet of het werkt, doe het zo ff uit het hoofd! Maar zijn er fouten, zeg het maar!
Succes ermee,

Greetz.. Ronald:thumb:

Wacht is ff je zet de tijd tussen "" dat betekend altijd die tijd zal het gebeuren...
Het moet op elk tijdstip kunnen gebeuren anders kan je lang wachten...

 

[CoD_NL]

Wacht is ff je zet de tijd tussen "" dat betekend altijd die tijd zal het gebeuren...
Het moet op elk tijdstip kunnen gebeuren anders kan je lang wachten...

Hij geeft inderdaad de tijd hardcoded op. Je zou ook gewoon een variabele kunnen gebruiken.(dan wordt hij pas uitgevoerd wanneer de opgegeven tijd is bereikt)

Ooit gedacht om een boek te lezen over VB ?

 

[WILLIAMXXX]

Heb genoeg geleerd over vb.net maar niet zulke dingen direct hoe ik het toepas

 

[WILLIAMXXX]

Iemand nog een idee???​

 

[RonaldGJ]

Gebruik je vb.net?
Zoja, dan zal ik niet veel voor je kunnen betekenen. Sorry!

Succes ermee!
Grtz Ronald.

 

[WILLIAMXXX]

Je kunt ook wel vb6 code zeggen die kan ik dan wel 'vertalen' naar vb.net

 

[RonaldGJ]

Ik ga nu eten.. ik heb wel wat ideeën, die zal ik dan straks ff posten! Ik maak wel even wat en hopen dat het naar je zin is:thumb: .

Grtz, Ronald!

 

[WILLIAMXXX]

Succes met eten:thumb:

 

[RonaldGJ]

Kun je nog eens kort uitleggen wat je precies wil. Want ik snap niet of je zelf de tijd in wilt stellen, of dat je het op de tijd wil laten doen die het nu is, bijvoorbeeld nu: 18.50 uur! Dan zal ik even kijken wat ik voor je kan doen!

 

[WILLIAMXXX]

Het moet elk moment kunnen...
Iedere keer als er 1 seconde bij komt moet hij een opdracht uitvoeren...

de opdrachten heb ik al geprogrammeerd!

 

[RonaldGJ]

Ja oke, maar wil je dat op de huidige tijd doen of op een antal minuten (en seconden) nadat je het programma hebt gestart?

 

[WILLIAMXXX]

Direct als je het programma opstart!

En de tijd moet lopen op de huidige tijd van de pc

 

[RonaldGJ]

Het kan op verschillende manieren:

1. Je maakt een Label en een Timer aan en zet daar simpel de tijd in:

Private Sub Form_Load()
Label1.Caption = Time
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub

2. Je maakt 3 Labels en zet in elke Label apart het aantal uren, het aantal minuten en het aantal seconden, dat het op dat moment is:

Private Sub Form_Load()
Label1.Caption = Hour(Now)
Label2.Caption = Minute(Now)
Label3.Caption = Second(Now)
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Hour(Now)
Label2.Caption = Minute(Now)
If Label3.Caption = 59 Or Label3.Caption < 9 Then
Label3.Caption = "0" & Second(Now)
Else
Label3.Caption = Second(Now)
End If
End Sub

Zo kun je dus op de seconde op de minuut en op het uur af je programma wat laten doen! Wil je het maar 1 keer doen, dan kun je de datum er ook bij gebruiken:

Private Sub Form_Load()
Label1.Caption = Hour(Now)
Label2.Caption = Minute(Now)
Label3.Caption = Second(Now)
Label4.Caption = Day(Now)
Label5.Caption = Month(Now)
Label6.Caption = Year(Now)
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Hour(Now)
Label2.Caption = Minute(Now)
If Label3.Caption = 59 Or Label3.Caption < 9 Then
Label3.Caption = "0" & Second(Now)
Else
Label3.Caption = Second(Now)
End If
Label4.Caption = Day(Now)
Label5.Caption = Month(Now)
Label6.Caption = Year(Now)
End Sub

Wil je nu iets laten doen op een bepaald tijdstip. Dan kun je bijvoorbeeld zeggen:

Private Sub Form_Load()
Label1.Caption = Hour(Now)
Label2.Caption = Minute(Now)
Label3.Caption = Second(Now)
Label4.Caption = Day(Now)
Label5.Caption = Month(Now)
Label6.Caption = Year(Now)
Timer1.Interval = 1000
End Sub

Private Sub Label3_Change()
If Label3.Caption = 45 Then
MsgBox "Het aantal seconden is nu 45 seconden", vbOKOnly + vbExclamation, "Tijd..."
End If
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Hour(Now)
Label2.Caption = Minute(Now)
If Label3.Caption = 59 Or Label3.Caption < 9 Then
Label3.Caption = "0" & Second(Now)
Else
Label3.Caption = Second(Now)
End If
Label4.Caption = Day(Now)
Label5.Caption = Month(Now)
Label6.Caption = Year(Now)
End Sub

Om kort in 1 Label de datum ze zetten kun je ook gewoon doen Label1.Caption = Date!


Nou, ik hoop dat je er wat aan hebt gehad! En succes er verder maar mee!
Greetz, Ronald!

 

[WILLIAMXXX]

Private Sub Label3_Change()
If Label3.Caption = 45 Then
MsgBox "Het aantal seconden is nu 45 seconden", vbOKOnly + vbExclamation, "Tijd..."
End If
End Sub

Als ik het goe raadt is dat de opdracht?
maar het woord Change ken die niet:evil:
Wat moet er anders neer zetten???

De rest werkt wel:thumb: