Countdown met alarm

Status
Niet open voor verdere reacties.

Jero156

Nieuwe gebruiker
Lid geworden
17 dec 2016
Berichten
2
Beste,

Ik heb een programma gemaakt met een alarm.
De alarm tijd moet ik nu zelf ingeven, maar wil dat dit gebeurt via een knop.

- wanneer ik op een button druk moet het alarm gezet worden maar dan huidige tijd min 30 minuten.

Dus de alarmtijd moet altijd gezet worden 30 minuten voor de huidige tijd.

Kan iemand mij een beetje op weg helpen ?

Vriendelijke groet,

Jeroen
 
De volgende code geeft je de alarmtijd een half uur voor de huidige tijd:
'splits tijdstring in uren, minuten en seconden
Dim uur As String = TimeString.Substring(0, 2)
Dim minuut As String = TimeString.Substring(3, 2)
Dim seconde As String = TimeString.Substring(6, 2)

'Als meer dan 30 minuten dan
If CInt(minuut) >= 30 Then
minuut = (CInt(minuut) - 30).ToString
Else 'indien minder dan 30 minuten
minuut = (CInt(minuut) + 60 - 30).ToString
uur = (CInt(uur) - 1).ToString
End If

'Alarmtijd samenstellen
Dim alarmtijd = uur & ":" & minuut & ":" & seconde

Ik heb met bovenstaande nog geen rekening gehouden met een tijd net na middennacht.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan