Diffusion Instrument Control (master) Browse

MyTekScope.m
f6174e28e52cmaster

MyTekScope.m
View Options

			% Generic class for controlling Tektronix scopes

			classdef MyTekScope < MyScpiInstrument & MyDataSource & MyCommCont
			properties (GetAccess = public, SetAccess={?MyClassParser,?MyTekScope})

			% number of channels
			channel_no = 4

			% List of the physical knobs, which can be rotated programmatically
			knob_list = {}
			end

			methods (Access = public)
			function this = MyTekScope(varargin)
			this@MyCommCont(varargin{:});

			this.Comm.InputBufferSize = 4.1e7; % byte

			this.Trace.name_x = 'Time';
			this.Trace.name_y = 'Voltage';
			end

			function readTrace(this)

			% Read raw y data
			y_data = readY(this);

			% Read units, offsets and steps for the scales
			parms = queryStrings(this, ...
			':WFMOutpre:XUNit?', ...
			':WFMOutpre:YUNit?', ...
			':WFMOutpre:XINcr?', ...
			':WFMOutpre:YMUlt?', ...
			':WFMOutpre:XZEro?', ...
			':WFMOutpre:YZEro?', ...
			':WFMOutpre:YOFf?');

			num_params = str2doubleHedged(parms);
			[unit_x, unit_y, step_x, step_y, x_zero, ...
			y_zero, y_offset] = num_params{:};

			% Calculating the y data
			y = (y_data-y_offset)*step_y+y_zero;
			n_points = length(y);

			% Calculating the x data
			x = linspace(x_zero, x_zero + step_x*(n_points-1), n_points);

			this.Trace.x = x;
			this.Trace.y = y;

			% Discard "" when assiging the Trace labels
			this.Trace.unit_x = unit_x(2:end-1);
			this.Trace.unit_y = unit_y(2:end-1);

			triggerNewData(this);
			end

			function acquireContinuous(this)
			writeStrings(this, ...
			':ACQuire:STOPAfter RUNSTop', ...
			':ACQuire:STATE ON');
			end

			function acquireSingle(this)
			writeStrings(this, ...
			':ACQuire:STOPAfter SEQuence', ...
			':ACQuire:STATE ON');
			end

			function turnKnob(this, knob, nturns)
			writeString(this, sprintf(':FPAnel:TURN %s,%i', knob, nturns));
			end
			end

			methods (Access = protected)

			% The default version of this method works for DPO3034-4034 scopes
			function y_data = readY(this)

			% Configure data transfer: binary format and two bytes per
			% point. Then query the trace.
			this.Comm.ByteOrder = 'bigEndian';

			writeStrings(this, ...
			':DATA:ENCDG RIBinary', ...
			':DATA:WIDTH 2', ...
			':DATA:STARt 1', ...
			sprintf(':DATA:STOP %i', this.point_no), ...
			':CURVE?');

			y_data = double(binblockread(this.Comm, 'int16'));

			% For some reason MDO3000 scope needs to have an explicit pause
			% between data reading and any other communication
			pause(0.01);
			end
			end

			methods
			function set.knob_list(this, val)
			assert(iscellstr(val), ['Value must be a cell array of ' ...
			'character strings.']) %#ok<ISCLSTR>
			this.knob_list = val;
			end
			end
			end

rINSTCONTROL/@MyTekScope/MyTekScope.mf6174e28e52cmaster

MyTekScope.mView Options

rINSTCONTROL/@MyTekScope/MyTekScope.m
f6174e28e52cmaster

MyTekScope.m
View Options