[3.3] Sound wird nicht abgespielt

[mbuettner]

Hallo,

ich habe folgendes Problem: Ich habe ein Programm, das eigentlich bei Tastendruck einen Sound abspielen soll. Laut Taskmanager läuft das Programm auch, allerdings wird der Sound nicht abgespielt. Woran liegt das?

Code: Alles auswählen

If InitKeyboard() = 0
  MessageRequester("Fehler","Konnte keine Tastatur finden",0)
  End
EndIf
If InitSound() = 0
  MessageRequester("Fehler","Konnte DirectSound nicht laden",0)
  End
EndIf

Repeat
  ExamineKeyboard()
  If KeyboardPushed(#PB_Key_All)
    If LoadSound(0, "sound.wav")
      SoundVolume(0,100)
      PlaySound(0,0)
    Else
      MessageRequester("Fehler","Konnte Sound nicht laden",0)
    EndIf
  EndIf
Until KeyboardPushed(#PB_Key_LeftAlt) And KeyboardPushed(#PB_Key_Escape)

MfG
Markus

E:\ Sehe gerade, dass ich im falschen Forum bin. Bitte verschieben.


topic moved
Grafik & Sound-Erstellung -> Grafik und Sound-Programmierung
-- Andesdaf

[bobobo]

am sound vermutlich oder am Ort des Sounds ..

allgemein soltlest du den sound nur einmal anfangs laden

in der schleife reicht dann ein playsound

etwas so ..

Code: Alles auswählen

InitSprite()
If InitKeyboard() = 0 
  MessageRequester("Fehler","Konnte keine Tastatur finden",0)
  End
EndIf
If InitSound() = 0
  MessageRequester("Fehler","Konnte DirectSound nicht laden",0)
  End
EndIf
If LoadSound(0, "d:\sound.wav")=0
  MessageRequester("Fehler","Konnte Sound nicht laden",0)
EndIf

OpenWindow(0,0,0,500,500,"main",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0),0,0,500,500,1,0,0)
Repeat
  ExamineKeyboard()
  If KeyboardPushed(#PB_Key_All)
    If IsSound(0)    
      SoundVolume(0,100)
      PlaySound(0,0)
    EndIf
  EndIf
Until KeyboardPushed(#PB_Key_LeftAlt) And KeyboardPushed(#PB_Key_Escape)

[mbuettner]

Jetzt kommt:
Sound filename not found !

Code: Alles auswählen

If InitKeyboard() = 0
  MessageRequester("Fehler","Konnte keine Tastatur finden",0)
  End
EndIf
If InitSound() = 0
  MessageRequester("Fehler","Konnte DirectSound nicht laden",0)
  End
EndIf

buffer.s = Space(1000)
GetCurrentDirectory_(1000,@buffer)
LoadSound(0, buffer + "click.wav")
Repeat
  ExamineKeyboard()
  If KeyboardPushed(#PB_Key_All)
    SoundVolume(0,100)
    PlaySound(0,0)
  EndIf
Until KeyboardPushed(#PB_Key_LeftAlt) And KeyboardPushed(#PB_Key_Escape)

[bobobo]

dann gib mal den vollständigen Pfad des Sounds mit an

(in der PB-Ide kannst Du das Ziel des temporären Executables auf
das Quellverzeichnis einstellen (Einstellungen-Compiler-Standards)
oder für den aktuellen Source in den Compiler-Optionen, Reiter 'Kompilieren/Starten'
Häkchen vor 'Temporäres Execut...')

ansonsten wird das temporäre Executable im Temp-Ordner abgespeichert.
Und dort findet getcurrentdirectory den sound ja wohl nicht.

[STARGÅTE]

soweit ich mich erinnern kann, hat PlaySound() unter 3.30 nicht immer funktioniert.
Zumindest hatte ich damals immer PlayMovie genommen ohne Darstellung.

[bobobo]

au kack .. 3.3 hatte ich glatt übersehen .. tips und tricks bezüglich der ide dann mal sofort vergessen
oder entsprechend anpassen (so möglich)

[bobobo]

so 3.3

Code: Alles auswählen

InitSprite()
If InitKeyboard() = 0 
  MessageRequester("Fehler","Konnte keine Tastatur finden",0)
  End
EndIf
If InitSound() = 0
  MessageRequester("Fehler","Konnte DirectSound nicht laden",0)
  End
EndIf
buffer.s = Space(1000)
GetCurrentDirectory_(1000,@buffer)
Debug buffer ;nur mal zum gucken wo das programm ist
If LoadSound(0, buffer + "\click.wav") =0  ; backslash nicht vergessen !!
  MessageRequester("Fehler","Konnte Sound in "+buffer+" nicht laden",0)
  End
EndIf

OpenWindow(0,0,0,500,500,#PB_Window_SystemMenu,"main")
OpenWindowedScreen(WindowID(0),0,0,500,500,1,0,0)
Repeat
  ExamineKeyboard()
  If KeyboardPushed(#PB_Key_All)
    ;If IsSound(0)    
      SoundVolume(0,100)
      PlaySound(0,0)
    ;EndIf
  EndIf
Until KeyboardPushed(#PB_Key_Escape)

was bin ich froh dass ich mit dem ollen 3.3 nichts mehr drehen muss

[mbuettner]

@STARGATE:
Dann kann ich aber mit dem Beispiel nichts mehr in einen anderen Programm eingeben, und der Sinn und Zweck dieses Programms ist es ja, dass man da noch was eingeben kann.