PureBasic Forums - English

Code: Select all

; PB 5.10
; by einander
; Load one Note Sound File (396 KB) From "http://www.2shared.com/audio/QDLpe4Oa/Pn_48.HTML"
; and save it as 'Pn 48.wav' on the program directory.
; Press escape to quit.
EnableExplicit
Define Note, StartNote=24,Range=36 
Define LastNote=StartNote+Range , Base=?BaseSound
#Semitone=1.059463094359  ;=Pow(2,1/12)
Dim Chord(4)
InitSound()
;
Procedure TransposeSound(Sound,Transpose,Freq=44100) ; transpose can be negative
  SetSoundFrequency(Sound,Freq * Pow(#Semitone,Transpose)/12)
EndProcedure 
;
Macro PlaySnd(Sound,Transpose=0,Volume=100,Freq=44100)
  TransposeSound(Sound,Transpose,Freq)
  PlaySound(Sound,0,Volume)
EndMacro
;
For Note=0 To 4 ;  Sounds to conform a 5 Note Chord
  CatchSound(Note,Base)
  Chord(Note)=7*Note+StartNote 
Next
Repeat
  If GetAsyncKeyState_(27)&$8000 :  End : EndIf
  For Note=0 To 4
    PlaySnd(Note,Chord(Note))
    Chord(Note)+5   
    If Chord(Note)>=LastNote:Chord(Note)-Range:EndIf
    If Note>1 And Random(3)   :PlaySnd(Note-2,Chord(Note-2)):EndIf
    If Note>2 And Random(2)=0 :PlaySnd(Note-3,Chord(Note-3)):EndIf
    Delay(400)  
  Next
  Delay(1200)  
  StopSound(-1)  
ForEver
;
DataSection 
  BaseSound: IncludeBinary "Pn 48.wav"
EndDataSection