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

rINSTCONTROL/@MyTlb6300/MyTlb6300.m
c83331552c3bTekRSA-Freq-vs-Time

Last Change
Raw File

MyTlb6300.m
View Options

% Class for communication with NewFocus TLB6300 tunable laser controllers
classdef MyTlb6300 < MyScpiInstrument
methods (Access=public)
% Need to overwrite the standard query function as
% TLB6300 does not seem to support concatenation of commands
% in queries
function res_list=queryCommand(this, varargin)
if ~isempty(varargin)
% Send queries to the device one by one
n_cmd = length(varargin);
res_list = cell(n_cmd,1);
for i=1:n_cmd
cmd=varargin{i};
res_list{i}=query(this.Device, cmd);
end
else
res_list={};
end
end
end
%% Protected functions
methods (Access=protected)
function createCommandList(this)
% Output wavelength, nm
addCommand(this, 'wavelength',':SENS:WAVE',...
'access','r','default',780,'fmt_spec','%e',...
'info','Output wavelength (nm)');
% Diode current, mA
addCommand(this, 'current',':SENS:CURR:DIOD',...
'access','r','default',1,'fmt_spec','%e',...
'info','Diode current (mA)');
% Diode temperature, C
addCommand(this, 'temp_diode',':SENS:TEMP:LEV:DIOD',...
'access','r','default',10,'fmt_spec','%e',...
'info','Diode temperature (C)');
% Output power, mW
addCommand(this, 'power',':SENS:POW:LEV:FRON',...
'access','r','default',1,'fmt_spec','%e',...
'info','Output power (mW)');
% Wavelength setpoint, nm
addCommand(this, 'wavelength_sp',':WAVE',...
'default',780,'fmt_spec','%e',...
'info','Wavelength setpoint (nm)');
% Constant power mode on/off
addCommand(this, 'const_power',':CPOW',...
'access','w','default',true,'fmt_spec','%b',...
'info','Constant power mode on/off');
% Power setpoint, mW
addCommand(this, 'power_sp',':POW',...
'access','w','default',10,'fmt_spec','%e',...
'info','Power setpoint (mW)');
% Current setpoint, mW
addCommand(this, 'current_sp',':CURR',...
'default',100,'fmt_spec','%e',...
'info','Current setpoint (mA)');
% Control mode local/remote
addCommand(this, 'control_mode',':SYST:MCON',...
'access','w','val_list',{'EXT','INT'},...
'default','LOC','fmt_spec','%s',...
'info','Control local(EXT)/remote(INT)');
% Output on/off
addCommand(this, 'enable_output',':OUTP',...
'default',false,'fmt_spec','%b',...
'info','on/off');
% Wavelength track is not fully remotely controllable with
% TLB6300
end
end
%% Public functions including callbacks
methods (Access=public)
function setMaxOutPower(this)
% Depending on if the laser in the constat power or current
% mode, set value to max
openDevice(this);
if this.const_power
% Actual power is clipped to max practical value
writeCommand(this, ':POW 99');
else
% Maximum current according to specs is 152 mA
writeCommand(this, ':CURR 150');
end
closeDevice(this);
end
end
end
c4science · Help