createaudiosample.bmx 240 B

12345678910111213
  1. ' createaudiosample.bmx
  2. Local sample:TAudioSample=CreateAudioSample( 32,11025,SF_MONO8 )
  3. For Local k=0 Until 32
  4. sample.samples[k]=Sin(k*360/32)*127.5+127.5
  5. Next
  6. Local sound:TSound=LoadSound( sample,True )
  7. PlaySound(sound)
  8. Input