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
|
% Reception des donnés envoyées par le pic et les afficher sur un
% graphique
% fclose(instrfind);
% INTERFACE GRAPHIQUE
% les abscisses
t = -5:0.01:5;
% créer la figure en précisant sa position et dimension en pixels
f = figure('Position', [100 100 500 500]);
% puis créer l'axe en précisant sa position et dimension en pixels
a = axes('Units', 'pixels', 'Position', [50 100 400 350]);
%CONFIG PORT COM
s = serial('COM1');
set(s, 'BaudRate', 19200, 'Parity', 'none');
fopen(s);
%RECIEVE DATA
for i=0:30
%reperer le 'CR' pour la lecture des bons octets
A = 0;
while A ~= 13
A = fread(s, 1, 'uint8');
%A
end
%lecture des deux octets
H = fread(s, 1, 'uint8');
%H
L = fread(s, 1, 'uint8');
%L
%compiler les deux octets en un seul
R = 0;
R = uint16(L);
while H > 0
R = R + 256;
H = H - 1;
end
R = double(R)*5/1024;
%disp('Resulat en Volt = ');disp(R2); %affichage resultat
hold on;
plot(i+1, R, 'b*');
i=i+1;
end
%CLOSE COM PORT
fclose(s);
fclose(instrfind); |
Partager