function varargout = dsp(varargin)
% --- 數(shù)字音頻分析與處理系統(tǒng)
gui_Singleton = 1;
gui_State = struct('gui_Name',       mfilename, ...
    'gui_Singleton',  gui_Singleton, ...
    'gui_OpeningFcn', @dsp_OpeningFcn, ...
    'gui_OutputFcn',  @dsp_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


% --- Executes just before dsp is made visible.
function dsp_OpeningFcn(hObject, eventdata, handles, varargin)

% Choose default command line output for dsp
handles.output = hObject;

% 設(shè)置坐標(biāo)軸
set(gcf,'defaultAxesXGrid','off', ...
    'defaultAxesYGrid','off', ...
    'defaultAxesZGrid','off');

% 初始化
movegui(gcf,'center'); % figure居中
handles.Sample=[]; % 初始化樣本為空
handles.CSample=[]; % 初始化樣本副本
handles.volume=0; % 初始化音量為0
handles.Fs=0; % 初始化采樣率

if (exist('speech_database.mat','file')==2)
    load('speech_database.mat','-mat');
    handles.data=data;
    c=data2cell(handles.data);
else
    c=cell(0,0);
end
set(handles.data_uitable,'Data',c);

% Update handles structure
guidata(hObject, handles);

% --- Outputs from this function are returned to the command line.
function varargout = dsp_OutputFcn(hObject, eventdata, handles)

% Get default command line output from handles structure
varargout{1} = handles.output;


function record_radiobutton_Callback(hObject, eventdata, handles)

function file_radiobutton_Callback(hObject, eventdata, handles)

% --- 顯示文件路徑
function filepath_edit_Callback(hObject, eventdata, handles)

function filepath_edit_CreateFcn(hObject, eventdata, handles)
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end

function fs_popupmenu_Callback(hObject, eventdata, handles)

function fs_popupmenu_CreateFcn(hObject, eventdata, handles)
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end

% --- 文件輸入音頻
function file_choose_pushbutton_Callback(hObject, eventdata, handles)
[filename,pathname]=uigetfile({'*.wav;*.mp3;*.flac;*.m4a', ...
    '音頻文件(*.wav,*.mp3,*.flac,*.m4a)'},'選擇文件');%彈出選擇文件窗口
% 判斷文件為空
% 不能使用if isempty(filename)||isempty(pathname)
% 取消窗口時(shí)會(huì)報(bào)錯(cuò)，取消時(shí)uigetfile返回filename為0
if filename==0
    return
else
    handles.Filepath=[pathname,filename];
    set(handles.filepath_edit,'string',handles.Filepath);% 顯示文件名
    [handles.Sample,handles.Fs]=audioread(handles.Filepath);% 讀取音頻文件
    % 若輸入音頻為雙聲道，則使用一個(gè)通道
    samplesize=size(handles.Sample);
    if samplesize(2)>1
        handles.Sample=handles.Sample(:,1);
    end
    handles.CSample=handles.Sample;% 創(chuàng)建副本
    handles.player=audioplayer(handles.CSample,handles.Fs);
    setplayer(handles);
    
    set(handles.play_pushbutton,'enable','on');
    set(handles.play_stop_pushbutton,'enable','on');
    set(handles.putfile_pushbutton,'enable','on');
    
    guidata(hObject,handles);
end


% --- 錄音按鈕
function record_start_pushbutton_Callback(hObject, eventdata, handles)
fs_list=get(handles.fs_popupmenu,'string');% 獲取列表
fs_value=get(handles.fs_popupmenu,'value');% 獲取參數(shù)序號(hào)
fs=str2double(fs_list{fs_value});% 獲取選定采樣率
% list類型為cell必須轉(zhuǎn)換
handles.Fs=fs;

handles.recObj=audiorecorder(fs,16,1);% 創(chuàng)建一個(gè)錄音器

set(handles.recObj,'StartFcn',{@recordstart_Callback,handles}, ...
    'StopFcn',{@recordstop_Callback,handles}); % 錄音回調(diào)

record(handles.recObj);% 開始錄音

guidata(hObject,handles);

% --- 停止錄音按鈕
function record_stop_pushbutton_Callback(hObject, eventdata, handles)
stop(handles.recObj);% 停止錄音
handles.Sample=getaudiodata(handles.recObj);% 獲取錄音
handles.CSample=handles.Sample;% 創(chuàng)建副本
handles.player=audioplayer(handles.CSample,handles.Fs);
setplayer(handles);

guidata(hObject,handles);

% --- 播放器設(shè)置
function setplayer(handles)
% 創(chuàng)建player回調(diào)函數(shù)
set(handles.player,'StartFcn',{@playstart_Callback,handles}, ...
    'StopFcn',{@playstop_Callback,handles});

% 音頻信息
sample_length=length(handles.Sample); % 音頻時(shí)長(zhǎng)
t=sample_length/handles.Fs;
set(handles.timeinfo_text,'String',['時(shí)長(zhǎng)：',num2str(t),'s']); % 顯示時(shí)長(zhǎng)
set(handles.fsinfo_text,'String',['采樣率：',num2str(handles.Fs),'Hz']); % 顯示采樣率

% plot wave
audio_analyze(handles.Sample,handles.Fs,handles.axes1,handles); % 繪制初始樣本
audio_analyze(handles.CSample,handles.Fs,handles.axes2,handles);% 繪制樣本副本

nvar=std(handles.Sample).^2; % 初始方差
set(handles.nvar_edit,'String',round(nvar,3,'significant'));
nmean=mean(handles.Sample); % 初始均值
set(handles.nmean_edit,'String',round(nmean,3,'significant'));
dvar=std(handles.CSample).^2; % 樣本方差
set(handles.dvar_edit,'String',round(dvar,3,'significant'));
dmean=mean(handles.CSample); % 樣本均值
set(handles.dmean_edit,'String',round(dmean,3,'significant'));


% --- 播放按鈕
function play_pushbutton_Callback(hObject, eventdata, handles)
play(handles.player);% 開始播放

% --- 停止播放按鈕
function play_stop_pushbutton_Callback(hObject, eventdata, handles)
stop(handles.player);% 停止播放

% --- 輸入方式按鈕組
function uibuttongroup1_SelectionChangedFcn(hObject, eventdata, handles)
switch get(hObject,'tag')
    case 'record_radiobutton'
        set(handles.fs_popupmenu,'enable','on');
        set(handles.record_start_pushbutton,'enable','on');
        set(handles.record_stop_pushbutton,'enable','off');
        set(handles.filepath_edit,'enable','off');
        set(handles.file_choose_pushbutton,'enable','off');
        set(handles.play_pushbutton,'enable','off');
        set(handles.play_stop_pushbutton,'enable','off');
    case 'file_radiobutton'
        set(handles.fs_popupmenu,'enable','off');
        set(handles.record_start_pushbutton,'enable','off');
        set(handles.record_stop_pushbutton,'enable','off');
        set(handles.filepath_edit,'enable','on');
        set(handles.file_choose_pushbutton,'enable','on');
        set(handles.play_pushbutton,'enable','off');
        set(handles.play_stop_pushbutton,'enable','off');
end

% --- 波形選擇欄
function wave_select_listbox_Callback(hObject, eventdata, handles)
audio_analyze(handles.Sample,handles.Fs,handles.axes1,handles);
audio_analyze(handles.CSample,handles.Fs,handles.axes2,handles);

function wave_select_listbox_CreateFcn(hObject, eventdata, handles)
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end