CodeBase - Sound Recorder

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators ` It is reproduced here with full permission ` http://www.thegamecreators.com REM Project: SoundRecorder REM Created: 6/11/2006 6:04:01 PM REM REM ***** Main Source File ***** REM A simple sound recorder DURATION = 5000 DO CLS PRINT "ENTER OPTION:" PRINT "TO RECORD SOUND PRESS 1" IF SOUND EXIST(1) PRINT "TO PLAY SOUND PRESS 2" PRINT "TO SAVE SOUND PRESS 3" PRINT "TO ERASE SOUND PRESS 4" ENDIF PRINT "TO EXIT PRESS 0" INPUT "ENTER OPTION > ",K$ WHILE RETURNKEY()=1 : ENDWHILE SELECT K$ CASE "1" GOSUB _RECORD ENDCASE CASE "2" IF SOUND EXIST(1) THEN GOSUB _PLAYBACK ENDCASE CASE "3" IF SOUND EXIST(1) THEN GOSUB _SAVE ENDCASE CASE "4" IF SOUND EXIST(1) THEN GOSUB _ERASE ENDCASE CASE "0" END ENDCASE ENDSELECT LOOP _RECORD: IF SOUND EXIST(1) THEN GOSUB _ERASE CLS _PRESSENTER("TO START RECORDING") CLS RECORD SOUND 1,DURATION _PRESSENTER("TO STOP RECORDING") CLS STOP RECORDING SOUND _PRESSENTER("TO RETURN TO OPTIONS") RETURN _PLAYBACK: CLS _PRESSENTER("TO PLAYBACK SOUND") LOOP SOUND 1 CLS _PRESSENTER("TO STOP PLAYBACK") STOP SOUND 1 CLS _PRESSENTER("TO RETURN TO OPTIONS") RETURN _SAVE: CLS INPUT "ENTER FILENAME > ",F$ IF F$<>"" IF RIGHT$(UPPER$(F$),4)<> ".WAV" THEN F$ = F$ + ".WAV" SAVE SOUND F$,1 PRINT "SOUND SAVED" ELSE PRINT "SAVE FILE ABORTED" ENDIF CLS _PRESSENTER("TO RETURN TO OPTIONS") RETURN _ERASE: CLS INPUT "CONFIRM ERASE SOUND _/N",N$ IF UPPER$(LEFT$(N$,1))<>"N" THEN DELETE SOUND 1 CLS _PRESSENTER("TO RETURN TO OPTIONS") RETURN FUNCTION _PRESSENTER(MSG$) PRINT "PRESS ENTER " + MSG$ REPEAT : UNTIL RETURNKEY()=1 WHILE RETURNKEY()=1 : ENDWHILE ENDFUNCTION

Download

Please login to download