use strict;
use warnings;
use lib 'lib';
use utf8;
use Device::VFD::GP1022;
use Device::VFD::GP1022::Message;
my $vfd = Device::VFD::GP1022->new('/dev/ttyUSB0');
#$vfd->switch;
$vfd->message( vfd_encode {
# RAW 0x1B80;
# RAW 0x1B81;
# RAW 0x1B82;
# RAW 0x1B83;
BLINKLINE sub {
RAW 0x1B8E;
RAW 0x1B8F;
}, 5;
RAW 0x1B90;
BLINKLINE 'HOGA', 5;
#0, 1, 0, 142, 27, 143, 27, 5, 142, 255, 142, 144, 27,fg
# RAW 0x1B91;
# RAW 0x1B92;
# RAW 0x1B93;
return;
# for (1..10) {
BLINKLINE 'あげますaaaaaaaaaaaaaaaa', 5;
UP '丸丸丸丸丸', 2;
OPEN 'おーーーぷんーーーー';
CLOSE 'くろーーーず';
# }
} );
#$vfd->message( append => 'TECHNOPOLIS' );
exit;