Sound erstellen

[Basti]

Hallo, wie kann ich denn eine Sound laden und dann auch abspielen lassen?

[ts-soft]

In der Hilfe unter Sound nachsehen, ist ein Beispiel bei.

[Basti]

Danke

[Basti]

ich find das beispiel nicht.
Könnte es vielleicht einer ins Forum kopieren?

[RSBasic]

@Basti
Aus der PB-Hilfe:

Code: Alles auswählen

;
; ------------------------------------------------------------
;
;   PureBasic - Sound example file
;
;    (c) 2001 - Fantaisie Software
;
; ------------------------------------------------------------
;

If InitSound() = 0
  MessageRequester("Error", "Can't open DirectX 7 or no sound card is available",  0)
  End
EndIf

SoundFileName$ = OpenFileRequester("Choose a .wav file", "", "Wave files|*.wav",0)
If SoundFileName$
  If LoadSound(0, SoundFileName$)
    PlaySound(0,1)
    MessageRequester("Sound", "Playing the sound (loop)..."+Chr(10)+"Click to quit..", 0)
  Else
    MessageRequester("Error", "Can't load the sound.", 0)
  EndIf
EndIf
End   
; ExecutableFormat=Windows
; Executable=C:\Programmation\PureBasic\Examples\Sound.exe

[Programie]

Ist zwar nicht das Beispiel von der Hilfe:

Code: Alles auswählen

InitSound(); Soundumgebung initialisieren
UseOGGSoundDecoder(); Wenn du OGG-Dateien wiedergeben möchtest

File$=OpenFileRequester("Datei öffnen","Sound.wav","Wav oder OGG Vorbis|*.ogg;*.wav",#False); Auswahlfenster öffnen
 If File$; Überprüfen, ob File$ ein Zeichen enthält
  If LoadSound(1,File$); Sound laden
   PlaySound(1); Wiedergabe starten
   MessageRequester("Information","Die Datei '"+GetFilePart(File$)+"' wird wiedergegeben!",#MB_ICONINFORMATION); Quellcode "stoppen", da sonst die Wiedergabe abgebrochen wird
  EndIf
 EndIf