Playing sound every 16th minute of every hour

[autoit180]

Hi,

Please help me to improve a script

the purpose: playing sound every 16th minute of an hour

what I wrote is that:

$r=1
While $r=1
if @MIN = 16 Then
    SoundPlay("c:\1.wav")
EndIf
WEnd

is there any better script?

[will88]

whats the point in

$r=1
While $r=1

when the value of $r never changes?

While 1
If @MIN = 16 Then
    SoundPlay("C:\1.wav")
EndIf
WEnd

[BinaryBrother]

Keep in mind with a loop like that, the script is going to consume massive CPU, as well as play the sound, (weather audible or not) MANY times in that 16th minute... I suggest something like...

While 1
     If @MIN = 16 Then
          SoundPlay("C:\test.wav",1)
          Sleep(60000)
     EndIf
     sleep(1000)
WEnd

That way the second it hits the 16th minute, you clearly hear the sound... and you don't hear it again until the next 16th minute... It doesn't consume CPU, and slower machines won't sound like a skipping record for 60 seconds...

Edited March 6, 2009 by BinaryBrother

[BrettF]

My grossly over complicated addition...

Global $minute = 16
Global $hour = -1;Any hour
Global $played = 0
AdlibEnable("_Chimer", 1000)

While 1
    Sleep(100)
WEnd

Func _Chimer()
    Local $lhour, $lminute = @MIN
    If $hour = -1 Then $lhour = @HOUR
    If $lminute = $minute Then
        If Not $played Then
            SoundPlay(@WindowsDir & "\MEDIA\notify.WAV")
            $played = 1
        ;I did this to test for more than one case...
        ;$minute += 1
        EndIf
    Else
        $played = 0
    EndIf
EndFunc  ;==>_Chimer

[BinaryBrother]

Never thought someone could turn basic math into quantum physics... You probably just caused 'AutoIt180' to give up AutoIt forever...