% LEE_OSC
% Funcion para adquirir datos desde el osciloscopio DSO X-2012A
% [t,s]=lee_osc(ch)


function [t,s]=lee_osc(ch)

 osc = visa('agilent', 'USB0::0x0957::0x1797::MY54310922::0::INSTR');
 set(osc,'InputBufferSize',1000000), 
 fopen(osc);
 
 if ch==1
     fprintf(osc,'WAV:SOUR CHAN1')
 elseif ch==2
     fprintf(osc,'WAV:SOUR CHAN2')
 else
     disp('Numero de canal errado, ch = 1 o ch = 2')
     return
 end
 fprintf(osc,'WAV:FORM ASCII')
 
 fprintf(osc,'WAV:DATA?')
 S = fscanf(osc);
 S=S(11:length(S));
 s=str2num(S);
 fprintf(osc,'WAV:XINC?')
 DT = fscanf(osc);
 dt=str2num(DT);
 
 fprintf(osc,'WAV:XOR?')
 t0 = fscanf(osc);
 t0=str2num(t0);
 
 t=(0:dt:dt*(length(s)-1))+t0;
 
 
fclose(osc) 
end