sound endlosschleife bzw. wecker

hi,
habe vor kurzem erst autoit für mich entdeckt und stehe nun vor meinem ersten problem ...:

ich habe ein programm geschrieben, welches den bildschirm nach einer bestimmten farbe durchsuchen soll, wenn eben diese farbe gefunden wird soll ein sound ausgegeben werden und dazu ein fenster erscheinen. der sound soll wie eine art wecker solange gespielt werden, bis der user in dem fenster auf ok geklickt hat. soweit so gut, mein problem ist jetzt dass der sound zwar gespielt wird, aber ich entweder keine endlosschleife hinbekomme oder das fenster erst erscheint, wenn die sounddatei endgültig abgespielt wurde.
noch kurz der quelltext (bitte nicht über die unordnung wundern, hab da schon so einiges ausprobiert):

mfg inkubus

mmh joa, dank dir, geht auf jeden fall in die richtige richtung :). jetzt fehlt nurnoch die endlosschleife der sounddatei ... hab das auch schonmal mit ner schleife probiert, aber irgendwie macht er jedesmal nach einmaligen abspielen wieder schlapp.

Nicht getestet, sollte aber gehen.

Edit: Ups, die Leichtsinnsfehler immer -> korrigiert.

Zitat von Inkubus

mmh joa, dank dir, geht auf jeden fall in die richtige richtung :). jetzt fehlt nurnoch die endlosschleife der sounddatei ... hab das auch schonmal mit ner schleife probiert, aber irgendwie macht er jedesmal nach einmaligen abspielen wieder schlapp.

na machs doch einfach so, dass du den sound in die fenster abfrage einbaust, wei ldu wolltest den doch so lange abspielen bis jemand einen besitmmten button klickt.

zB

GUICreate('Wecker',250,110,-1,-1)

$button = guictrlcreatebutton ("ok", 10,42,40,20)

GUISetState ()

while 1
$sound = SoundPlay("H:\Alarm.wav", 0)

$msg = guigetmsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $button
exitloop
endselect
wend

Zitat von Taek

Spoiler anzeigen

[autoit]

#include <Sound.au3>

[/autoit] [autoit][/autoit] [autoit]

Global Const $MSG_OK = 1

[/autoit] [autoit][/autoit] [autoit]

While 1
; Get initial checksum
$checksum = PixelChecksum(0,0, 256,500)

[/autoit] [autoit][/autoit] [autoit]

; Wait for the region to change, the region is checked every 100ms to reduce CPU load
While $checksum = PixelChecksum(0,0, 256, 500)
Sleep(100)
WEnd

[/autoit] [autoit][/autoit] [autoit]

; Find a orange pixel in the range 0,0-20,300
$coord = PixelSearch( 0, 0, 256, 500, 0xE66008)

[/autoit] [autoit][/autoit] [autoit]

If IsArray ($coord) Then

_Alarm(1)
; MessageBox Flags = 262144 + 4096 + 64 + 0
$iMsg = MsgBox(266304,'Achtung','Angriff!' & @TAB & @CRLF)
; Prüfen ob der OK Button gedrückt wurde
If $iMsg == $MSG_OK Then
_Alarm(0)
ExitLoop
EndIf
EndIf
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func Alarm($status)
While $status = 1
$sound = SoundPlay("H:\Alarm.wav", 1)
WEnd
EndFunc

[/autoit]

Nicht getestet, sollte aber gehen.

Alles anzeigen

du rufst die funktion mit nem unterstrich davor auf. (_Alarm())

bekomme aber bei beiden versionen keine endlosschleife ...
bei $sound = SoundPlay("H:\Alarm.wav", 1) bekomme ich (bei Teak's version) kein fenster und bei darksideofsanta's version kann ich das fenster wiederrum nicht wegklicken.

bei $sound = SoundPlay("H:\Alarm.wav", 0) bekomm ich bei beiden versionen keine soundwiedergabe. dafür aber bei darksideofsanta's version ein fenster, welches ich wegklicken kann, bei teak bekomm ich garnichts...

wie ichs auch drehe und wende, ich bekomme entweder ein fenster zum wegklicken oder der sound spielt dauerhaft, beides geht irgendwie nicht.

hab mir mal aus allen vorschlägen was gebastelt. sieht vielleicht nich schön aus, aber es funktioniert :

danke an alle die mir geholfen haben .