Demo: Sure Electronics 8x32 LED Matrix - Bin-mode Perl script

[will_j]

Hi All,

Here's a quick and dirty perl script to display 'BPv3' on a Sure Electronics 8x32 LEd Matrix display (http://www.sureelectronics.net/goods.php?id=907).

Also attached is a photo of my set-up.

Any improvements gratefully received - i.e. a nice character lookup table process would be good!

You can use this with windows - just change the Device::SerialPort configuration.
You can also use a 16x24 display if you change the second command code to 44 from 40.

EDIT: Script is in SVN: http://code.google.com/p/the-bus-pirate/source/browse/trunk/scripts/BP_matrix.pl

Thanks,

Will

[ian]

Thanks will, I'm going to post this today. I've added the script to the Bus Pirate scripts folder:
http://code.google.com/p/the-bus-pirate/source/browse/trunk/scripts/BP_matrix.pl

Here's a new trick I saw to make a script work on COM or Serial ports:

Code: [Select]

#
# Set up the serial port for Windows or Linux
#
my $port;
if ( $^O =~ m/Win32/ ){
#setup serial port for Windows
require Win32::SerialPort;
$port = Win32::SerialPort->new($serport); #change to your com port
}else{
#setup serial port for Linux
require Device::SerialPort;
$port = Device::SerialPort->new($serport); #change to your com port
}