PowerPoint (VBA) による駅名標&行き先表示器風の時計の製作

2022/4/1, 7M4MON

概要

最近、液晶表示の行き先表示器(発車標)が増えてきましたよね。
ということで、PowerPoint (VBA) とツイ廃液晶を使用して駅名標と行き先表示器を再現しました。


ツイ廃液晶について

ツイ廃液晶は、480×1920ドットの1:4のアスペクト比を持った液晶です。
サイズは8.8インチで、アリエクでケース付きが84ドル、タッチパネル付きが115ドル程度で購入できます。


駅名標を作る

調べるとパワーポイントで駅名標を作ってる人がいて、駅名標の進行に合わせて発車メロディが鳴ったら面白いのではないかと考えました。
発車メロディの入手性を調べたところ、「JR東日本駅発車メロディー・特急急車内メロディー 音源集 山手線全駅+α」と
東京メトロ有楽町線 駅発車メロディー & 駅ホーム自動放送」は容易に入手できたので、
JR東日本 山手線と東京メトロ 有楽町線で行くことにしました。
ちょいと作ってみたところ、想像していたよりも簡単にそれっぽいものが出来ました。









ファイルはgithubに公開しています。駅や路線追加、レイアウト改善などの Fork / PullRequest は大歓迎です。



発車標を作る

最近、首都圏で増えてきた、液晶表示の行き先表示器(発車標)もパワポで再現できそうです。
ホームに設置されている横長タイプのアスペクト比は 1対4 のようなので、ツイ廃液晶にジャストフィットします。
行き先表示器の複雑なアニメーションはパワポの標準機能では難しそうなので、VBAを使います。

固定の表示では面白くないので、現在時刻を表示して、時計として使えるようにします。
実装した動作は以下のとおりです。


詳しい動作は、動画をアップしましたのでご覧ください。



プログラムの説明

その他の説明

おまけ

JR東日本の山手線と総武線各駅停車の発車標も作ってみました。
力尽きたので、レイアウトのみです。