149 lines
5.4 KiB
Matlab
149 lines
5.4 KiB
Matlab
function varargout = pruebasonido(varargin)
|
|
% PRUEBASONIDO MATLAB code for pruebasonido.fig
|
|
% PRUEBASONIDO, by itself, creates a new PRUEBASONIDO or raises the existing
|
|
% singleton*.
|
|
%
|
|
% H = PRUEBASONIDO returns the handle to a new PRUEBASONIDO or the handle to
|
|
% the existing singleton*.
|
|
%
|
|
% PRUEBASONIDO('CALLBACK',hObject,eventData,handles,...) calls the local
|
|
% function named CALLBACK in PRUEBASONIDO.M with the given input arguments.
|
|
%
|
|
% PRUEBASONIDO('Property','Value',...) creates a new PRUEBASONIDO or raises the
|
|
% existing singleton*. Starting from the left, property value pairs are
|
|
% applied to the GUI before pruebasonido_OpeningFcn gets called. An
|
|
% unrecognized property name or invalid value makes property application
|
|
% stop. All inputs are passed to pruebasonido_OpeningFcn via varargin.
|
|
%
|
|
% *See GUI Options on GUIDE's Tools menu. Choose "GUI allows only one
|
|
% instance to run (singleton)".
|
|
%
|
|
% See also: GUIDE, GUIDATA, GUIHANDLES
|
|
|
|
% Edit the above text to modify the response to help pruebasonido
|
|
|
|
% Last Modified by GUIDE v2.5 11-Sep-2020 17:26:52
|
|
|
|
% Begin initialization code - DO NOT EDIT
|
|
gui_Singleton = 1;
|
|
gui_State = struct('gui_Name', mfilename, ...
|
|
'gui_Singleton', gui_Singleton, ...
|
|
'gui_OpeningFcn', @pruebasonido_OpeningFcn, ...
|
|
'gui_OutputFcn', @pruebasonido_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 initialization code - DO NOT EDIT
|
|
|
|
% --- Executes just before pruebasonido is made visible.
|
|
function pruebasonido_OpeningFcn(hObject, eventdata, handles, varargin)
|
|
% This function has no output args, see OutputFcn.
|
|
% hObject handle to figure
|
|
% eventdata reserved - to be defined in a future version of MATLAB
|
|
% handles structure with handles and user data (see GUIDATA)
|
|
% varargin command line arguments to pruebasonido (see VARARGIN)
|
|
|
|
% Choose default command line output for pruebasonido
|
|
handles.output = hObject;
|
|
|
|
% Update handles structure
|
|
guidata(hObject, handles);
|
|
|
|
% UIWAIT makes pruebasonido wait for user response (see UIRESUME)
|
|
% uiwait(handles.figure1);
|
|
|
|
set(handles.popupmenu1,'Value',1);
|
|
init_player(handles,'sigin','Input_Fs');
|
|
|
|
|
|
% --- Outputs from this function are returned to the command line.
|
|
function varargout = pruebasonido_OutputFcn(hObject, eventdata, handles)
|
|
% varargout cell array for returning output args (see VARARGOUT);
|
|
% hObject handle to figure
|
|
% eventdata reserved - to be defined in a future version of MATLAB
|
|
% handles structure with handles and user data (see GUIDATA)
|
|
|
|
% Get default command line output from handles structure
|
|
varargout{1} = handles.output;
|
|
|
|
function init_player(handles,sig_base_varname, fs_base_varname)
|
|
%sig_base_varname name of the variable in the base workspace containing the
|
|
% sound to play
|
|
%fs_base_varname name of the variable in the base workspace containing the
|
|
% sampling frequency
|
|
myGui=guidata(handles.figure1);
|
|
myGui.freqSam = evalin('base',fs_base_varname);
|
|
myGui.datasound = evalin('base',sig_base_varname);
|
|
myGui.player=audioplayer(myGui.datasound,myGui.freqSam);
|
|
myGui.flag=2;
|
|
guidata(handles.figure1,myGui)
|
|
|
|
|
|
% --- Executes on button press in play.
|
|
function play_Callback(hObject, eventdata, handles)
|
|
% hObject handle to play (see GCBO)
|
|
% eventdata reserved - to be defined in a future version of MATLAB
|
|
% handles structure with handles and user data (see GUIDATA)
|
|
myGui=guidata(handles.figure1);
|
|
if(myGui.flag==2)
|
|
myGui.flag=1;
|
|
disp('2');
|
|
play(myGui.player);
|
|
else
|
|
if(myGui.flag == 1)
|
|
disp('1');
|
|
myGui.flag=0;
|
|
pause(myGui.player);
|
|
else
|
|
disp('0');
|
|
myGui.flag=1;
|
|
resume(myGui.player)
|
|
end
|
|
end
|
|
guidata(handles.figure1,myGui);
|
|
|
|
% --- Executes on button press in stop.
|
|
function stop_Callback(hObject, eventdata, handles)
|
|
% hObject handle to stop (see GCBO)
|
|
% eventdata reserved - to be defined in a future version of MATLAB
|
|
% handles structure with handles and user data (see GUIDATA)
|
|
myGui=guidata(handles.figure1);
|
|
myGui.flag=2;
|
|
stop(myGui.player);
|
|
guidata(handles.figure1,myGui);
|
|
|
|
|
|
% --- Executes on selection change in popupmenu1.
|
|
function popupmenu1_Callback(hObject, eventdata, handles)
|
|
% hObject handle to popupmenu1 (see GCBO)
|
|
% eventdata reserved - to be defined in a future version of MATLAB
|
|
% handles structure with handles and user data (see GUIDATA)
|
|
|
|
contents = cellstr(get(hObject,'String')); % returns popupmenu1 contents as cell array
|
|
selected_signame = contents{get(hObject,'Value')}; % returns selected item from popupmenu1
|
|
|
|
init_player(handles,selected_signame,'Input_Fs')
|
|
|
|
|
|
|
|
|
|
% --- Executes during object creation, after setting all properties.
|
|
function popupmenu1_CreateFcn(hObject, eventdata, handles)
|
|
% hObject handle to popupmenu1 (see GCBO)
|
|
% eventdata reserved - to be defined in a future version of MATLAB
|
|
% handles empty - handles not created until after all CreateFcns called
|
|
|
|
% Hint: popupmenu controls usually have a white background on Windows.
|
|
% See ISPC and COMPUTER.
|
|
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
|
|
set(hObject,'BackgroundColor','white');
|
|
end
|