executer une partie du script toute les secondes

Version imprimable

Bonjour,

Je construis un programme qui lit la valeur de mon multimètre via le réseau et affiche la valeur dans une figure.
Entre deux mesures j'avais mis jusqu'à présent "pause 1" mais le temps d'accès à l'appareil prend entre 0.1 et 0.5s.

J'essaie d'utiliser la fonction timer pour lancer une acquisition toutes les 1 seconde , mais j'ai cette erreur :

Citation:

Error while evaluating TimerFcn for timer 'timer-1'

Too many input arguments.

8O

vous pouvez m'aider svp
Merci

Le script :
Code:

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 %% initialisation clear;clc; duree=1; iterrations=10 ; %% timer map = [0.5 0 0 0.9412 0.9412 0.9412]; t = timer(); t.ExecutionMode = 'fixedRate'; t.Period = duree; t.TasksToExecute = inf; t.TimerFcn = @acqMultimetre ; %% Connexion multimetre type=(':MEAS:VOLT:DC?'); multi=visadev( 'TCPIP0::192.168.0.11::inst0::INSTR' ) ; figure colormap (map) %% début période start(t) if i==iterrations stop(t) clear multi; end %% fonction acquisition function [] = acqMultimetre() %for i = 1:iterrations tic i=i+1; write(multi, type); acq= readline(multi); mesure=str2double(acq); M(i)=mesure*1; plot(M); xlabel('Durée (s)') ylabel('Tension (V)') grid on toc end

Voici une première version corrigée :

Code:

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
function test
 
%% initialisation
clear;clc;
duree=1;
iterrations=10 ;
M = nan(1,iterrations);
 
i = 0;
 
%% timer
map = [0.5 0 0
    0.9412 0.9412 0.9412];
t = timer();
t.ExecutionMode = 'fixedRate';
t.Period = duree;
t.TasksToExecute = inf;
t.TimerFcn = @acqMultimetre ;
 
%% Connexion multimetre
% type=(':MEAS:VOLT:DC?');
% multi=visadev( 'TCPIP0::192.168.0.11::inst0::INSTR' ) ;
figure
colormap (map)
h = plot(M);
xlabel('Durée (s)')
ylabel('Tension (V)')
grid on
drawnow()
%% début période
start(t)
 
while i<=iterrations
 
end
 
stop(t)
% clear multi;
 
%% fonction acquisition
    function acqMultimetre(obj, event)
        %for i = 1:iterrations
        tic
        i=i+1;
        %     write(multi, type);
        %     acq= readline(multi);
        %     mesure=str2double(acq);
        %     M(i)=mesure*1;
        M(i)=rand;
        set(h, 'ydata', M);
        drawnow()
 
        toc
 
    end
 
end

J'ai mis certaines lignes en commentaire car je ne possède pas les Toolbox correspondantes.

23/11/2022, 17h17
cubitus_54

1 pièce(s) jointe(s)

Bonjour,
merci pour le code ;)

Ça fonctionne bien :applo:
Je suppose que déclarer le script comme une fonction c'est pour passer la variable i vers la fonction acquisition ?

Sur le test ci-dessous, j'ai généré une sinusoïde d'une durée de 60s. Pour la durée c'est OK
par contre, le graphe commence à 1 et termine à 61, on peut l'arranger facilement ?
Dans la déclaration function acqMultimetre(obj, event) à quoi sert obj et event ? Matlab me les signale en "Warning" comme variables non utilisées.

Merci
Pièce jointe 629473
23/11/2022, 19h25
Jerome Briot

Citation:

Envoyé par cubitus_54

Je suppose que déclarer le script comme une fonction c'est pour passer la variable i vers la fonction acquisition ?

Oui mais pas que. Il faut aussi créer les fonctions dans une fonction globale. Voir Qu'est-ce qu'une fonction imbriquée (nested function)*?

Citation:

Envoyé par cubitus_54

par contre, le graphe commence à 1 et termine à 61, on peut l'arranger facilement ?

Il est possible de modifier les propriétés XTick et XTickLabel de l'objet Axes :

Code:

set(gca, 'xtick', ..., 'xticklabel', ...);

Citation:

Envoyé par cubitus_54

Dans la déclaration function acqMultimetre(obj, event) à quoi sert obj et event ? Matlab me les signale en "Warning" comme variables non utilisées.

