The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

 / 
Lab-Measurement-3.920
River stage zero No dependents
/ Lab::Moose::Instrument::TBS1000C

NAME

Lab::Moose::Instrument::TBS1000C - Tektronix TBS 1000C series Oscilloscope.

VERSION

version 3.920

SYNOPSIS


            

              
              
use Lab::Moose;
my $tbs = instrument(
   type => 'TBS1000C',
   connection_type => 'USB' # For NT-VISA use 'VISA::USB'
   );
# Configure measurement setup
$tbs->waveform_output_encoding(value => 'ASCII');
$tbs->trigger_mode(value => 'NORMAL');
$tbs->data_source(value => 'CH1');
$tbs->acquire_stopafter(value => 'SEQUENCE');
# Start acquisition
$tbs->acquire_state(value =>1);
# Waveform will be recorded once triggered
# software trigger:
# $tbs->trigger_force();
# Wait until acquisition is finished
$tbs->opc_query();
# Get waveform as arrayref
my $data_block = $tbs->curve_query(); 
# Logging multiple blocks into a datafile
$sweep->log_block(prefix => ..., block => [$block1, $block2]);

METHODS

Used roles:

Lab::Moose::Instrument::Common

acquire_state/acquire_state_query


            

              
              
$tbs->acquire_state(value => 1);
say $tbs->acquire_state_query();

Allowed values: 0,1

acquire_stopafter/acquire_stopafter_query


            

              
              
$tbs->acquire_stopafter(value => 'SEQUENCE');
say $tbs->acquire_stopafter_query();

Allowed values: SEQUENCE, STOPAFTER

busy_query


            

              
              
my $busy = $tbs->busy_query();

Return 1 if busy, 0 if idle.

curve_query


            

              
              
my $data_block = $tbs->curve_query();

Get waveform from instrument as arrayref.

The channel is defined by the data_source method.

data_source/data_source_query


            

              
              
$tbs->data_source(value => 'CH1');
say $tbs->data_source_query();

Data source for the curve_query method. Allowed values: CH1, CH2, MATH, REF1, REF2

trigger_query


            

              
              
my $info = $tbs->trigger_query();

Info about trigger setup.

trigger_force


            

              
              
$tbs->trigger_force();

Force a trigger.

trigger_state_query


            

              
              
say $tbs->trigger_state_query();

Returns one of ARMED, AUTO, READY, SAVE, TRIGGER.

trigger_mode/trigger_mode_query


            

              
              
$tbs->trigger_mode(value => 'NORMAL');
say $tbs->trigger_mode_query();

Allowed values: NORMAL, AUTO

waveform_output_encoding/waveform_output_encoding_query


            

              
              
$tbs->waveform_output_encoding(value => 'ASCII');
say $tbs->waveform_output_encoding_query();

Allowed values: ASCII, BINARY

COPYRIGHT AND LICENSE

This software is copyright (c) 2024 by the Lab::Measurement team; in detail:


            

              
              
Copyright 2020       Simon Reinhardt

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.