ひさびさのおすすめ曲紹介

【初音ミク】レイニーデイズ【オリジナル】
ついに来たー!
夕闇PことismKさんの最新作。
プレバージョンから1年半、
ついにフルサイズ・ロングバージョンが公開されました。


やさしいピアノの音色によるメロディラインと、
スタッカートというよりはゆっくりとした
モールス信号のような感じの「ぴ・ぴ・ぴ」というリズムが
ところどころの表れて独特の雰囲気を作っているのが
この作者さんの特徴ではないかと思います。

まるで雨音のようなノイズも心地良いです。

作者さんのブログにてmp3配布してます。

目次-プログラミング等

プログラミング等カテゴリで書いたTips的記事へのインデックスです。

1. C#
2. C/C++
3. VB、VBA
4. その他

カーオーディオ交換

いちいちCDに焼くのが面倒だったんです。
いちいちCDを交換するのが面倒だったんです。
携帯オーディオプレイヤーが接続できるやつが欲しかったんです。

何より、イジェクトボタンを押しても
CDが出てこない確率が高くていらいらしていたんです。


そんなわけで、カーオーディオを自力で交換しました。
取り付けに5,000くらいかかるんなら自分でやってしまえと思ったんですよ。

でも、元々付いていたカーオーディオのはずし方が分からない。
そもそも、ダッシュボードのはずし方すら分からない。
工具とか、どんな道具が必要なのかも分からない。
配線に必要な部品はあるのかも分からない。

何一つ分からない状態からスタートです。


新しいオーディオを買う前に、本当に自分ひとりで交換が出来るのか、
ネットで取り外しの仕方、配線の仕方などの情報を集めました。

ALPINE「車種別取り付け情報」で自分の車の車種を検索すると
オーディオの取り外し方、配線コネクターの説明を見ることが出来ます。
図入りで、ねじの数も分かるためとても参考になりました。
この資料を見ながらオーディオをはずしてみました。

コネクタが固くてはずしにくかったりしましたが、無事取り外し成功。
元に戻して、新しいオーディオを「お持ち帰り」で買って来ました。


配線の色は規格があるらしく、新しいオーディオの付属のケーブルを
元のオーディオのケーブルと同じようにつなげば問題なし。

配線できたら、オーディオ本体を簡単に固定して動作確認。
確認したらねじをしっかり締めて、
ダッシュボードのパネルを元に戻して、交換終了。

これでCDを焼いたり、CDを交換する手間がなくなりました。

intのサイズ

VBAのInteger型変数でオーバーフローをしてしまった。

Cの一般的な整数型であるint型は32bit環境では4バイト。
しかし、VBAのInteger型は2バイト。

これまでCのintが4バイトだから
Integerも同じだろうと思い込んでいた。

C言語ではintと同じサイズのため使用されないlong intだが、
VBAではIntegerが2バイト、Longが4バイトとなっているため
格納したいデータのサイズによって使い分ける必要がある。

また、C言語では型宣言でUnsignedを付けることで
符号なしの変数を使用できるが、
VBAではUnsignedの指定そのものができない。

参考
VB.NET/VB6.0/CLR/C/C++/Win32API 型一覧表
VB研究所

同窓会

中学の同窓会に行ってきました。
地元に帰ったときに遊んでいた友人以外とは
成人式以来になります。

みんな、変わってないな～
多少、体型が変わった人もいましたが
話し方やしぐさなど、雰囲気は全く変わっていませんでしたよ。
出席率がやや低かったのは残念ですが。

車に詳しい友人にカーオーディオについて相談しました。
Q「クラシックな車に合うカーオーディオない？」
A「ナカミチってメーカーがいいよ」
「ありがとう、早速探してみるよ」
→日本国内での販売を終了

せっかく教えてくれたけど、残念な結果になってしまったよ。くすん。


やっぱ方言っていいですね。
地元にいた頃は全く意識していませんでしたが、
他の方言に触れて、自分の話し方との違いに気付くんですね。
方言と言っても、主に語尾なんですけどね。


また次があるみたいなので、楽しみにしたいと思います。

他のアプリケーションが起動されているかを調べる

他のアプリケーションが起動されているかを調べる

FindWindow関数の第一引数(クラス名)か第2引数(ウィンドウ名)に起動を調べたいアプリケーションの値を代入する。
起動していればHWNDが返り、起動していなければNULLが返る。

ウィンドウ名を指定する方法が簡単。

例えば、電卓が起動しているのかを調べるなら、
hwnd = FindWindow(NULL, "電卓");

しかし、メモ帳の場合
hwnd = FindWindow(NULL, "無題 - メモ帳");
となり、ファイルに名前がつけられている場合「無題」がファイル名になるため汎用性がない。

そのような場合、クラス名を指定する。
Excelの場合、
hwnd = FindWindow("XLMAIN", NULL);

クラス名が分からない場合、FindWindowで取得したハンドルをGetClassName関数に渡せばよい。


参考
FindWindow関数(msdn)
GetClassName関数(msdn)
VB テクニック編2 - Windows API、ウィンドウハンドル取得、ウィンドウ制御(SAK 図書館)

