Discussion :

[cubitus_54]

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 :

Error while evaluating TimerFcn for timer 'timer-1'

Too many input arguments.

vous pouvez m'aider svp
Merci

Le script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jerome Briot]

Voici une première version corrigée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[cubitus_54]

Bonjour,
merci pour le code

Ça fonctionne bien
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

[Jerome Briot]

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)*?

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

clear multi;

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

merci

[Jerome Briot]

Peut être comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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