ZigBots‎ > ‎

keithley program

%V_max=6;
C_max=-6;
N=1;
%C_max=.6

if V_max > 7
    V_max=0;
else
end

s=serial('COM6', 'BaudRate', 9600);
fopen(s)
fprintf(s,'*rst') %reset keithley
fprintf(s,':sour:func volt')
fprintf(s,':sour:volt:mode fix')
fprintf(s,':sour:volt:rang 20')

fprintf(s,':sens:curr:prot 1')
fprintf(s,':sens:curr:range 1')
fprintf(s,':sour:volt:lev 0')

fprintf(s,':outp on')

for i=1:N
    fprintf(s,[':sour:volt ' num2str(0)])
    pause(1)    
    fprintf(s,[':sour:volt ' num2str(C_max)])
    pause(4)
    %fprintf(s,[':sour:volt ' num2str(0)])
    %pause(1)    
    %fprintf(s,[':sour:volt ' num2str(V_max)])
    %pause(4)
end
fprintf(s,':outp off')
fprintf(s,'*rst')
fclose(s);
Comments