PureBoard

Code: Alles auswählen

Procedure RecordWav(filename$,ms) 
  buffer$=Space(128)
  DeleteFile(filename$) 
  mciSendString_("open new type waveaudio alias capture",buffer$,0) 
  mciSendString_("set capture samplesperbuffer 8000 bytesperbuffer 8000",0,0,0) 
  mciSendString_("record capture",buffer$,128,0) 
  Delay(ms)
  mciSendString_("save capture "+filename$,buffer$,128,0) 
EndProcedure 

MessageRequester("Info","Click OK to capture audio to c:\test.wav for 2 secs",0) 
RecordWav("c:\test.wav",2000) 
MessageRequester("Info","Done!",0)