車、直ったよ

車屋さんから修理が終わったと電話がありました。
アクセルのスロットル部品に問題があったらしいです。

中古で買ったため、保障などはない契約だったのですが
購入から間もないことと、始めから部品に問題があったらしいことから
無償にしてくれました。

ありがとう、車屋さん。

修理に出してきました

アイドリング状態でエンストすることが出かけるたびに1回くらいの頻度で起こるようになったため、車を買った販売店に出してみてもらうことにしました。

行く途中で一回ノッキング状態になりかけました。

お店について、症状の確認のためにアイドリング状態にしてみるもののエンジンは安定して動いています。
まあ、毎回起きていると入っても数分おきてわけじゃあないですからね。

お店の人の話では、原因として考えられるのは
・燃料に水が混ざっている(湿度が高いと結露した水分が燃料に混ざることがあるそうです)
・発火プラグの不調
・アクセルスロットの不調
ではないか、という感じでした。

修理のために車を預けて代車(AT)を借りて帰りました。
慣れていないだけなんですが、なんか、こう、違和感というのか。
クラッチ・ギア操作がないため、左手足が物足りない感じ。
特に発車・停車時。どうしてもブレーキ踏んで、クラッチ切って、と足が動いてしまいます。
あとスリープ現象のためか、ショックなしで停車するためのペダル操作がよくわからない。



それと、プリンタも修理に出すために購入店の窓口へ。
本体価格安くして消耗品で儲ける、てな売り方のせいなんでしょうけど、
窓口の人の話だと修理費が本体価格の8割以上になりそう。
廃棄の場合は無料で引き取ってもらえるみたいだし、とりあえず見積もりだけとってもらうことにしました。
はぁ、調子悪くなったのが1ヶ月前だったら保障期限内だったのに･･････
インク買い換えたばっかりだったのに･･････

ちょうしわるい

せっかく更新再開しようという気分になったので。
でも、内容はネガティブ。

1．車の調子が悪い
中古で購入してからまだ3ヶ月と少し。
基本的には土日にしか乗っていないので、まだ運転が下手です。
出かけて戻ってくるまでにエンストを起こさなくなってきた頃、
信号待ちで停車している間にエンストしていたことが何度かありました。

始めは操作ミスかと思っていたのですが、
信号待ちでギアはニュートラル、ブレーキペダルしか踏んでいない状況で
エンストすることが何度かあり車の問題かと思ったのです。

ネットで探してみるとエンジンの問題らしいことが分かりました。
今週末くらいに車屋さんに見てもらうことにします。

2．プリンタの調子が悪い
使用頻度が少ないせいでしょうか、黒だけ印刷できなくなってしまいました。
2週間前は問題なかったのに。
原因が全く分からないので、今週末くらいに修理に出したいです。

3．耳管開放症がひどくなってきた
耳管開放症の主な症状は、自分の呼吸音や声が耳に響く、というもので
他の音が聴ききにくくなったり、
自分が話している声の高さや大きさが分かりにくくなったり、
ヒューゴーヒューゴー響く呼吸音がうっとおしくてストレスがたまります。

以前はたまに症状が出る程度だったのですが、
気付いたらほぼ毎日症状が出るように･･････

エンストドライブ

ついに納車の日となりました。
いい天気でお出かけ日和です。

今回お世話になった車屋さんは、
「納車のときは購入者が取りに来る」
てなスタイルです。
なので、
免許取ってからほとんど車に乗ってない(実家に帰ったときに2回だけ)
MT車に乗るのは教習所以来(買った車はMT車)
初めて乗る車で練習なし
てな状態で自力で帰らなければならないわけです。

当然、エンスト多数。
車屋さん出て始めのカーブ(いきなりだよ)
細い道のカーブに差し掛かって(3年ぶりのMTだし)
大通りに出ようとして(まだ慣れてないし)
住処の所に入ろうとして道の真ん中で(車の流れ完全にストップ)

駐車場に停めるとき、バック1回で入ったのは運が良かっただけです。
車屋さんからTEL「無事帰れましたか?」

で、同僚「飯食べに行こ。どっちの車で行く?」
「給油しに行きたいし、練習になるから自分が車出すよ」
初めてで給油の仕方が分からなかったので分かる人についてきてもらおう、てな考えがありました。
おかげで助かったよ、ありがとう。
その後、お店の駐車場でギアをバックに入れようとしてエンスト。

住処に戻ってから、一人で買い物に。
細い道に入ろうとして、エンスト。
目的地を通過、わき道に入れずしばらく直進する。
大型車(ダンプ?記憶があいまい)が道を譲ろうとしてくれているのに、気付かない。
挙動不審な車線変更して、鳴らされる。
ライト付け忘れる。
駐車場の発券機に、手が届かない。
駐車場の精算機に、「○○円以上お買い物すれば○○時間無料」券が入らない。(駐車場券と無料券の幅が明らかに違う・・・)


まあ、最初だし、慣れればましになるよ、きっと。

ETC、車載機がどこも品薄状態みたいですね。
ゴールデンウィークまでに手に入るか分かりません。