PureBasic Forums - English

Code: Select all

If InitSound() = 0
  MessageRequester("Error", "Sound system is not available",  0)
  End
EndIf

SoundFileName$ = OpenFileRequester("Choose a .wav file", "", "Wave files|*.wav",0)
If SoundFileName$
  If LoadSound(5, SoundFileName$)
    PlaySound(5);, #PB_Sound_Loop)
    MessageRequester("Sound", "Playing the sound (loop)..."+#LF$+"Click to quit..", 0)
  Else
    MessageRequester("Error", "Can't load the sound.", 0)
  EndIf
EndIf
End   

Code: Select all

EnableExplicit

Define SelectedGadget.I

Dim Filename.S(1)

Filename(0) = "/FilePathTo/Small_Crowd_Applause-Yannick_Lemieux-1268806408.wav"
Filename(1) = "/FilePathTo/Kid_Laugh-Mike_Koenig-1673908713.wav"

Procedure PlaySoundFile(Filename.S)
  Protected Sound.I

  If FileSize(Filename) > 0
    ; ----- Load sound
    Sound = CocoaMessage(0, CocoaMessage(0, 0, "NSSound alloc"),
      "initWithContentsOfFile:$", @Filename, "byReference:", #YES)

    If Sound
      ; ----- Play sound
      CocoaMessage(0, Sound, "play")
    EndIf
  EndIf
EndProcedure

OpenWindow(0, 270, 100, 200, 70, "Play sound file")
ButtonGadget(0, 10, 10, WindowWidth(0) - 20, 25, "Small crowd applause")
ButtonGadget(1, 10, 40, WindowWidth(0) - 20, 25, "Kid laugh")

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
    Case #PB_Event_Gadget
      SelectedGadget = EventGadget()

      If SelectedGadget <= 1
        PlaySoundFile(Filename(SelectedGadget))
      EndIf
  EndSelect
ForEver

Code: Select all

-- audio/video to ogg

on open tf
	tell application "Terminal" to activate
	repeat with i in tf
		tell application "Terminal" to do script "ffmpeg -i " & quoted form of POSIX path of i & " " & quoted form of (((characters 1 thru -((offset of "." in (the reverse of (characters of (POSIX path of i))) as text) + 1) of (POSIX path of i)) as text) & "_pbo.ogg")
	end repeat
end open

Code: Select all

-- audio/video to PB wav

on open tf
	tell application "Terminal" to activate
	repeat with i in tf
		tell application "Terminal" to do script "ffmpeg -i " & quoted form of POSIX path of i & "  -c:a pcm_s16le -ar 44100 " & quoted form of (((characters 1 thru -((offset of "." in (the reverse of (characters of (POSIX path of i))) as text) + 1) of (POSIX path of i)) as text) & "_pbw.wav")
	end repeat
end open