Countdown klokje

[novec]

Hallo

Ik heb een countdown klokje gemaakt. Waarbij telkens 60 seconden worden afgeteld tot 0

Ik gebruik dit voor mijn sport waar we na een minuut starten.
Allemaal wel aardig gelukt maar ...
de countdown is een loop in VBA en ik wil die loop onderbreken als de klok op 0 staat.
Ik heb het nodige gedaan met if statements maar krijg het niet voor elkaar.


Wie wil er even naar kijken svp

Bekijk bijlage time.xlsm

 

[edmoor]

Maak er eens dit van:

Public Sub CountDoun()
    Static Teller As Integer
    
    Teller = Teller + 1
    If Teller = 60 Then
        Teller = 0
        Exit Sub
    End If

    Range("l2").Value = Time()
    Application.OnTime Time() + TimeValue("00:00:01"), "Countdoun"

End Sub

 

[HSV]

Of:

Public Sub CountDoun()
Dim t As Date, a As Date
 t = Time
    Do
      Range("l2").Value = Time()
      a = DateAdd("s", 1, Time)
      DoEvents
    Loop Until a = t + TimeValue("00:01:01")
End Sub

 

[novec]

Helemaal top mensen.!!

Thanks.

Steven

 

[novec]

Alles werkt prima. Ben er blij mee.
Ik heb echter nog en verzoekje.

Ik zou graag af willen tellen in audio.
Ik heb een .wav bestandje van 1 minuut 10 waarbij op 1:10 wordt gezegd "Prepare to race!" daarna "oneminute", "50" , "40" enz.

Omdat audio lastig te starten is in VBA en omdat ik dan ook nog e.e.a. om moet bouwen waardoor dit 10 seconden gebeurd voordat de klok gaat lopen, heb ik een andere oplossing geprobeerd: application.speech
Maar ik krijg de case statement niet aan de praat
Ik gebruik expression maar dat werk niet.
Ik plaats hem in de loop. Dat is toch de juiste plaats?

Select Case_expression

Case a = t + TimeValue("00:00:00")
Application.Speech.Speak "One minute!"
Case a = t + TimeValue("00:00:10")
Application.Speech.Speak "50"

End Select

Bekijk bijlage time v1.01.xlsm

enig idee??

 

[HSV]

Zoiets.

Public Sub CountDoun()
Dim t As Date, a As Date
 t = Time
  Application.Speech.Speak "One minute!"
    Do
     DoEvents
      Range("l2").Value = Time()
      a = DateAdd("s", 1, Time)
    If a = t + TimeValue("00:00:10") Then Application.Speech.Speak "50"
    Loop Until a = t + TimeValue("00:01:01")
End Sub

 

[alphamax]

wav afspelen in VBA, zie http://www.cpearson.com/excel/PlaySound.aspx