Homec4science
Diffusion Instrument Control (TekRSA-Freq-vs-Time) Browse

rINSTCONTROL/@MyPm/MyPm.m
43936828660cTekRSA-Freq-vs-Time

Last Change
Raw File

MyPm.m
View Options

% Class for Thorlabs PM100D powermeters
classdef MyPm < MyScpiInstrument & MyCommCont
methods (Access = public)
function this = MyPm(varargin)
this@MyCommCont(varargin{:});
% reading from powermeter is quick
this.Comm.Timeout = 1;
createCommandList(this);
end
% Appantly, this device sometimemes fails if it receives very long
% commands, so query them one by one
function writeStrings(this, varargin)
% Send commands to device one by one
for i=1:length(varargin)
cmd_str = varargin{i};
writeString(this, cmd_str);
end
end
% Query commands and return resut as cell array of strings
function res_list = queryStrings(this, varargin)
% Send commands to device one by one
ncmd = length(varargin);
res_list = cell(1,ncmd);
for i = 1:ncmd
cmd_str = varargin{i};
res_list{i} = queryString(this, cmd_str);
end
end
end
methods (Access = protected)
function createCommandList(this)
% Sensor name and info
addCommand(this, 'sensor', ':SYSTem:SENSor:IDN', ...
'format', '%s', ...
'access', 'r');
addCommand(this, 'average_no',':SENSe:AVERage:COUNt', ...
'format', '%i', ...
'info', ['Number of averages, 1 sample takes ' ...
'approx. 3ms']);
addCommand(this, 'wl', ':SENSe:CORRection:WAVelength',...
'format', '%e', ...
'info', 'Operation wavelength (nm)');
addCommand(this, 'auto_pow_rng', ...
':SENSe:POWer:DC:RANGe:AUTO', ...
'format', '%b', ...
'info', 'Auto power range');
addCommand(this, 'power_unit', ':SENSe:POWer:DC:UNIT', ...
'format', '%s',...
'value_list', {'W', 'DBM'})
addCommand(this, 'power', ':MEASure:POWer', ...
'format', '%e', ...
'access', 'r')
end
end
end
c4science · Help