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
|
function memoire_aud
persistent F_echan amp duree nb_echan_son intervalle temps_son freqmin freqmax nbcomposants...
lgueur_delai nb_echan_blanc duree_ISIS nb_echan_ISIS duree_interpaire nb_echan_interpaire...
duree_ISI nb_echan_ISI duree_rampe nb_echan_rampe temps_rampe freq_rampe nb_echan_plateau ...
rep reponse nom_sujet tab tab1 nb nb_essai nb_bonnes_reponses nb_mauvaises_reponses nb_session ...
freq_comp_acc1 freq_comp_acc2 amp_comp accord_1 accord_2
function interface_memoire_aud
%interface_memoire_aud permet de réaliser la tache memoire_aud.
%Le bouton commencer permet de commencer la tache.
%Les boutons paire1 et paire2 permettent de répondre.
% Initialise et cache l'interface tant qu'elle est en construction.
f = figure('Visible','off','Position',[360,150,900,560], 'Color', [0.8,0.8,1],'Menubar', 'none', 'Toolbar', 'none');
% Construction des composants
BoutonCalibrationOn = uicontrol('Style','pushbutton',...
'String','Calibration','Position',[10,475,150,50],...
'Fontsize', 15,...
'Userdata',4,...
'BackgroundColor',[1 1 1],...
'ForegroundColor',[0.2,0,0.4],...
'Callback',{@BoutonCalibration_Callback});
///Ici je déclare les autres boutons ///
%Construction de la fenêtre
set([f,BoutonCommencer,Bouton1,Bouton2],'Units','normalized'); % Initialise l'interface.
set(f,'Name','Mémoire Auditive')% Donne un nom à l'interface (apparait dans le titre de la fenetre.
movegui(f,'center')% Déplace l'interface au centre de l'écran
set(f,'Visible','on')%Rend l'interface visible.
%Attribution des fonctions aux boutons
function BoutonCommencer_Callback(hObject, eventdata, handles)%s'exécute à la pression sur le bouton "commencer"
set (findobj(gcbf,'UserData',1),'Enable','Inactive');
set (findobj(gcbf,'UserData',2),'Enable','Inactive');
set (findobj(gcbf,'UserData',3),'Enable','Inactive');
synthese;
end
/// Idem, je déclare les fonctions associées aux autres boutons. ///
function initialisation %initialise les paramètres du test
rand('state', sum(100*clock));
nom_sujet = input('votre nom : ','s');
(...)
end
function calibration
t = 7;
temps = (0:1/F_echan:t)';
signal_sinus = amp * sin(2*pi*500*temps);
son_pur = audioplayer(signal_sinus, F_echan, 24);
playblocking(son_pur); % joue le son et attend sa fin avant de rendre la main
end
function synthese
amp_comp = amp/nbcomposants;
(...)
end
function analyse
nb_essai = nb_essai + 1;
if (reponse==1) & (rep==1)
nb_bonnes_reponses = nb_bonnes_reponses + 1;
nb_session = nb_session + 1;
if nb_session ==3
nb_session = 0;
nbcomposants = nbcomposants + 1;
else
nb_session = nb_session;
nbcomposants = nbcomposants;
end
(...)
end
initialisation;
interface_memoire_aud;
end |
Partager