Category

Development Platform
Home > Document > Communication Document > View Code
filtmen.m
Package: 现代通信系统matlab版源代码.zip　[view]
Upload User: loeagle
Upload Date: 2013-03-02
Package Size: 1236k
Code Size: 3k
Category:

Communication Document

Development Platform:

Matlab

filtmen.m：Code Content
  2. function rarg = filtmen (action);
  3. % menu to choose receive filter
  5. global name;
  7. global Buttons;
  8. global menuwinh;
  9. global buttonh;
  10. global MenuWinPos;
  13. Buttons = 3;
  14. ButtonText1 = 'Matched Filter';
  15. ButtonText2 = 'Butterworth';
  16. ButtonText3 = 'Main Menu';
  19. if nargin < 1                                           % no argument -> init 
  20.   action = 'init';
  21. end;
  25. % -----------------------------------------------------------------
  26. % init
  27. % initialize variables and open window
  30. if strcmp (action, 'init')
  32.   % constants and definitions
  34.    set(0,'Units','pixels');
  35.    scnsize = get(0,'ScreenSize');
  37.   MenuWinPos  = [10 (scnsize(4) - (Buttons*28+50)-40)];  % window position
  39.   filtmen ('openmenuwin');                                % open window
  40. end;
  43. % -----------------------------------------------------------------
  44. % openmenuwin
  45. % open window
  47. if strcmp (action, 'openmenuwin')
  48.  
  49.   menuwinh = figure ('Color', 'white', ...              % open window
  50.     'Position', [MenuWinPos 140 (Buttons*28+50)], ... 
  51.     'Name', 'Tutorial', ...
  52.     'NumberTitle', 'off', ...
  53.     'MenuBar', 'none', ...
  54.     'Resize', 'off', ...
  55.     'UserData', 'filtmen');
  57.   uicontrol (menuwinh, ...
  58.     'Style', 'text', ...
  59.     'Position', [5 (Buttons*28+10) 130 30], ...
  60.     'BackgroundColor', 'white', ...
  61.     'HorizontalAlignment', 'center', ...
  62.     'String', 'Receive Filter:');
  64.   for k = 1:Buttons
  65.     ypos = (Buttons- k) * 28 + 10;
  66.     ButtonTextString = eval (['ButtonText'  num2str(k)]);
  67.     CallBackFunction = ['Button' num2str(k)];
  68.     createbutton = ['buttonh(' num2str(k) ') = uicontrol (menuwinh, ' ...
  69.                         '''Position'', [5 ' num2str(ypos) ' 130 22], ' ...
  70.                          '''String'', ''' ButtonTextString ''', ' ...
  71.                          '''BackgroundColor'', ''white'', ' ...
  72.                          '''CallBack'', ''filtmen (''''' CallBackFunction ''''')'');'];
  73.    eval (createbutton);
  74.   end;
  75.   clear createbutton ypos ButtonTextStr CallBackFunction;
  76. end;
  80. % -----------------------------------------------------------------
  81. % Button1
  84. if strcmp (action, 'Button1')
  86.   delete(menuwinh);
  88.   name=[name,'mf'];
  90.   backmen;
  91.   eval(name);
  93. end;
  96. % -----------------------------------------------------------------
  97. % Button2
  100. if strcmp (action, 'Button2')
  102.   delete(menuwinh);
  104.   name=[name,'bw'];
  106.   backmen;
  107.   eval(name);
  109. end;
  112. % -----------------------------------------------------------------
  113. % Button3
  116. if strcmp (action, 'Button3')
  118.   delete(menuwinh);
  120.   DigModTutorial;
  122. end;