clock chime every 30 min and every hour?

[Dummy1912]

hallo,

iemand die me kan helpen met dit?
ik zou graag via een resource de geluid laten werken

mijn klok zou dan elke 30 min een geluid moeten weergeven
en elke uur.

ik werk met een timer
en

        If My.Computer.Clock.LocalTime.Hour.ToString.Length = 1 Then
            Hour = "0" & My.Computer.Clock.LocalTime.Hour.ToString


        If My.Computer.Clock.LocalTime.Minute.ToString.Length = 1 Then
            Minute = "0" & My.Computer.Clock.LocalTime.Minute.ToString


        If My.Computer.Clock.LocalTime.Second.ToString.Length = 1 Then
            Second = "0" & My.Computer.Clock.LocalTime.Second.ToString

Iemand die me hierbij kan helpen

bedankt

Dummy1912

 

[rowano]

Hey Dummy1912

dit zou moeten werken:

    Dim SoundPathHalfHour As String = "C:\  ... \alarm.wav" 'vergeet deze niet in te vullen
    Dim SoundPathHour As String = "C:\ ... \alarm2.wav"

    Dim LastSaved(1) As String

    Sub Geluidje(ByVal tijd As String) '--> uur & ":" & minuten & ":" & seconden   (die dubbele punten zijn nodig)
        Dim tijden As String() = Split(tijd, ":")
        If tijden(1) = 0 Then
            If Not LastSaved(0) = tijden(0) And Not LastSaved(1) = tijden(1) Then
                Uur()
            End If
        End If

        If tijden(1) = 30 Then
            If Not LastSaved(0) = tijden(0) And Not LastSaved(1) = tijden(1) Then
                HalfUur()
            End If
        End If

    End Sub

    Sub Uur()
        My.Computer.Audio.Play(SoundPathHour, AudioPlayMode.Background)
    End Sub

    Sub HalfUur()
        My.Computer.Audio.Play(SoundPathHalfHour, AudioPlayMode.Background)
    End Sub



    Private Sub Timer1_() Handles Timer1.Tick
        Dim hour, Minute, Second As String
        If My.Computer.Clock.LocalTime.Hour.ToString.Length = 1 Then
            hour = "0" & My.Computer.Clock.LocalTime.Hour.ToString
        Else
            hour = My.Computer.Clock.LocalTime.Hour.ToString
        End If

        If My.Computer.Clock.LocalTime.Minute.ToString.Length = 1 Then
            Minute = "0" & My.Computer.Clock.LocalTime.Minute.ToString
        Else
            Minute = My.Computer.Clock.LocalTime.Minute.ToString
        End If

        If My.Computer.Clock.LocalTime.Second.ToString.Length = 1 Then
            Second = "0" & My.Computer.Clock.LocalTime.Second.ToString
        Else
            Second = My.Computer.Clock.LocalTime.Second.ToString
        End If
        Me.Text = Minute & ":" & Second & ":" & hour 'zodat je de tijd ook kan zien als de form ingeklapt is
        Geluidje(Minute & ":" & Second & ":" & hour) 'hier slaat hij om de halve minuut, (dat is makkelijker te testen)
    End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 1000
        Timer1.Start()
    End Sub

vergeet niet de SoundPath'ss in te vullen

mvg rowano

 

[Dummy1912]

Hey buddy,

bedankt voor de code
maar zit met een klein vraagje

als de seconden op 00 springen komt er een geluid maar als de sconden op 31 staan doet hij dat ook?

kan dit en waarom staat er Minuten : seconden : hour ? is hier een reden voor.

Dummy1912