Flipdot: Difference between revisions

From RevSpace
Jump to navigation Jump to search
mNo edit summary
Line 17: Line 17:


  stty -f /dev/ttyUSB0 1200 cstopb cs7 parenb -paroddecho
  stty -f /dev/ttyUSB0 1200 cstopb cs7 parenb -paroddecho
=Code=
Met dank aan Juerd:
#!/usr/bin/perl -w
use strict;
use autodie;
open my $fh, ">/dev/ttyUSB0";
my $bla = "regel 1\nregel 2";
my $output = "aA11000\n$bla\n\n\r";
my $xor = 0x7f;
$xor ^= ord for split //, $output;
$output .= chr $xor;
syswrite($fh, $output);


=Foto's=
=Foto's=
[[File:41EDFE20-B18A-4F13-89EB-838BC4CF7F17.jpg|200px]] [[File:E0270E068FF3.jpg|200px]]
[[File:41EDFE20-B18A-4F13-89EB-838BC4CF7F17.jpg|200px]] [[File:E0270E068FF3.jpg|200px]]

Revision as of 11:25, 18 June 2018

Project FlipDot
PmGADK1RvqdiL1qveZaGQ.jpg
Status In progress
Contact User:Sebastius
Last Update 2018-06-18

Controller

Schema

Serial werkend krijgen

0381C9273B09.jpg

Pin 2 en 3 van de 74HC14 loshalen. Daarna werken de RX en TX pins op het bord met een USB-Serial TTL. GND niet vergeten...

1200Baud, 7E2 (7 bits, Even Parity, 2 Stop bits)

stty -f /dev/ttyUSB0 1200 cstopb cs7 parenb -paroddecho

Code

Met dank aan Juerd:

#!/usr/bin/perl -w
use strict;
use autodie;
open my $fh, ">/dev/ttyUSB0";

my $bla = "regel 1\nregel 2";

my $output = "aA11000\n$bla\n\n\r";

my $xor = 0x7f;
$xor ^= ord for split //, $output;

$output .= chr $xor;
syswrite($fh, $output);

Foto's

41EDFE20-B18A-4F13-89EB-838BC4CF7F17.jpg E0270E068FF3.jpg