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

rINSTCONTROL/@MyInstrument/MyInstrument.m
8aa80295e013TekRSA-Freq-vs-Time

Last Change
Raw File

MyInstrument.m
View Options

classdef MyInstrument < dynamicprops & MyInputHandler
properties (Access=public)
name='';
interface='';
address='';
Device %Device communication object
Trace %MyTrace object for storing data
end
properties (GetAccess=public, SetAccess=protected)
idn_str=''; % identification string
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
PropertyRead
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);
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{:});
% Create an empty trace
this.Trace=MyTrace();
% Create dummy device object that supports properties
this.Device=struct();
this.Device.Status='not connected';
% 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
% Connecting device creates a communication object,
% but does not attempt communication
connectDevice(this);
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
%Triggers event for property read from device
function triggerPropertyRead(this)
notify(this,'PropertyRead')
end
% Read all the relevant instrument properties and return as a
% MyMetadata object.
% Dummy method that needs to be re-defined by a parent class
function Hdr=readHeader(this)
Hdr=MyMetadata();
% Generate valid field name from instrument name if present and
% class name otherwise
if ~isempty(this.name)
field_name=genvarname(this.name);
else
field_name=class(this);
end
addField(Hdr, field_name);
% Add identification string as parameter
addParam(Hdr, field_name, 'idn', this.idn_str);
end
%% Connect, open, configure, identificate 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)
int_list={'constructor','visa','tcpip','serial'};
if ~ismember(lower(this.interface), int_list)
warning(['Device is not connected, unknown interface ',...
this.interface,'. Valid interfaces are ',...
'''constructor'', ''visa'', ''tcpip'' and ''serial'''])
return
end
try
switch lower(this.interface)
% Use 'constructor' interface to connect device with
% more that one parameter, specifying its address
case 'constructor'
% in this case the 'address' is a command
% (ObjectConstructorName), e.g. as returned by the
% instrhwinfo, that creates communication object
% when executed
this.Device=eval(this.address);
case 'visa'
% visa brand is 'ni' by default
this.Device=visa('ni', this.address);
case 'tcpip'
% Works only with default socket. Use 'constructor'
% if socket or other options need to be specified
this.Device=tcpip(this.address);
case 'serial'
this.Device=serial(this.address);
otherwise
error('Unknown interface');
end
configureDeviceDefault(this);
catch
warning(['Device is not connected, ',...
'error while creating communication object.']);
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
%% Identification
% Attempt communication and identification of the device
function [str, msg]=idn(this)
was_open=isopen(this);
try
openDevice(this);
[str,~,msg]=query(this.Device,'*IDN?');
catch ErrorMessage
str='';
msg=ErrorMessage.message;
end
this.idn_str=str;
% Leave device in the state it was in the beginning
if ~was_open
try
closeDevice(this);
catch
end
end
end
end
end
c4science · Help