Free serialport software for linux

GPS::Lowrance is a Perl module connect to Lowrance and Eagle GPS devices.

REQUIREMENTS

The following modules are required to use this module:

Carp::Assert
GPS::Lowrance::LSI 0.23
Parse::Binary::FixedFormat
Win32::SerialPort or Device::SerialPort

If you will be using the "get_plot_trails", "set_plot_trails", "set_waypoints" or "get_waypoints" methods, then you will need the following modules:

GPS::Lowrance::Trail 0.41
Geo::Coordinates::DecimalDegrees
Geo::Coordinates::UTM
XML::Generator

If you want to use the screen capture or icon download functions in GPS::Lowrance::Screen, you also need the following module:

GD

This module should work with Perl 5.6.x. It has been tested on Perl 5.8.2.
SYNOPSIS ^
use GPS::Lowrance;
use GPS::Lowrance::Trail;

$gps = GPS::Lowrance->connect(
Device => com1,
BaudRate => 57600,
);

$trail = $gps->get_plot_trail( plot_trail_number => 0 );

$gps->disconnect;

This module provides a variety of low- and high-level methods for communicating with Lowrance and Eagle GPS receivers which support the LSI 100 protocol. It also provides some utility functions for converting data.

Device::Denon::DN1400F is a Perl module that can control a Denon DN-1400F CD player.

SYNOPSIS

use Device::Denon::DN1400F;

my $denon = new Device::Denon::DN1400F(
SerialPort => /dev/ttyS0,
Id => $deviceid,
);

$denon->load_disc($drive, $discno);
$denon->drive_play($drive, $track);
$denon->drive_pause($drive, $paused);
$denon->drive_stop($drive);
$denon->unload_disc($drive, $discno);
$denon->unload_discs;

print $denon->drive_status($drive);
print $denon->drive_subcode_qchannel($drive);
print $denon->toc_data_long($drive);
print $denon->toc_data_short($drive);

$denon->debug;
$denon->reset;
$denon->move_front;

This module gives an object oriented interface to control the Denon DN-1400F, an RS232 controlled 200 CD two-turntable jukebox designed for nonstop playout.
Many methods are available, it is currently still best to browse the source to find the details.

ControlX10::CM17 is a Perl extension for FireCracker RF Transmitter.

SYNOPSIS

use ControlX10::CM17;

# $serial_port is an object created using Win32::SerialPort
# or Device::SerialPort depending on OS
# my $serial_port = setup_serial_port(COM10, 4800);

&ControlX10::CM17::send($serial_port, A1J);
# Turns device A1 On
&ControlX10::CM17::send($serial_port, A1K);
# Turns device A1 Off
&ControlX10::CM17::send($serial_port, BO);
# Turns All lights on house code B off

The FireCracker (CM17A) is a send-only X10 controller that connects to a serial port and transmits commands via RF to X10 transceivers.

The FireCracker derives its power supply from either the RTS or DTR signals from the serial port. At least one of these signals must be high at all times to ensure that power is not lost from the FireCracker. The signals are pulsed to transmit a bit (DTR for 1 and RTS for 0). The normal rx/tx read/write lines are not used by the device - but are passed through to allow another serial device to be connected (as long as it does not require hardware handshaking).

A 40-bit command packet consists of a constant 16 bit header, a constant 8 bit footer, and 16 data bits. The data is subdivided into a 5 bit address $house code (A-P) and an 11 bit $operation. There are "ON" commands for 16 units per $house code (1J, 2J...FJ, GJ) and similar "OFF" commands (1K, 2K...FK, GK). A send decodes a parameter string that combines $house$operation into a single instruction. In addition to $operation commands that act on individual units, there are some that apply to the entire $house code or to previous commands.

$operation FUNCTION
L Brighten Last Light Programmed 14%
M Dim Last Light Programmed 14%
N All Lights Off
O All Lights On
P All Units Off

Starting with Version 0.6, a series of Brighten or Dim Commands may be combined into a single $operation by specifying a signed amount of change desired after the unit code. An "ON" command will be sent to select the unit followed by at least one Brighten/Dim. The value will round to the next larger magnitude if not a multiple of 14%.

&ControlX10::CM17::send($serial_port, A3-10);
# outputs A3J,AM - at least one dim

&ControlX10::CM17::send($serial_port, A3-42);
# outputs A3J,AM,AM,AM - even multiple of 14

&ControlX10::CM17::send($serial_port, AF-45);
# outputs AFJ,AL,AL,AL,AL - round up if remainer