Goedemiddag,
Ik ben bezig met het maken van een instelbare timer waarbij je bijvoorbeeld aangeeft: Ik wil gewekt worden om:
ComboBox1.Text (Uur) ComboBox1.Text (Minuten)
Dus bij de combobox1 kies het bijvoorbeeld 2 en combobox2 kies je 45: 2:45
Als de huidige tijd 12:37 is dan zou de applicatie je de volgende dag wakker moeten maken om 2:45.
Ik heb een Label waar de wektijd instaat: 2:45
En ik heb een label die de tijd tussen nu (12:37) en 2:45 moet aftellen, dit lukt mij echt op geen enkele manier
Tevens heb ik op dit moment als de timer klaar is dit gebruikt:
Dat bovenstaande werkt (hij opent het nummer is Winamp en speelt het af), maar de gebruiker kan dan het nummer niet meer veranderen
Ik zat te prutsen met dat je kunt bladeren naar het bestand wat je wilt gebruiken maar dat is me nog niet helemaal gelukt.
Als iemand daar een tip of misschien iets veel beters voor weet dan is dat van harte welkom.
Bedankt voor het lezen en ik hoop dat iemand me hierbij kan helpen
P.S.:
Ik gebruik de code die MartinJM voor me heeft uitgezocht om de timer af te laten tellen, hierbij is Extra_Uur de ComboBox1.Text en Extra_Minuten de ComboBox2.Text:
Ik ben bezig met het maken van een instelbare timer waarbij je bijvoorbeeld aangeeft: Ik wil gewekt worden om:
ComboBox1.Text (Uur) ComboBox1.Text (Minuten)
Dus bij de combobox1 kies het bijvoorbeeld 2 en combobox2 kies je 45: 2:45
Als de huidige tijd 12:37 is dan zou de applicatie je de volgende dag wakker moeten maken om 2:45.
Ik heb een Label waar de wektijd instaat: 2:45
En ik heb een label die de tijd tussen nu (12:37) en 2:45 moet aftellen, dit lukt mij echt op geen enkele manier
Tevens heb ik op dit moment als de timer klaar is dit gebruikt:
Code:
If Uur = Now.Hour And Minuut = Now.Minute And Seconde = Now.Second Then
Timer1.Enabled = False
Process.Start("D:\Muziek\Catz 538 Dance Smash 2012 Vol.1 (MP3) - [00+35] - 'Catz 538 Dance Smash 2012 Vol.1 (MP3).nzb' yEnc\538 Dance Smash 2012 Vol.1 (MP3)\01 - Avicii - Levels.mp3")
End IfDat bovenstaande werkt (hij opent het nummer is Winamp en speelt het af), maar de gebruiker kan dan het nummer niet meer veranderen
Ik zat te prutsen met dat je kunt bladeren naar het bestand wat je wilt gebruiken maar dat is me nog niet helemaal gelukt.
Als iemand daar een tip of misschien iets veel beters voor weet dan is dat van harte welkom.
Bedankt voor het lezen en ik hoop dat iemand me hierbij kan helpen
P.S.:
Ik gebruik de code die MartinJM voor me heeft uitgezocht om de timer af te laten tellen, hierbij is Extra_Uur de ComboBox1.Text en Extra_Minuten de ComboBox2.Text:
Code:
Public Sub Aftellen_Progressbar_Eind(Optional ByVal Extra_Uur As Integer = 0, Optional ByVal Extra_Minuten As Integer = 0, Optional ByVal Extra_Seconden As Integer = 0)
Eind_Uur = Extra_Uur - Now.Hour
Eind_Minuut = Extra_Minuten - Now.Minute
Eind_Seconde = Extra_Seconden - Now.Second
Dim BerekenTotaalUur As Integer = Eind_Uur - Now.Hour
Dim BerekenTotaalMinuut As Integer = Eind_Minuut - Now.Minute
Dim BerekenTotaalSeconde As Integer = Eind_Seconde - Now.Second
BerekenTotaalTerug:
If BerekenTotaalUur < 0 Then
BerekenTotaalUur += 24
GoTo BerekenTotaalTerug
ElseIf BerekenTotaalMinuut < 0 Then
BerekenTotaalUur -= 1
BerekenTotaalMinuut += 60
GoTo BerekenTotaalTerug
ElseIf BerekenTotaalSeconde < 0 Then
BerekenTotaalMinuut -= 1
BerekenTotaalSeconde += 60
GoTo BerekenTotaalTerug
End If
Totaal_Seconden = BerekenTotaalUur * 3600 + BerekenTotaalMinuut * 60 + BerekenTotaalSeconde
Terug:
If Eind_Uur > 24 Then
Eind_Uur -= 24
GoTo Terug
ElseIf Eind_Minuut > 60 Then
Eind_Uur += 1
Eind_Minuut -= 60
GoTo Terug
ElseIf Eind_Seconde > 60 Then
Eind_Minuut += 1
Eind_Seconde -= 60
GoTo Terug
End If
Timer1.Interval = 10
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim AftellenUur As Integer = Eind_Uur - Now.Hour
Dim AftellenMinuut As Integer = Eind_Minuut - Now.Minute
Dim AftellenSeconde As Integer = Eind_Seconde - Now.Second
AftellenTerug:
If AftellenUur < 0 Then
AftellenUur += 24
GoTo AftellenTerug
ElseIf AftellenMinuut < 0 Then
AftellenUur -= 1
AftellenMinuut += 60
GoTo AftellenTerug
ElseIf AftellenSeconde < 0 Then
AftellenMinuut -= 1
AftellenSeconde += 60
GoTo AftellenTerug
End If
End Sub
