PureBoard

Verfasst: **07.02.2005 15:35**

Wenn ich den folgenden Code ausführe spielt er den Sound immer nur
einmal.

Procedure SoundPlay(quark)
  Sound_Kontinuierlich=1
  If Sound
    MCI_Load(1, Sound_Path)
    If Sound_Kontinuierlich
      Repeat
        MCI_Play(1)
        Sound_Laenge=MCI_GetLength(1)
        Delay(Sound_Laenge)
      ForEver
    EndIf
    For a=1 To Sound_WieOft
      MCI_Play(1)
      Sound_Laenge=MCI_GetLength(1)
      Delay(Sound_Laenge)
    Next
  EndIf
EndProcedure



ThreadID=CreateThread(@SoundPlay(), 0)

Ergebnis=MessageRequester("...", ".......", PB_MessageRequester_YesNo)

KillThread(ThreadID)

Wär toll wenn mir jemand helfen könnt

Verfasst: **07.02.2005 22:08**

Evtl. mit MCI_Seek() wieder an den Anfang spulen?

PureBoard

Prob mit MCI-Commands.pbi (glaub ich ;)

Prob mit MCI-Commands.pbi (glaub ich ;)