No BSD License  

Highlights from
Lambda-Physik FL3002 GPIB Instrument Drivers

Lambda-Physik FL3002 GPIB Instrument Drivers

by

 

15 May 2008 (Updated )

Provides a basic command set to control the FL3001/2 dye laser over GPIB.

DyeLaserConfig(DyeAddr)
% Written by Tom Spinka on Sept. 26, 2007 for initializing the GPIB board
% and the device handles for controlling a Lambda Physik FL3001/3002 dye
% laser over the GPIB interface.

% To Do:
% Determine shorter IbcTMO times (it is known to work consistently at IbcTMO = 9 = 100 ms.)
% Determine if parallel poll parameters are necessary
% Determine if the IbcRsv bit setting is necessary.
function [Err, Dye] = DyeLaserConfig(DyeAddr)

Dye = ibfind(['dev',num2str(DyeAddr)]); % Initialize the Dye Laser handle. 'Dye' contains the handle which is used in device-level calls.

% The following are the Dye Laser settings for interfacing with the Dye
% Laser. Note that these are purely software settings.
Err = ibconfig(Dye,hex2dec('0F'),13); % IbcEOSchar = 13 = 0xd = carriage return
Err = ibconfig(Dye,hex2dec('0E'),0); % IbcEOScmp = 0 (7-bit EOS compare)
Err = ibconfig(Dye,hex2dec('0C'),1); % IbcEOSrd = 1 (Terminate reads when an EOS charater is read)
Err = ibconfig(Dye,hex2dec('0D'),1); % IbcEOSwrt = 1 (Assert the EOI line when an EOS character is written)
Err = ibconfig(Dye,hex2dec('04'),1); % IbcEOT = 1 (EOI is asserted at the end of writes)
Err = ibconfig(Dye,hex2dec('01'),DyeAddr); % Set IbcPAD to the value given in the function call
Err = ibconfig(Dye,hex2dec('06'),1); % IbcREADDR = 1 (Addressing is always performed before a read or write)
Err = ibconfig(Dye,hex2dec('02'),0); % IbcSAD = 0 (The secondary GPIB address is disabled)
Err = ibconfig(Dye,hex2dec('18'),9); % IbcSPollTime = 9 = 100 ms (Serial poll response time)
Err = ibconfig(Dye,hex2dec('03'),9); % IbcTMO = 9 = 100 ms (The laser response time is set to 100 ms)
Err = ibconfig(Dye,hex2dec('1B'),1); % IbcUnAddr = 1 (Send UNT and UNL commands before and after reads and writes)

% These commands will clear the Dye Laser, and ready it for communciations.
ibclr(Dye);

Contact us