Category

Development Platform
Home > Document > Communication Document > View Code
pulsemenu.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

pulsemenu.m：Code Content
  1. function rarg = pulsemenu (action);
  2. % menu for choice of pulse shape
  4. global name;
  6. global Buttons;
  7. global menuwinh;
  8. global buttonh;
  9. global MenuWinPos;
  12. Buttons = 4;
  13. ButtonText1 = 'NRZ Rectangular';
  14. ButtonText2 = 'Raised-Cosine';
  15. ButtonText3 = 'Root-RC';
  16. ButtonText4 = 'Main Menu';
  19. if nargin < 1                                           % no argument -> init 
  20.   action = 'init';
  21. end;
  24. % -----------------------------------------------------------------
  25. % init
  26. % initialize variables and open window
  29. if strcmp (action, 'init')
  31.   % constants and definitions
  33.    set(0,'Units','pixels');
  34.    scnsize = get(0,'ScreenSize');
  36.   MenuWinPos  = [10 (scnsize(4) - (Buttons*28+50)-40)];  % window position
  38.   pulsemenu ('openmenuwin');                                % open window
  39. end;
  42. % -----------------------------------------------------------------
  43. % openmenuwin
  44. % open window
  46. if strcmp (action, 'openmenuwin')
  47.  
  48.   menuwinh = figure ('Color', 'white', ...              % open window
  49.     'Position', [MenuWinPos 160 (Buttons*28+50)], ... 
  50.     'Name', 'Tutorial', ...
  51.     'NumberTitle', 'off', ...
  52.     'MenuBar', 'none', ...
  53.     'Resize', 'off', ...
  54.     'UserData', 'pulsemenu');
  56.   uicontrol (menuwinh, ...
  57.     'Style', 'text', ...
  58.     'Position', [5 (Buttons*28+5) 150 30], ...
  59.     'BackgroundColor', 'white', ...
  60.     'HorizontalAlignment', 'center', ...
  61.     'String', 'Pulse Shape');
  63.   for k = 1:Buttons
  64.     ypos = (Buttons- k) * 28 + 10;
  65.     ButtonTextString = eval (['ButtonText'  num2str(k)]);
  66.     CallBackFunction = ['Button' num2str(k)];
  67.     createbutton = ['buttonh(' num2str(k) ') = uicontrol (menuwinh, ' ...
  68.                         '''Position'', [5 ' num2str(ypos) ' 150 22], ' ...
  69.                          '''String'', ''' ButtonTextString ''', ' ...
  70.                          '''BackgroundColor'', ''white'', ' ...
  71.                          '''CallBack'', ''pulsemenu (''''' CallBackFunction ''''')'');'];
  72.    eval (createbutton);
  73.   end;
  74.   clear createbutton ypos ButtonTextStr CallBackFunction;
  75. end;
  78. % -----------------------------------------------------------------
  79. % Button1
  81. if strcmp (action, 'Button1')
  83.   delete(menuwinh);
  85.   name=[name,'nrz'];
  86.   filtmen;
  88. end;
  91. % -----------------------------------------------------------------
  92. % Button2
  94. if strcmp (action, 'Button2')
  96.   delete(menuwinh);
  98.   name=[name,'nyq'];
  99.   name=[name,'mf'];
  101.   backmen;
  102.   eval(name);
  104. end;
  107. % -----------------------------------------------------------------
  108. % Button3
  111. if strcmp (action, 'Button3')
  113.   delete(menuwinh);
  115.   name=[name,'wny'];
  116.   name=[name,'mf'];
  118.   backmen;
  119.   eval(name);
  121. end;
  124. % -----------------------------------------------------------------
  125. % Button4
  128. if strcmp (action, 'Button4')
  130.   delete(menuwinh);
  132.   DigModTutorial;
  134. end;