clear all

vu = visa('ni','USB0::0x0699::0x0363::C065088::INSTR');

%incrementa el tama?o del buffer
set(vu,'InputBufferSize',20000)

%abre la sesi?n Visa de comunicaci?n con el osciloscopio
fopen(vu)

%setea pendiente positiva de trigger
fprintf(vu,'TRIG:MAI:EDGE:SLO fall')

%pide el nivel de trigger
tritri=query(vu,'TRIG:MAI:LEV?')



%  PARA LEVANTAR LA CURVA DE PUNTOS DE UN CANAL

%fprintf(vu,':DAT:ENC ASCI') % define si quiero transferir ascii (muy lento)
fprintf(vu,'DATA:SOURCE CH1') % define canal

fprintf(vu,'DAT:ENC RPB')     % como es binario, define dónde va el LSB
fprintf(vu,'DAT:WID 1')       % 8 o 16 bits (en general sólo 8)

% PIDE EL PREÁMBULO (LOS PARÁMETROS DE LA CURVA)
ji=query(vu,'WFMPRE:XZE?;XIN?;YZE?;YMU?;YOFF?;');

% TRANSFIERE LA FORMA DE ONDA DEL OSCILOSCOPIO A LA PC
fprintf(vu,'CURV?');
[hh,count]=binblockread(vu,'uint8');

fclose(vu)
%(ya se puede cerrar la sesión)

figure(1),plot(hh)

% PARA FORMATEAR LOS DATOS
% Eje Y
er=str2num(ji);
kl=(hh-er(5))*er(4)+er(3);
% Eje X
t=[1:length(hh)]*er(2);%+er(1);  

figure(5),plot(t,kl)