Arduino と SHARP PC-E500 を直接接続するスケッチ。

ソフトウェアシリアルは論理反転できるので、Arduino と PC-E500 を直接接続できます。

#include <SoftwareSerial.h>

const byte rxPin = 10; // PC-E500: 2
const byte txPin = 11; // PC-E500: 3

SoftwareSerial mySerial(rxPin, txPin, true); // RX, TX, INVERSE

void setup() {
  Serial.begin(9600);
  while (!Serial);
  mySerial.begin(9600);
  Serial.println("Hello1");
}

void loop() {
  if (mySerial.available()) Serial.write(mySerial.read());
  if (Serial.available())  mySerial.write(Serial.read());
}

アップデートサブスクリプション

RAD Studio Professional の "アップデートサブスクリプション更新手続き完了" のお知らせが届いた。

...少なくともここ一年は Linux コンパイラを使わない事を意味するけどな。

Linux 絡みの QP

一つ目。「Professional Edition で Linux コンパイラ使えるようにしろやゴルァ！」という至極真っ当なご意見。

• RSP-17195: Linux Support on Pro Edition

二つ目。「Raspberry Pi 用の Linux (Raspbian) をサポートせんかいゴルァ！」という至極真っ当なご意見。

• RSP-17114: Support for Raspbian Linux

是非、Vote を。

Bash on Ubuntu on Windows

Bash on Ubuntu on Windows は Creators Update で改善されている。

• 日本語が切れない。
• 日本語が入力できる。

これだけでもすごく有難い。

Bash on Ubuntu on Windows を Ubuntu っぽい配色にする

背景色やディレクトリの色を Ubuntu っぽくしてみます。

1. .bashrc を編集する
2. force_color_prompt を yes にする (アンコメントする)
   

   # uncomment for a colored prompt, if the terminal has the capability; turned # off by default to not distract the user: the focus in a terminal window # should be on the output of commands, not on the prompt force_color_prompt=yes

3. .bashrc を保存したら、source .bashrc で設定を読み込む。
   
4. Bash on Ubuntu on Window の左上のアイコンを右クリックして [プロパティ]。
5. [フォント] タブ でフォントとサイズを変更 (私は IPA ゴシック、18pt にしています)
   
6. [画面の色] タブを開き、ラジオボタンの場所はどこでも構わないので、下にある 16 個のカラーボックスを選択し、色を変更する。
   
7. 設定する色は以下の通り:
   

   	01	02	03	04	05	06	07	08	09	10	11	12	13	14	15	16
   R	48	0	0	0	128	48	128	170	128	85	85	85	255	255	255	255
   G	10	0	128	128	0	10	128	170	128	85	255	255	85	85	255	255
   B	36	128	0	128	0	36	0	170	128	255	85	255	85	255	85	255

8. [画面の文字] と [ポップアップの文字] を右端の白に、[画面の背景] と [ポップアップの背景] を左から 6 番目の色に変更する
   

あぁ、Ubuntu っぽい (w

[Arduino] ミニ USB ホストシールド (Pro Mini 3.3V)

• [Arduino] [シールド] ミニ USB ホストシールド

[Arduino] [SPI] イーサーネットボード (ENC28J60)

• [SPI] イーサーネットボード (ENC28J60)

去年の今頃

救急車で運ばれたなぁ (病名: 心筋梗塞)。

実は...

ここ二週間くらい顎関節症で口が指二本以上開かなかった。ゴハン食べるのにも難儀したぜぃ！

[Arduino] [応用] タッチセンサー

• [応用] タッチセンサー

マイナンバーカード

あまりにもマイナンバーカードの受け取り通知が来ないので、Web で申請したら「もう申請されてるよっ！却下！！」という返事がきた。

マイナンバーのコールセンターに電話したら「確かに受け付けられていてもうできてるよっ！熊本市役所に確認してねっ！」と言われた。 熊本市役所に電話したら「確かにあるねっ！最寄りの区役所で貰えるよっ！どこがいい？」と聞かれたので、最寄りの区役所を指定した。来月 5/2 以降には届くらしい。

U-22 プログラミングコンテスト 2017

エンバカさんも協賛。

• U-22 プログラミングコンテスト 2017

そして、開発環境として Delphi / C++Builder / RAD Studio が提供される事に！

楽天 三木谷会長が書いたソースコード（1997年）

僕なら飾られたくないなぁ...(^^;A

• 楽天 三木谷会長が書いたソースコード（1997年）
• 三桁毎にカンマを入れるプログラム

なお、1997 年の Delphi で書くとこうなる。

Delphi にベタ移植するとこうなる。どこに問題があるか考えてみよう！

function comma(x: Integer): string;
var
  s: string;
  a, b, c: Integer;
begin
  a := x div 100000;                              { a is the largest three digits }
  b := ((x mod 1000000) - (x mod 1000)) div 1000; { b is middle three digits }
  c := x div 1000;                                { c is smallest three digits }

  if (x < 0) or (x > 1000000000) then
    begin
      s := '0';
    end
  else if (a = 0) and (b = 0) then
    begin
      s := Format('%d', [x]);
    end
  else if (a = 0)  then
    begin
      s := Format('%d,%d', [b, c]);
    end
  else
    begin
      s := Format('%d,%d,%d', [a, b, c]);
    end;

  result := s;
end;

うふふふふ。