开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 文章/文档 > 通讯编程文档 > 查看源码
pshapemenu.m
资源名称：现代通信系统matlab版源代码.zip　[点击查看]
上传用户：loeagle
上传日期：2013-03-02
资源大小：1236k
文件大小：3k
源码类别：

通讯编程文档

开发平台：

Matlab

pshapemenu.m：源码内容
  1. function rarg = pshapemenu (action);
  3. global Buttons;
  4. global menuwinh;
  5. global buttonh;
  6. global MenuWinPos;
  9. Buttons = 6;
  10. ButtonText1 = 'NRZ Rectangular';
  11. ButtonText2 = 'Raised-Cosine';
  12. ButtonText3 = 'Root-RC';
  13. ButtonText4 = 'Butterworth';
  14. ButtonText5 = 'Convolution';
  15. ButtonText6 = 'Main Menu';
  18. if nargin < 1                                           % no argument -> init 
  19.   action = 'init';
  20. end;
  23. % -----------------------------------------------------------------
  24. % init
  25. % initialize variables and open window
  28. if strcmp (action, 'init')
  30.   % Constants and definitions
  32.    set(0,'Units','pixels');
  33.    scnsize = get(0,'ScreenSize');
  35.   MenuWinPos  = [10 (scnsize(4) - (Buttons*28+50)-40)];  % window position
  37.   pshapemenu ('openmenuwin');                                % open window
  38. end;
  41. % -----------------------------------------------------------------
  42. % openmenuwin
  43. % 
  45. if strcmp (action, 'openmenuwin')
  46.  
  47.   menuwinh = figure ('Color', 'white', ...              % open window
  48.     'Position', [MenuWinPos 160 (Buttons*28+50)], ... 
  49.     'Name', 'Tutorial', ...
  50.     'NumberTitle', 'off', ...
  51.     'MenuBar', 'none', ...
  52.     'Resize', 'off', ...
  53.     'UserData', 'pshapemenu');
  55.   uicontrol (menuwinh, ...
  56.     'Style', 'text', ...
  57.     'Position', [5 (Buttons*28+10) 150 25], ...
  58.     'BackgroundColor', 'white', ...
  59.     'HorizontalAlignment', 'center', ...
  60.     'String', 'Pulse Shape');
  62.   for k = 1:Buttons
  63.     ypos = (Buttons- k) * 28 + 10;
  64.     ButtonTextString = eval (['ButtonText'  num2str(k)]);
  65.     CallBackFunction = ['Button' num2str(k)];
  66.     createbutton = ['buttonh(' num2str(k) ') = uicontrol (menuwinh, ' ...
  67.                         '''Position'', [5 ' num2str(ypos) ' 150 22], ' ...
  68.                          '''String'', ''' ButtonTextString ''', ' ...
  69.                          '''BackgroundColor'', ''white'', ' ...
  70.                          '''CallBack'', ''pshapemenu (''''' CallBackFunction ''''')'');'];
  71.    eval (createbutton);
  72.   end;
  73.   clear createbutton ypos ButtonTextStr CallBackFunction;
  74. end;
  77. % -----------------------------------------------------------------
  78. % Button1
  81. if strcmp (action, 'Button1')
  83.   delete(menuwinh);
  85.   %close all Matlab windows
  86.   delete(get (0, 'Children'));
  88.   nrz;
  89.   pshapemenu;
  91. end;
  93. % -----------------------------------------------------------------
  94. % Button2
  96. if strcmp (action, 'Button2')
  98.   delete(menuwinh);
  100.   %close all Matlab windows
  101.   delete(get (0, 'Children'));
  103.   nyqui(0);
  104.   pshapemenu;
  106. end;
  108. % -----------------------------------------------------------------
  109. % Button3
  111. if strcmp (action, 'Button3')
  113.   delete(menuwinh);
  115.   %close all Matlab windows
  116.   delete(get (0, 'Children'));
  118.   wnyqui(0);
  119.   pshapemenu;
  121. end;
  123. % -----------------------------------------------------------------
  124. % Button4
  126. if strcmp (action, 'Button4')
  128.   delete(menuwinh);
  130.   %close all Matlab windows
  131.   delete(get (0, 'Children'));
  133.   bwthui;
  134.   pshapemenu;
  136. end;
  138. % -----------------------------------------------------------------
  139. % Button5
  140. %
  142. if strcmp (action, 'Button5')
  144.   delete(menuwinh);
  146.   %close all Matlab windows
  147.   delete(get (0, 'Children'));
  149.   convmenu;
  150.  
  151. end;
  153. % -----------------------------------------------------------------
  154. % Button6
  157. if strcmp (action, 'Button6')
  159.   delete(menuwinh);
  161.   %close all Matlab windows
  162.   delete(get (0, 'Children'));
  164.   DigModTutorial;
  166. end;