The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

 / 
Lab-Measurement-3.930
River stage zero No dependents
/ Lab::Moose::Instrument::Bluefors_Temp

NAME

Lab::Moose::Instrument::Bluefors_Temp - Bluefors temperature control

VERSION

version 3.930

SYNOPSIS


            

              
              
use Lab::Moose;
# Constructor
my $tc = instrument(
    type            => 'Bluefors_Temp',
    connection_type => 'HTTP',
    connection_options => {
        ip => '192.32.14.24',
    },
);

METHODS

get_measurement


            

              
              
my $measurement = $tc->get_measurement( channel_nr => (1..12), time => 60, fields => [ 'temperature', 'resistance' ] );

The get_measurement() function returns the measurements of a specific channel in the specified time. The option "time" controls how far back the measurements are fetched from the device. In the example "time => 60" gets the measurements done in the last 60 seconds. The last option "fields" controls which measurements are fetched. A full list can be found in the API reference.

This function returns a hash reference with array references of all measurements. The latest temperature measurement can be retrieved using $measurement->{'temperature'}[-1].

get_heater_measurement


            

              
              
my $heater_meas = $tc->get_heater_measurement( heater_nr => (1..4), time => 60, fields => [ 'power', 'current' ] );

The get_heater_measurement() function returns the measurements of a specific heater. It works the same as the get_measurement() function.

set_heater


            

              
              
$tc->set_heater( heater_nr => (1..4), active => 1, power => 0.03, ... );

The set_heater() function controls the settings of a specific heater. Supported options are: - heater_nr - active - pid_mode - resistance - power - target_temperature - control_algorithm_settings - setpoint

set_channel


            

              
              
$tc->set_channel( channel_nr => (1..12), active => 1, ... );

The set_channel() function controls the settings of a specific channel. Supported options are: - channel_nr - active - excitation_mode - excitation_current_range - excitation_cmn_range - excitation_vmax_range - use_non_default_timeconstants - wait_time - meas_time

set_statemachine


            

              
              
my $state = $tc->set_statemachine( wait_time => 2, meas_time => 2 );

The set_statemachine() function controls the wait time after changing channel and the measurement time. Both values are given in seconds. The response is a hash reference with all information about the statemachine described in the API reference.

idn


            

              
              
say $tc->idn();

Returns all available system information concatenated as a string.

set_network_config


            

              
              
my $configuration = $tc->set_network_config( ip_configuration => 'static', ip_address => '192.168.0.12' );

Supported options: - ip_configuration - ip_address - netmask

set_channel_heater_relation


            

              
              
my $relation = $tc->set_channel_heater_relation( channel_nr => 8, heater_nr => 2 );

Updates the relation between a channel and a heater.

get_T


            

              
              
my $temp = $tc->get_T();

Returns the latest temperature measurement of the default channel using the default time parameter. High level function for the built-in sweep environment. Use the get_measurement function for all other use cases.

set_T


            

              
              
$tc->set_T( value => 1.2 );

Sets the target temperature for the default heater and sets the active state to ON. High level function for the in-built sweep environment. Use the set_heater function for all other use cases.

COPYRIGHT AND LICENSE

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


            

              
              
Copyright 2023       Andreas K. Huettel, Mia Schambeck

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