1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
| function NIdaqWindows(action)
(........)
if (strcmp (action, 'initialize'))
fig = figure ('name','Configuration','units','normal','menuBar','none',...
'numberTitle','off','position',[.00,.01,.99,.90],...
'resize','off','color',[1 1 1],'Tag','fig');
%___________________
%Menu
menu1=uimenu(fig,'Label','File');
uimenu(menu1,'Label','Exit','Callback',@functions_menu);
menu2=uimenu(fig,'Label','Setup');
uimenu(menu2,'Label','Reset','Callback',@functions_menu);
menu3=uimenu(fig,'Label','?');
uimenu(menu3,'Label','Help');
uimenu(menu3,'Label','About','Callback',@functions_menu);
(.......)
end
%end Ce end est en trop me semble-t-il
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%Sub-Function%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function functions_menu(obj,event)
L = get(obj,'Label');
switch L
%Case 1: Menu Exit.
case 'Exit'
close gcf;
(...........)
end
%end Ce end est aussi en trop me semble-t-il |
Partager