Difference between revisions of "Flipdot"

From RevSpace
Jump to: navigation, search
m (Serial werkend krijgen)
m
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 10: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