m_file.m

来自「这是一个用于语音信号处理的工具箱」· M 代码 · 共 78 行

%
% Callback function for File button of Main window
% Author : Minkyu Lee
% Date : 29-Sep-1994
%
% Modified by Karthik on 05/07/97 
% Modified by D. G. Childers

PV=[2 120 228 204];
s2 = 'File';

while exist('m_fi_win_h')==1
   try1 = 'get(m_fi_win_h,''position'');';
   eval(try1,catch2);
   if check ==0
      clear m_fi_win_h;
      check = 1;
      break;
   end
   s1 = get(m_fi_win_h,'Name');
   if ~strcmp(s1,s2)
      clear m_fi_win_h;
      break;
   end
   figure(m_fi_win_h);
   break;
end;

if exist('m_fi_win_h')~=1;

   m_fi_win_h=figure('Position',PV,...
      'Resize','on',...
      'Numbertitle','off',...
      'color',BACK_COLOR,...
      'Name',s2);
   
   m_fi_po_load_h=uicontrol('Style','pushbutton',...
      'Position',[10 170 100 30],...
      'String','Load(ASCII)',...
      'Callback','f_load');
   
   m_fi_po_save_h=uicontrol('Style','pushbutton',...
      'Position',[120 170 105 30],...
      'String','Save(ASCII)',...
      'Callback','f_save');
   
   m_fi_pb_rate_h=uicontrol('Style','pushbutton',...
      'Position',[10 120 105 30],...
      'String','Rate conversion',...
      'Callback','f_rate');
   
   m_fi_pb_wave_h=uicontrol('Style','pushbutton',...
      'Position',[120 120 105 30],...
      'String','Waveform generator',...
      'Callback','f_wave');
   
   m_fi_po_wav_h=uicontrol('Style','pushbutton',...
      'Position',[10 70 105 30],...
      'String','.wav to ASCII ',...
      'Callback','f_wav_as');
   
   m_fi_po_wav_h=uicontrol('Style','pushbutton',...
      'Position',[120 70 105 30],...
      'String','ASCII to .wav ',...
      'Callback','f_as_wav');

   m_fi_po_play_h=uicontrol('Style','pushbutton',...
      'Position',[10 20 105 30],...
      'String','Play(PC)',...
      'Callback','f_play');

   m_fi_pb_cancel_h=uicontrol('Style','pushbutton',...
      'Position',[120 20 105 30],...
      'String','Cancel',...
      'Callback','f_ok');
end;