dtx-syslab blog

Ｐｉｎｇっていえばインターネット等で、接続先のサーバーの起動状態を知りたい時によくやる。

いま、エクセルからクラスターサーバーの情報ページを読み込んでリスト化するツールを作ってる。

これは、情報をログに入力する時の手間を省く為に作った物。

いま使っている有名なハムログの入力ダイアログに情報を入力する為で、指に障害があって入力に時間がかかるので、楽にするため。

で、起動するとすぐ読み込んで表示させている為、ネット接続が無いか、相手サーバーがメンテ等で停止しているとエラーで数秒エクセルが固まるので、これをうまく回避できないかな？と。

今年はＮＩＣＴの情報サーバーが落雷被害で停止し、この原因を知ってからは、何か対策が必要だと思いました。

ネットを調べると幾つか方法のソースが見つかる。
だけど、その記述が大きくてね。
そのクラスをこの為だけに実装するのも？と。

でも、情報の再取得でもエラーで沈黙が続くので、エラー後の再取得時に確認の為？に実装しようかな？って今は考えてる。

このツール、ブラウザーで開くより速く、目的のアワードコードや局、モードを発見時にも、お気に入りのサウンドで教えてくれるので、私的には凄く重宝しています。

コンテストなどで、ＣＱ連呼していると咽喉を痛めてしまう。

疲れて嫌になってくるし、止めたくなってしまう。

巷には音声を流す装置がある。

でもそれを作るのも回路とか？。

そこで考えたのがWindowsAPI。

これを使ってサウンドファイルを再生できる。

ならば、これをプログラミングできればできるよね。
ってことで、メジャーなエクセルのＶＢＡでＡＰＩをコントロールして再生できるようにしてみた。

実に簡単。すぐできあがった。ネット検索すると親切に導入の方法をアップしてくれているページがあり、これを使って数十秒で完成。

でも当然これでは使い勝手が悪いので、フォームを使って作ることに。

始めてひと月、今は単なる再生ではなくＭＰ３とか連続再生といった、まるでプレーヤー？になってしまった。

しかし、再生と同時にＴＸのＰＴＴをオン出来なかったら無駄。
実はＳＳＳＴＶやＲＴＴＹで使うインターフェイスが使えてしまう。

更に、通常エクセルではＲＳ２３２Ｃは使えないけれども、ＯＣＸを組み込めば使える。
これも便利なＯＣＸを公開してくれている方がいて、これを使って動作可能に。

ってなわけで、送信可能となりました。

実際にテストするとバッチリＯＫ！


でも、これって音楽も送信できてしまう。
うっ、ヤバイ。

３．５ＭＨｚに毎晩演歌や古いＪＰＯＰを流す局が居るけど、まったく同じことができてしまうのだ。

音声以外を流すと、それにあった免許が必要なはず。
たぶん、ＦＭ局みたいな～Ｗだっけ。

だから違反になると思うんだよね。
これについては問い合わせして聞いてみないとわかんないな。

というわけで、
連続再生ではＴＸＰＴＴは不可にした。

後は使う人に依存、使う人の自己責任だね。
ってことで、マクロはアドイン形式で公開。

まあ、やろうとすれば、これ使わなくても音楽は送信可能。

インターフェイスも必要ですし、まずやる人は居ないかな。が、
因みにインターフェイスはＵＳＢシリアル変換モジュールキットが販売されているので、これまた簡単に作れる。回路も公開されており、ちょっと知識がある人なら誰でも作れる。

私はこれを参考に改良を加えて実際にＲＴＴＹで使ってる。