Steve Troxel
and 1 contributors

NAME

Device::Opto22 - Perl Object to communicate with Opto22 Brains via Memory-mapped protocol

SYNOPSIS

        use Device::Opto22;
        
        my $brain_ip = '192.168.1.7';
                
        my $sock  = new Device::Opto22( PeerAddr => "$brain_ip",PeerPort => '2001' );
        
        my $rtn = $sock->send_PUC();
        
        # Read Opto22 scratch pad tables
        my $int_table_sz = 15;     # number of entries to read in integer scratch pad table
        my $flt_table_sz = 18;     # number of entries to read in float scratch pad table
        
        my @int_lst = $sock->get_scratchpadint($int_table_sz);
        
        my @flt_lst = $sock->get_scratchpadfloat($flt_table_sz);

DESCRIPTION

This Module communicates with an Opto22 Brain/Controller via OptoMMP a memory-mapped protocol based on the IEEE 1394 standard. This module can be used to create custom software applications for remote monitoring, industrial control, and data acquisition using Opto22 modular components.

There is an underlying Firewire.pm module that is used.

Methods

Methods include:

  • send_PUC()

    Send Power Up Control

            my $rtn = $sock->send_PUC();

    Returns 1 on success and nothing on failure

  • get_scratchpadint()

  • get_scratchpadfloat()

    Get Integer/Float Scratchpads

            my @lst = $sock->get_scractchpading($number_of_items_get);

    Returns a list of items requested or nothing on failure

  • get_eu_lst()

    Get Analog Bank Data in Engineering Units

            my @eu_lst  = $sock->get_eu_lst() 

    Returns list of measured engineering unit values in memory map and nothing on failure

  • get_digital_lst()

    Get Digital Bank Data

            my @dig_lst = $sock->get_digital_lst()

    Returns all list of all 64 digital points. Nothing of failure.

  • wr_digital_pnt

    Write digital point

            $sock->wr_digital_pnt($opto_chnl,$turn_on) 

    Inputs are channel to effect and a true value for $turn_on to activate channel or nothing to turn channel off.

  • serial_chat(@data)

  • serial_send($data)

  • serial_rcv()

        Send and/or Receive data from serial module 
    
            $sock->serial_send("*0100DB\r\n");     # ask for data in the pressure sensor buffer
            my $engr_value = $sock->serial_rcv();  # rcv buffer data
            

    Communicate to the serial device. Note you will have to send \r\n characters if needed.

  • error_msg

    Get error message on failure

        unless ( $rtn ) { die $sock->error_msg; } 

Note: The Opto22 Brains are in Big-endian format. The module translates this into common Little-endian format. If you are trying this module out on a Big-endian machine you will need to edit the source code as required.

SEE ALSO

For more detailed information on Opto22 components and OptoMMP see...

http://www.opto22.com/documents/1465_OptoMMP_Protocol_Guide.pdf http://www.opto22.com

http://perlworks.com

AUTHOR

Written and maintained by: Steve Troxel and Duane Nightingale (email troxel "at" perlworks.com)

COPYRIGHT AND LICENSE

Copyright (C) 2010

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.