actie na 1 seconden verder van de timer

[RonaldGJ]

Dat is inderdaad de opdracht!:thumb:
Ik zou niet weten wat er op de plaats van Change moet staan , in VB6.0 doet hij het wel! Misschien dat je dat even op kunt zoeken op google ofzo, VB.NET en dan Change Label. Is vast wel te vinden.

Gelukkig doet de rest het wel

Grtz, Ronald!

 

[WILLIAMXXX]

Sorry, zei het fout Change kent die wel?
Maar er gebeurd niets en als ik Chang of Chan etc neerzet zegt die niet dat het fout is!
Misschien kent die het toch niet!

 

[WILLIAMXXX]

Het enigste wat ik nog zou moeten weten hoe de pc de opdracht op elk moment kan uitvoeren...
Ik nou zelf een code als ik met toeval klik werkt het...

    Public Sub tijdspel()
        If Label24.Text = 30 Then
            Msgbox("Het is nu 30 seconden")
            Update()
        End If
    End Sub

Maar als ik het bij het laden neer zet gebeurt er niks als het 30 seconden is...

hoe kan dit wel?

 

[RonaldGJ]

Wat voor code heb je bij het laden staan dan?

 

[WILLIAMXXX]

Private Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'tijd beginnen
Timer1.Enabled = True
tijd.Text = System.DateTime.Now
Label22.Text = Hour(Now)
Label23.Text = Minute(Now)
Label24.Text = Second(Now)
Timer1.Interval = 1000
End Sub

 

[RonaldGJ]

Dat is verder geloof ik wel goed:thumb: Maar hoe dat met Change zit, ik weet het niet !
Ik zal nog eens zoeken!

Grtz Ronald!

 

[RonaldGJ]

Het enigste wat ik nog zou moeten weten hoe de pc de opdracht op elk moment kan uitvoeren...
Ik nou zelf een code als ik met toeval klik werkt het...

    Public Sub tijdspel()
        If Label24.Text = 30 Then
            Msgbox("Het is nu 30 seconden")
            Update()
        End If
    End Sub

Maar als ik het bij het laden neer zet gebeurt er niks als het 30 seconden is...

hoe kan dit wel?

Heb je zelf een Sub gemaakt??

 

[WILLIAMXXX]

Jep

 

[WILLIAMXXX]

Ik heb het nu zelf al helemaal zelf uitgevonden!!!

Heb er 2 label's bij getekent.
In de label26 komen de seconden
In label25 komen de minuten

Dit is nu de code:

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        tijd.Text = System.DateTime.Now
        'volgende opdracht
        Label22.Text = Hour(Now)
        Label23.Text = Minute(Now)
        If Label22.Text = 59 Or Label22.Text < 9 Then
            Label24.Text = "0" & Second(Now)
        Else
            Label24.Text = Second(Now)
        End If

        If Label24.Text + 1 Then
            Label26.Text += 1
        End If

        If Label26.Text = 59 Then
            Label25.Text += 1
            Label26.Text = 0
        End If
    End Sub

Als je het een beetje snapt, snap je dat er weer nieuwe tijd bij komt lopen zo kan ik steeds met if de opdrachten maken...

 

[RonaldGJ]

Ik snap het

Mooi dat het gelukt is en succes met je opdracht verder!:thumb:

Greetz, Ronald!

 

[mrlittle]

tijd

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...

bedankt voor je oplossing kan er mee uit de voeten.
ik gebruik de seconde als aansturing van een clear opdracht
Mrlittle