Sound erstellen
Verfasst: 19.11.2006 19:53
Hallo, wie kann ich denn eine Sound laden und dann auch abspielen lassen?
Seite 1 von 1
Verfasst: 19.11.2006 20:10
In der Hilfe unter Sound nachsehen, ist ein Beispiel bei.
Verfasst: 19.11.2006 21:14
Danke 
Verfasst: 19.11.2006 21:16
ich find das beispiel nicht.
Könnte es vielleicht einer ins Forum kopieren?
Könnte es vielleicht einer ins Forum kopieren?
Verfasst: 19.11.2006 21:19
@Basti
Aus der PB-Hilfe:
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
Verfasst: 19.11.2006 21:23
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