Category

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

Communication Document

Development Platform:

Matlab

backmen.m：Code Content
  2. function rarg = backmen (action);
  3. % menu to return to main menu
  5. global Buttons;
  6. global menuwinh;
  7. global buttonh;
  8. global MenuWinPos;
  10. Buttons = 1;
  11. ButtonText1 = 'Main Menu';
  14. if nargin < 1                                           % no argument -> init 
  15.   action = 'init';
  16. end;
  20. % -----------------------------------------------------------------
  21. % init
  22. % initialize variables and open window
  25. if strcmp (action, 'init')
  27.   % constants and definitions
  29.    set(0,'Units','pixels');
  30.    scnsize = get(0,'ScreenSize');
  32.   MenuWinPos  = [10 (scnsize(4) - (Buttons*28+50)-40)];  % window position
  34.                                  
  36.   backmen ('openmenuwin');                                % open window
  37. end;
  40. % -----------------------------------------------------------------
  41. % openmenuwin
  42. % open window
  44. if strcmp (action, 'openmenuwin')
  45.  
  46.   menuwinh = figure ('Color', 'white', ...              % open window
  47.     'Position', [MenuWinPos 160 (Buttons*28+50)], ... 
  48.     'Name', 'Tutorial', ...
  49.     'NumberTitle', 'off', ...
  50.     'MenuBar', 'none', ...
  51.     'Resize', 'off', ...
  52.     'UserData', 'backmen');
  54.   uicontrol (menuwinh, ...
  55.     'Style', 'text', ...
  56.     'Position', [5 (Buttons*28+10) 150 25], ...
  57.     'BackgroundColor', 'white', ...
  58.     'HorizontalAlignment', 'center', ...
  59.     'String', 'End of Experiment');
  61.   for k = 1:Buttons
  62.     ypos = (Buttons- k) * 28 + 10;
  63.     ButtonTextString = eval (['ButtonText'  num2str(k)]);
  64.     CallBackFunction = ['Button' num2str(k)];
  65.     createbutton = ['buttonh(' num2str(k) ') = uicontrol (menuwinh, ' ...
  66.                         '''Position'', [5 ' num2str(ypos) ' 150 22], ' ...
  67.                          '''String'', ''' ButtonTextString ''', ' ...
  68.                          '''BackgroundColor'', ''white'', ' ...
  69.                          '''CallBack'', ''backmen (''''' CallBackFunction ''''')'');'];
  70.    eval (createbutton);
  71.   end;
  72.   clear createbutton ypos ButtonTextStr CallBackFunction;
  73. end;
  76. % -----------------------------------------------------------------
  77. % Button1
  80. if strcmp (action, 'Button1')
  81.  
  82.     global name;
  83.     if exist('name') == 1
  84.       if ~isempty(name)
  85.         eval(['abschuss ',name]);
  86.       end;
  87.     end
  89.     delete (menuwinh);
  91.     close;
  93.     DigModTutorial;
  95. end;