ksstringexpogui.m

非常好的数字处理教程

% --------------------------------------------------------------------
function Untitled_4_Callback(hObject, eventdata, handles)
% hObject    handle to Untitled_4 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)


% --- Executes on selection change in instmenu.
function instmenu_Callback(hObject, eventdata, handles)
% hObject    handle to instmenu (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: contents = get(hObject,'String') returns instmenu contents as cell array
%        contents{get(hObject,'Value')} returns selected item from instmenu
    ksstringexpofn 'instmenu';

% --- Executes during object creation, after setting all properties.
function instmenu_CreateFcn(hObject, eventdata, handles)
% hObject    handle to instmenu (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


% --- Executes on selection change in roommenu.
function roommenu_Callback(hObject, eventdata, handles)
% hObject    handle to roommenu (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: contents = get(hObject,'String') returns roommenu contents as cell array
%        contents{get(hObject,'Value')} returns selected item from roommenu
    ksstringexpofn 'roommenu';

% --- Executes during object creation, after setting all properties.
function roommenu_CreateFcn(hObject, eventdata, handles)
% hObject    handle to roommenu (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


% --------------------------------------------------------------------
function save_Callback(hObject, eventdata, handles)
% hObject    handle to save (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
    ksstringexpofn 'save';


function Fs_text_Callback(hObject, eventdata, handles)
% hObject    handle to Fs_text (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of Fs_text as text
%        str2double(get(hObject,'String')) returns contents of Fs_text as a double
    val = str2num(get(hObject,'String'));
    if (val < 0)
        val = 1;
    end
	set(hObject,'String',num2str(val));

% --- Executes during object creation, after setting all properties.
function Fs_text_CreateFcn(hObject, eventdata, handles)
% hObject    handle to Fs_text (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit 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



function duration_text_Callback(hObject, eventdata, handles)
% hObject    handle to duration_text (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of duration_text as text
%        str2double(get(hObject,'String')) returns contents of duration_text as a double
    val = str2num(get(hObject,'String'));
    if (val < 0)
        val = 0;
    end
	set(hObject,'String',num2str(val));

% --- Executes during object creation, after setting all properties.
function duration_text_CreateFcn(hObject, eventdata, handles)
% hObject    handle to duration_text (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit 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



function infobox_inst_Callback(hObject, eventdata, handles)
% hObject    handle to infobox_inst (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of infobox_inst as text
%        str2double(get(hObject,'String')) returns contents of infobox_inst as a double


% --- Executes during object creation, after setting all properties.
function infobox_inst_CreateFcn(hObject, eventdata, handles)
% hObject    handle to infobox_inst (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit 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



function infobox_room_Callback(hObject, eventdata, handles)
% hObject    handle to infobox_room (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of infobox_room as text
%        str2double(get(hObject,'String')) returns contents of infobox_room as a double


% --- Executes during object creation, after setting all properties.
function infobox_room_CreateFcn(hObject, eventdata, handles)
% hObject    handle to infobox_room (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit 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


% --- Executes on button press in fourier_inst.
function fourier_inst_Callback(hObject, eventdata, handles)
% hObject    handle to fourier_inst (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
    ksstringexpofn 'fourier_inst';

% --- Executes on button press in fourier_room.
function fourier_room_Callback(hObject, eventdata, handles)
% hObject    handle to fourier_room (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
    ksstringexpofn 'fourier_room';


% --------------------------------------------------------------------
function reverbexpo_Callback(hObject, eventdata, handles)
% hObject    handle to reverbexpo (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
    ksstringexpofn 'reverbexpo';


% --- Executes on selection change in popupmenu10.
function popupmenu10_Callback(hObject, eventdata, handles)
% hObject    handle to popupmenu10 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: contents = get(hObject,'String') returns popupmenu10 contents as cell array
%        contents{get(hObject,'Value')} returns selected item from popupmenu10


% --- Executes during object creation, after setting all properties.
function popupmenu10_CreateFcn(hObject, eventdata, handles)
% hObject    handle to popupmenu10 (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


% --- Executes on selection change in synthmenu.
function synthmenu_Callback(hObject, eventdata, handles)
% hObject    handle to synthmenu (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: contents = get(hObject,'String') returns synthmenu contents as cell array
%        contents{get(hObject,'Value')} returns selected item from synthmenu
    ksstringexpofn 'synthmenu';

% --- Executes during object creation, after setting all properties.
function synthmenu_CreateFcn(hObject, eventdata, handles)
% hObject    handle to synthmenu (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



function infobox_synth_Callback(hObject, eventdata, handles)
% hObject    handle to infobox_synth (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of infobox_synth as text
%        str2double(get(hObject,'String')) returns contents of infobox_synth as a double


% --- Executes during object creation, after setting all properties.
function infobox_synth_CreateFcn(hObject, eventdata, handles)
% hObject    handle to infobox_synth (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit 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



function notestart_text_Callback(hObject, eventdata, handles)
% hObject    handle to notestart_text (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of notestart_text as text
%        str2double(get(hObject,'String')) returns contents of notestart_text as a double
    val = floor(str2num(get(hObject,'String')));
    if (val < 0)
        val = 1;
    end
	set(hObject,'String',num2str(val));

% --- Executes during object creation, after setting all properties.
function notestart_text_CreateFcn(hObject, eventdata, handles)
% hObject    handle to notestart_text (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit 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



function noteend_text_Callback(hObject, eventdata, handles)
% hObject    handle to noteend_text (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of noteend_text as text
%        str2double(get(hObject,'String')) returns contents of noteend_text as a double
    val = floor(str2num(get(hObject,'String')));
    if (val < 0)
        val = 1;
    end
	set(hObject,'String',num2str(val));


% --- Executes during object creation, after setting all properties.
function noteend_text_CreateFcn(hObject, eventdata, handles)
% hObject    handle to noteend_text (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit 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



function tempo_text_Callback(hObject, eventdata, handles)
% hObject    handle to tempo_text (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of tempo_text as text
%        str2double(get(hObject,'String')) returns contents of tempo_text as a double
    val = str2num(get(hObject,'String'));
    if (val < 0)
        val = 1;
    end
	set(hObject,'String',num2str(val));


% --- Executes during object creation, after setting all properties.
function tempo_text_CreateFcn(hObject, eventdata, handles)
% hObject    handle to tempo_text (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit 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


% --- Executes on button press in pianoroll.
function pianoroll_Callback(hObject, eventdata, handles)
% hObject    handle to pianoroll (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
    ksstringexpofn 'pianoroll';



function wetness_inst_Callback(hObject, eventdata, handles)
% hObject    handle to wetness_inst (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of wetness_inst as text
%        str2double(get(hObject,'String')) returns contents of wetness_inst as a double
    val = abs(str2num(get(hObject,'String')));
    if (val > 100)
        val = 100;
    end
	set(hObject,'String',num2str(val));

% --- Executes during object creation, after setting all properties.
function wetness_inst_CreateFcn(hObject, eventdata, handles)
% hObject    handle to wetness_inst (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit 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



function wetness_room_Callback(hObject, eventdata, handles)
% hObject    handle to wetness_room (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of wetness_room as text