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

rINSTCONTROL/@MyInstrument/MyInstrument.m
cd67dd1c2095TekRSA-Freq-vs-Time

Last Change
Raw File

MyInstrument.m
View Options

classdef MyInstrument < dynamicprops & MyInputHandler
properties (Access=public)
name='';
interface='';
address='';
visa_brand='ni';
%Contains the device object. struct() is a dummy, as Device
%needs to always support properties for consistency.
Device=struct();
end
properties (SetAccess=protected, GetAccess=public)
%Trace object for storing data
Trace=MyTrace();
end
properties (Constant=true)
% Default parameters for device connection
DEFAULT_INP_BUFF_SIZE = 1e7; % buffer size bytes
DEFAULT_OUT_BUFF_SIZE = 1e7; % buffer size bytes
DEFAULT_TIMEOUT = 10; % Timeout in s
end
events
NewData;
end
methods (Access=protected)
% This function is overloaded to add more parameters to the parser
function p = createConstructionParser(this)
p=inputParser();
% Ignore unmatched parameters
p.KeepUnmatched = true;
addRequired(p,'interface',@ischar);
addRequired(p,'address',@ischar);
addParameter(p,'name','',@ischar);
addParameter(p,'visa_brand',this.visa_brand,@ischar);
this.ConstructionParser=p;
end
end
methods (Access=public)
function this=MyInstrument(interface, address, varargin)
createConstructionParser(this);
%Loads parsed variables into class properties
parseClassInputs(this,interface,address,varargin{:});
% Interface and address can correspond to an entry in the list
% of local instruments. Read this entry in such case.
if strcmpi(interface, 'instr_list')
% load the InstrumentList structure
InstrumentList = getLocalSettings('InstrumentList');
% In this case 'address' is the instrument name in
% the list
instr_name = address;
if ~isfield(InstrumentList, instr_name)
error('%s is not a field of InstrumentList',...
instr_name);
end
if ~isfield(InstrumentList.(instr_name), 'interface')
error(['InstrumentList entry ', instr_name,...
' has no ''interface'' field']);
else
this.interface = InstrumentList.(instr_name).interface;
end
if ~isfield(InstrumentList.(instr_name), 'address')
error(['InstrumentList entry ', instr_name,...
' has no ''address'' field']);
else
this.address = InstrumentList.(instr_name).address;
end
% Assign name automatically, but not overwrite if
% already specified
if isempty(this.name)
this.name = instr_name;
end
end
end
function delete(this)
%Closes the connection to the device
closeDevice(this);
%Deletes the device object
try
delete(this.Device);
catch
warning('Device object cannot be deleted')
end
end
%Triggers event for acquired data
function triggerNewData(this)
notify(this,'NewData')
end
% Read all the relevant instrument properties and return as a
% file header structure.
% Dummy method that needs to be re-defined by a parent class
function HdrStruct=readHeader(this)
HdrStruct.name.value = this.name;
HdrStruct.name.str_spec = '%s';
HdrStruct.interface.value = this.interface;
HdrStruct.interface.str_spec = '%s';
HdrStruct.address.value = this.address;
HdrStruct.address.str_spec = '%s';
end
%% Connect, open, configure and close the device
% Connects to the device, explicit indication of interface and
% address is for ability to handle instr_list as interface
function connectDevice(this)
try
% visa brand, 'ni' by default
vb = this.visa_brand;
switch lower(this.interface)
case 'constructor'
% in this case the 'address' is a command
% (ObjectConstructorName) as returned by the
% instrhwinfo
this.Device=eval(this.address);
case 'visa'
this.Device=visa(vb, this.address);
case 'tcpip'
% Works only with default socket. Use 'visa' or
% 'constructor' if socket needs to be specified
this.Device=visa(vb, sprintf(...
'TCPIP0::%s::inst0::INSTR',this.address));
case 'usb'
this.Device=visa(vb, sprintf(...
'USB0::%s::INSTR',this.address));
case 'serial'
com_no = sscanf(this.address,'COM%i');
this.Device = visa(vb, sprintf(...
'ASRL%i::INSTR',com_no));
otherwise
warning('Device is not connected: unknown interface');
end
configureDeviceDefault(this);
catch
warning('Device is not connected');
end
end
% Opens the device if it is not open. Does not throw error if
% device is already open for communication with another object, but
% tries to close existing connections instead.
function openDevice(this)
if ~isopen(this)
try
fopen(this.Device);
catch
% try to find and close all the devices with the same
% VISA resource name
try
instr_list=instrfind('RsrcName',this.Device.RsrcName);
fclose(instr_list);
fopen(this.Device);
warning('Multiple instrument objects of address %s exist',...
this.address);
catch
error('Could not open device')
end
end
end
end
% Closes the connection to the device
function closeDevice(this)
if isopen(this)
fclose(this.Device);
end
end
function configureDeviceDefault(this)
dev_prop_list = properties(this.Device);
if ismember('OutputBufferSize',dev_prop_list)
this.Device.OutputBufferSize = this.DEFAULT_OUT_BUFF_SIZE;
end
if ismember('InputBufferSize',dev_prop_list)
this.Device.InputBufferSize = this.DEFAULT_INP_BUFF_SIZE;
end
if ismember('Timeout',dev_prop_list)
this.Device.Timeout = this.DEFAULT_TIMEOUT;
end
end
%Checks if the connection to the device is open
function bool=isopen(this)
try
bool=strcmp(this.Device.Status, 'open');
catch
warning('Cannot access device Status property');
bool=false;
end
end
end
end
c4science · Help