			% Class for controlling HighFinesse wavelengthmeter, tested with WS6-200

			classdef MyHfWs < handle

			properties (Access=public)

			% Files containg the functions for communication with
			% wavelengthmeter, dll and header
			dllname = 'wlmData.dll'
			headername = 'wlmData.hml'

			% Timeout for trying to run the wavelengthmeter server app
			run_server_timeout = 60 % seconds
			end

			properties (GetAccess = public, SetAccess = protected)

			% These properties use get methods to read value every time they
			% are addressed
			wavelength = 0 % Wavelength in nm
			frequency = 0 % Frequency in THz

			idn_str = ''
			end

			properties (Access = protected)
			Metadata = MyMetadata.empty()
			end

			properties (Dependent = true)
			libname
			end

			methods (Access = public)
			function this = MyHfWs(varargin)
			P = MyClassParser(this);
			processInputs(P, this, varargin{:});

			% Load dll library and its header
			loadWlmLib(this);

			% Check if the wavelengthmeter software is running
			if ~isServerRunning(this)
			disp(['Wavelength meter server apptication ', ...
			'is not running. Attempting to start.'])
			runServer(this);
			startMeas(this);
			end
			end

			function loadWlmLib(this)
			dll_path = which(this.dllname);
			if isempty(dll_path)
			error([this.dllname,' is not found. This library ',...
			'needs to be present on Matlab path.'])
			end
			header_path = which(this.headername);
			if isempty(header_path)
			error([this.headername,' is not found. This header ',...
			'file needs to be present on Matlab path.'])
			end

			if ~libisloaded(this.libname)
			fprintf('Loading %s library with %s header\n', ...
			this.dllname, this.headername);
			loadlibrary(dll_path, header_path);
			end
			end

			function ret_val = readWavelength(this, varargin)
			p = inputParser();
			addParameter(p, 'n_ch', 1, @(x)assert( (mod(x,1)==0) && ...
			(x>=1) && (x<=8), ...
			'Channel number must be integer between 1 and 8.'))
			parse(p, varargin{:})

			n_ch = p.Results.n_ch;

			% read out the measured wavelength
			ret_val = calllib(this.libname, 'GetWavelengthNum', n_ch, 0);
			end

			function ret_val = readFrequency(this, varargin)
			p = inputParser();
			addParameter(p, 'n_ch', 1, @(x)assert( (mod(x,1)==0) && ...
			(x>=1) && (x<=8), ...
			'Channel number must be integer between 1 and 8.'))
			parse(p, varargin{:})

			n_ch = p.Results.n_ch;

			% read out the measured wavelength
			ret_val = calllib(this.libname, 'GetFrequencyNum', n_ch, 0);
			end

			% Run the wavelengthmeter control program
			function runServer(this)
			T = timer('Period',0.5,...
			'ExecutionMode','fixedDelay',...
			'TasksToExecute', ceil(this.run_server_timeout/0.5));

			T.TimerFcn = @(x,y)this.runServerTimerCallback(x,y);

			% cCtrlWLMShow: 1 - displays the window of wlm server
			% application if it was hidden and starts the server if it is
			% not running
			if calllib(this.libname,'ControlWLM',1,0,0) == 1
			start(T);
			wait(T);
			else
			warning('Wavelengthmeter server app could not be started.')
			end

			% Clean up
			delete(T);
			end

			function bool = isServerRunning(this)
			bool = calllib(this.libname, 'Instantiate', 0, 0, 0, 0);
			end

			% Start continuous measurement on the server
			function stat = startMeas(this)
			stat = calllib(this.libname, 'Operation', hex2dec('0002'));
			end

			% Stop measurement on the server
			function stat = stopMeas(this)
			stat = calllib(this.libname, 'Operation', hex2dec('0000'));
			end

			% Return the identification string of the device
			function str = idn(this)

			% Get the device information
			% Wavelengthmeter type can be 5 to 8
			type = calllib(this.libname, 'GetWLMVersion', 0);

			% Version number
			vers = calllib(this.libname, 'GetWLMVersion', 1);

			% Software version
			soft_vers = calllib(this.libname, 'GetWLMVersion', 2);
			str = ['WS' num2str(type) ', Version ' num2str(vers) ...
			', Software version ' num2str(soft_vers)];
			end

			function Mdt = readSettings(this)
			if isempty(this.Metadata)
			createMetadata(this);
			end

			% Calculate wavelength in vacuum from frequency to avoid
			% vaccum/air ambiguity
			f = this.frequency;

			c = 299792458; % (m/s), speed of light

			% Print with 9 digits of precision which corresponds to
			% kHz-scale resolution in the visible range.
			% This should be safely beyond the instrument resolution.
			f_str = sprintf('%.9f', f);
			wl_str = sprintf('%.9f', (c/(f1e12))1e9);

			if f<=0

			% The last measurement was not ok, so get the error code
			% instead of the value
			f_str = readErrorFromCode(this, f);
			wl_str = f_str;
			end

			this.Metadata.ParamList.idn = this.idn_str;
			this.Metadata.ParamList.frequency = f_str;
			this.Metadata.ParamList.wavelength = wl_str;

			Mdt = copy(this.Metadata);
			end

			%Convert error codes returned by readWavelength and
			%readFrequency commands to message
			function str=readErrorFromCode(~, code)
			if code>0
			str='Measurement ok';
			return
			end

			switch code
			case 0
			str='No value measured';
			case -1
			str='The wavelengthmeter has not detected any signal';
			case -2
			str=['The wavelengthmeter has not detected a ',...
			'calculatable signal'];
			case -3
			str='Underexposed';
			case -4
			str='Overexposed';
			case -5
			str=['Server application is not running or ', ...
			'wavelength meter is not active or available'];
			case -6
			str=['The caller function is not avaliable for ',...
			'this version of wavelengthmeter'];
			case -8
			str='ErrNoPulse';
			otherwise
			str='Unknown error';
			end
			end
			end

			methods (Access = protected)
			function runServerTimerCallback(this, Timer, ~)
			if ~isServerRunning(this)

			% Check if the timer has reached its limit
			if Timer.TasksExecuted>=Timer.TasksToExecute
			warning(['Timeout for running the server ',...
			'app (%is) is exceeded.'], this.run_server_timeout)
			end
			else
			stop(Timer);
			end
			end

			function createMetadata(this)
			this.Metadata = MyMetadata();

			% Add identification string as parameter
			addParam(this.Metadata, 'idn', this.idn_str);

			addParam(this.Metadata, 'frequency', 0, ...
			'comment', '(THz)');

			addParam(this.Metadata, 'wavelength', 0, ...
			'comment', '(nm), in vacuum');
			end
			end

			methods
			function set.dllname(this, val)
			assert(ischar(val) && isvector(val), ['''dllname'' must be '...
			'a character vector.'])
			[~,~,ext]=fileparts(this.dllname);
			assert(strcmpi(ext,'dll'), ['''dllname'' must be a ',...
			'dynamic-link library and have extension .dll'])
			this.dllname=val;
			end

			function set.headername(this, val)
			assert(ischar(val) && isvector(val), ['''headername'' must be '...
			'a character vector.'])
			this.headername=val;
			end

			function nm=get.libname(this)

			% dll name without extension
			[~,nm,~]=fileparts(this.dllname);
			end

			function wl=get.wavelength(this)
			wl=readWavelength(this);
			end

			function wl=get.frequency(this)
			wl=readFrequency(this);
			end
			end

			end

rINSTCONTROL/Instrument classes/@MyHfWs/MyHfWs.m
4df7d4d2430eFreqRINCal

MyHfWs.m
View Options

rINSTCONTROL/Instrument classes/@MyHfWs/MyHfWs.m4df7d4d2430eFreqRINCal

MyHfWs.mView Options

rINSTCONTROL/Instrument classes/@MyHfWs/MyHfWs.m
4df7d4d2430eFreqRINCal

MyHfWs.m
View Options