Probleem met countdown timer

[Cor de Snor]

Ik heb een lijst met verschillende starttijden. Ik wil 3 sec. voor vertrek een wav geluidsfragment afspelen en op de starttijd het scherm verversen met de gegevens van de volgende groep.
Als de afteltijd op "0:00:00" staat werkt dit niet Als er wordt verwezen naar een cel met het cijfer 0 dan werkt het wel

 

[edmoor]

Maak er dit van:

If Clng(Range("N13").Value) = 0 Then

 

[puppie]

Verplaatst naar de excel sectie en niet ter zake berichten weggehaald.

 

[Cor de Snor]

Bedankt voor de snelle reactie, maar het werkt niet. Op het tabblad zit een knop Add Go, deze kijkt naar cel N12 met als waarde 0, deze handeling wil ik laten werken bij een stand van 0:00:00 in Cel N13

 

[edmoor]

Bij een stand van 0:00:00 in N13 levert Clng(Range("N13").Value) het getal 0 op.

 

[Cor de Snor]

Ik zie helaas geen verandering in cel N13 en hoor geen wav geluid, hetgeen ik wil laten uitvoeren bij een stand van 0:00:00 in cel N13.
In Sub Cel staan dezelfe regels maar dan verwijzend naar N12 en dan werkt het wel.

 

[edmoor]

In je voorbeeld document staat er een 0 in N12.
Zet daar dan 00:00:00 neer en draai deze sub:

Sub test()
    If CLng(Range("N12").Value) = 0 Then
        MsgBox "Tijd voor een geluidje"
    End If
End Sub

Werkt prima.

 

[Cor de Snor]

Dit werkt inderdaad prima, ook voordat de toevoeging Clng erin stond. Maar ik wil een wav laten horen als de waarde in N13 "0:00:00" is en dat lukt nog niet

 

[edmoor]

Maar wat lukt er dan niet?
Die controle of het afspelen van de wav?

 

[Cor de Snor]

Als ik Sub RunPauseClk() draai loopt het telwerk van N13 door zonder dat het geluid wordt afgespeeld datzelfde geldt voor N11 het verversen van de regel op rijn 11, 12 en 13. Ik wil bij de stand "0:00:00" in N13 het geluid afspelen en bij dezelfde stand in N11 de regels verversen. Deze 2 routines staan ook in Sub Cel() alleen daar kijkt hij naar cel 12 (numeriek 0) en dan werkt het wel

 

[edmoor]

Ik heb dit net gecontroleerd en werkt hier gewoon:

    If CLng(Range("N13").Value) = 0 Then
        Call sndPlaySound32("C:\Windows\Media\ding.wav", 1)
    End If

 

[Cor de Snor]

Bij mij werkt het niet als in cel N13 "0:00:00" staat, als ik dit verander in het getal 0 dan werkt het wel. Dus kortom hoe coverteer ik "0:00:00" naar "0"

 

[Cor de Snor]

Hallo Edmoor, ik ben eruit hoor, ik heb in cel O13 de volgende formule geplaats "=(N13-INTEGER(N13))*3600*24" het script kijkt nu naar cel O13 om het wav-bestand te starten en het werkt naar behoren. In ieder geval toch bedankt

 

[HSV]

=REST(N13;1)*86400

is hetzelfde als..

[COLOR=#3E3E3E]=(N13-INTEGER(N13))*3600*24[/COLOR]