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 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144
|
function test(varargin)
close all;
clear all;
clc;
%**************************************
% DEBUT DE LA FONCTION PRINCIPALE *
%**************************************
%Création de l'objet Figure fenetre_1
figure('units','pixels',...
'outerposition',[0 30 800 700],...
'name','Fenetre 1',...
'numbertitle','off',...
'menubar','none',...
'tag','fenetre_1');
data=guihandles(gcf);
guidata(gcf,data);
%Création de l'objet Uipanel panel_milieu
uipanel('Title',' Milieux ',...
'FontSize',11,...
'BackgroundColor','white',...
'Position',[.01 .81 .30 .18],...
'tag','panel_milieu');
data=guihandles(gcf);
guidata(gcf,data);
%********************
%Uipanel panel_milieu
%Création de l'objet Uicontrol radio_wtsa
uicontrol('style','radio',...
'callback',@wt_sa,...
'units','normalized',...
'position',[.03 .83 .09 .03],...
'fontsize',9.0,...
'string',' WTSA',...
'tag','radio_wtsa');
data=guihandles(gcf);
guidata(gcf,data);
%Création de l'objet Uipanel panel_parametre1
uipanel('Title','Paramètres D''entrées',...
'FontSize',11,...
'BackgroundColor','white',...
'Position',[.01 .01 .30 .78],...
'tag','panel_parametre1');
data=guihandles(gcf);
guidata(gcf,data);
%********************
%Uipanel panel_parametre1
%Création de l'objet Uicontrol text_densite1
uicontrol('style','text',...
'units','normalized',...
'position',[.03 .68 .15 .032],...
'fontsize',9.0,...
'string','Densité (kg/m^3)',...
'tag','text_densite1');
data=guihandles(gcf);
guidata(gcf,data);
%********************
%Uipanel panel_parametre1
%Création de l'objet Uicontrol edit_densite1
uicontrol('style','edit',...
'units','normalized',...
'position',[.19 .68 .1 .032],...
'fontsize',9.0,...
'string','1000',...
'tag','edit_densite1');
data=guihandles(gcf);
guidata(gcf,data);
%********************
%Uipanel panel_parametre1
%Création de l'objet Uicontrol text_no
uicontrol('style','text',...
'units','normalized',...
'position',[.03 .10 .15 .032],...
'fontsize',9.0,...
'string','Nb inclusions par m3',...
'tag','text_no');
data=guihandles(gcf);
guidata(gcf,data);
%********************
%Uipanel panel_parametre1
%Création de l'objet Uicontrol edit_no
uicontrol('style','text',...
'units','normalized',...
'position',[.19 .10 .1 .032],...
'fontsize',9.0,...
'string','0',...
'tag','edit_no');
data=guihandles(gcf);
guidata(gcf,data);
%Création de l'objet Uicontrol bouton_calculer
uicontrol('style','pushbutton',...
'units','normalized',...
'position',[.1 .025 .1 .04],...
'string','Calculer',...
'callback',@calculer,...
'tag','calculer');
data=guihandles(gcf);
guidata(gcf,data);
%********************************************
% DEBUT DE LA SOUS-FONCTION WT_SA *
%********************************************
function wt_sa(hObject, eventdata, handles)
data = guidata(gcbf);
h = findobj(gcbf, 'style', 'radio');
set(h, 'value', 0);
set(gcbo, 'value', 1)
data.flag=3;
guidata(gcbf,data);
%********************************************
% FIN DE LA SOUS-FONCTION WT_SA *
%********************************************
%********************************************
% DEBUT DE LA SOUS-FONCTION CALCULER *
%********************************************
function calculer(hObject, eventdata, handles)
data = guidata(gcbf);
%Recuperation des parametres utilisateurs
data.num_densite1 = str2num(get(data.edit_densite1,'String'));
no=10;
set(data.edit_no,'String',no);
%Selection des milieux
data=guidata(gcbf);
if(data.flag==3) %wtsa
data
data.flag
num_densite1
end |
Partager