function varargout = grabar_audio(varargin)
gui_Singleton = 1;
gui_State = struct('gui_Name', mfilename, ...
'gui_Singleton', gui_Singleton, ...
'gui_OpeningFcn', @grabar_audio_OpeningFcn, ...
'gui_OutputFcn', @grabar_audio_OutputFcn, ...
'gui_LayoutFcn', [] , ...
'gui_Callback', []);
if nargin && ischar(varargin{1})
gui_State.gui_Callback = str2func(varargin{1});
end
if nargout
[varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
else
gui_mainfcn(gui_State, varargin{:});
end
end
function grabar_audio_OpeningFcn(hObject, eventdata, handles, varargin)
handles.output = hObject;
guidata(hObject, handles);
end
function varargout = grabar_audio_OutputFcn(hObject, eventdata, handles)
end
function tiempo_Callback(hObject, eventdata, handles)
handles.A=str2double(get(hObject,'String'));
guidata(hObject, handles);
end
function Rec_Callback(hObject, eventdata, handles)
grabacion(handles.A)
end
function grabacion(duracion)
fs=44100; %f. muestreo
senal_salida=audiorecorder(fs,16,1);%Creacion del objeto de grabacion
msgbox('Empezando Grabacion',' Grabadora '); %Mensaje de informacion
recordblocking(senal_salida,duracion);%Grabacion del sonido
msgbox('Terminando Grabacion',' Grabadora ');%Mensaje de informacion
senal_grabada=getaudiodata(senal_salida, 'single');
%Grabamos y guardamos la señal
[nombre,ruta]=uiputfile({'*.wav'});
wavwrite(senal_grabada,fs,fullfile(ruta,nombre));
[a,b]=wavread(fullfile(ruta,nombre));
sound(a,b)
end