createaudiosample.bmx 266 B

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