C'est dû à la syntaxe employée lors de la déclaration du Callback du Timer : @acqMultimetre
Avec le @, la fonction attend deux arguments obligatoires en entrée. On les nomme obj et event par convention.
23/11/2022, 20h01
cubitus_54

Super merci pour les précisions,

J'ai réalisé une acquisition sur 10 minutes, sur 600 secondes j'ai un retard de 6 secondes.
C'est peu et beaucoup.... c'est dû à quoi ?
J'ai compensé en mettant la durée à 0.99.

Plutôt que mettre un certain nombre d'itérations j'ai essayé

Code:

t.TasksToExecute = 600;

Ça s'arrête bien au bout de 600s, mais ça ne termine pas le programme donc ça n'exécute pas la commande

Code:

clear multi;

le problème c'est sans cette action l'appareil visa

Code:

multi=visadev( 'TCPIP0::192.168.0.11::inst0::INSTR' )

reste en mémoire et on ne peut plus relancer le programme.

merci ;)

Peut être comme ceci ?

Code:

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
function test
 
%% initialisation
clear;clc;
duree=1;
iterrations=10 ;
M = nan(1,iterrations);
 
i = 0;
 
type = (':MEAS:VOLT:DC?');
multi = visadev( 'TCPIP0::192.168.0.11::inst0::INSTR' ) ;
 
%% timer
map = [0.5 0 0
    0.9412 0.9412 0.9412];
t = timer();
t.ExecutionMode = 'fixedRate';
t.Period = duree;
t.TasksToExecute = inf;
t.TimerFcn = @acqMultimetre;
t.StopFcn = @stop;
t.TasksToExecute = 600;
 
%% Connexion multimetre
 
figure
colormap (map)
h = plot(M);
xlabel('Durée (s)')
ylabel('Tension (V)')
grid on
drawnow()
 
%% début période
start(t)
 
%% fonction acquisition
    function acqMultimetre(obj, event)
 
        i=i+1;
        write(multi, type);
        acq= readline(multi);
        mesure=str2double(acq);
        M(i)=mesure*1;
        set(h, 'ydata', M);
        drawnow()
 
    end
 
    function stop(obj, event)
 
        clear multi
 
    end
 
end

1 pièce(s) jointe(s)

Ça commence à être comme je le voulais,

Il reste un truc perturbant 8O
lors du lancement, le workspace devient vide et le programme s'exécute "en arrière-plan"
Si j'ai fait une bêtise du genre durée de 600s à la place de 60s, comment on peut l'arrêter proprement ?

Merci :applo:

Code:

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
function test
%% initialisation
clear;clc;
periode=0.99;
iterrations=60 ;
M = nan(1,iterrations);
i=0;
map = [0.5 0 0 
           0.9412 0.9412 0.9412];
%% timer
t = timer();
t.ExecutionMode = 'fixedRate';
t.Period = periode;
t.TasksToExecute = inf;
t.TimerFcn = @acqMultimetre;
t.StopFcn = @stop;
t.TasksToExecute = iterrations;
%% Connexion multimetre
type=(':MEAS:VOLT:DC?');
multi=visadev( 'TCPIP0::192.168.0.11::inst0::INSTR' ) ;
figure
colormap (map)
h = plot(M);
xlabel('Durée (s)')
ylabel('Tension (V)')
grid on
%% début période
start(t)
 
%% fonction acquisition
    function acqMultimetre(obj, event)
        i=i+1;
        write(multi, type);
        acq= readline(multi);
         mesure=str2double(acq);
         M(i)=mesure*1;
        %M(i)=rand;
        set(h, 'ydata', M);
        title(['\fontsize{16}','Tension : ',num2str(mesure),'V']);
        drawnow()
    end
 
%% fonction arrêt
    function stop(obj, event)
        clear multi
    end
end

Pièce jointe 629511

24/11/2022, 17h04
Jerome Briot

Citation:

Envoyé par cubitus_54

Si j'ai fait une bêtise du genre durée de 600s à la place de 60s, comment on peut l'arrêter proprement ?

Il n'y a pas de méthode pour arrêter proprement le programme. Dans ce cas précis, seule la fermeture de la fenêtre peut arrêter le code (du moins générer une erreur).

Pour améliorer tout ça, il faut créer une vraie interface graphique avec par exemple, un bouton pour lancer l’acquisition et un autre pour l'arrêter.
24/11/2022, 19h45
cubitus_54

OK

Encore merci pour tout !