sounds

[Brügge]

geht bei mir nicht liegt das vll daran, das ich purebasic version 3.90 demo habe?

[Jilocasin]

hast du ein spezielles sound-bearbeitungs-programm? (klingt komisch )

[Brügge]

ich nutze den audiorecorder von windows

[Jilocasin]

der erstellt (wie schon erwähnt) manchmal "falsche" WAVs.
keine ahnung warum ...

probier wenn du willst ma "DATEI/Eigenschaften/Jetzt konvertieren" und wähle bei dem Format nicht "PCM" sondern "Microsoft ADPCM" aus.
hat bei mir dann geklappt und ist dabei noch etwas kleiner!

[#NULL]

@brügge

was geht bei dir nicht? ich verstehe nich ganz. ich denke die sache mit pb funktioniert prinzipiell mit anderen dateien?

<edit: siehe jilocasin: oder wähle dort einfach "CD-Qualität", dann stellt er scheinbar alles selber ein>

[Brügge]

ich habe dort nur PCM, microsoft G.723.1, MPEG Layer-3,Windows Media Audio V1 und Windows Media Audio V2

[Brügge]

immer wenn ich das programm starte sagt er mir


"Error at line 276: #sound object not initialized"

line 276 ist bei mir Playsound(1,0)

ich habe jedoch den sound eingebunden

(line 10)
initsound()

(line 140)
LoadSound(1, "sound\test.wav")

wenn ich anstatt test ein anderen sound reinlege geht es auch aber es geht nur bei sounds, die ich von anderen purebasic spielen habe

[Jilocasin]

tja.. ich würd sagen, da hilft nur ein profesionelles programm zur korrekten sound-abspeicherung.

(oder es kennt noch jemand eine lösung. )

[#NULL]

sag doch mal worin sich die "eigenschaften" (z.b. im explorer) der jeweiligen dateien so unterscheiden, also z.b. bit-auflösung.

[bobobo]

Nimm mal diesen Code hier zum Testen

Die WaveDatei muss das Programm natürlich auch finden.
Solange Du in der PB-IDE ausführst, sucht das Programm die WaveDatei im Compiler-Verzeichnis von PB

Am besten gibst Du in diesem Fall den Pfad komplett an.

Die Tastaturabfrage habe ich mal ver"window"st.

Code: Alles auswählen

;PB 3.94
InitSound()

If LoadSound(1,   "d:\untitled.wav")  ; <--!! wichtig .. mit Pfadangabe
  PlaySound(1,0)
  OpenWindow(0,0,0,200,200,#PB_Window_SystemMenu |#PB_Window_WindowCentered,"TAUB?")
  AddKeyboardShortcut(0,#PB_Shortcut_Escape,1)
  Repeat 
    event=WaitWindowEvent()
    Menuid=EventMenuID()
    If Menuid=1
      quit=1
    EndIf
  Until quit=1 Or  event=#PB_Event_CloseWindow 
Else
  MessageRequester("","das kann ich nicht laden",0)
EndIf