2016年12月30日

ダイソーの木製パズルにマグネットテープを貼る

daiso-pazzle-1.jpg

誤って逆さまにすると全ピース落下する(2回やった)ので
別の100均で買った薄手のテープ付きマグネットを貼り付けました。
磁力も丁度良く、0,8mm出っ張ることで指の掛かりも良くなったようです。

おまけ
市販の木製パズルはつまみが付いているものがあり、真似て付けてみました。
3mmの穴を空けてザクリ加工して、M3の皿ネジを差し込みます。
で、直下に6mmの穴を空けてダイソーのネオジム磁石を埋め込みます。

daiso-pazzle-2.jpg daiso-pazzle-3.jpg

意外と吸着力が強く、幼児がつまんで外すのは難しかったようです。
posted by MON at 12:57| Comment(0) | TrackBack(0) | 日記 | このブログの読者になる | 更新情報をチェックする

2016年12月29日

ダイソーのワイヤーネットでストーブガードを作る

そろそろストーブガードが必要かなぁと市販品をみると、結構良いお値段するみたいでした。
ちょっと検索するとみんなワイヤーネットでDIYしているようなので我が家もこれで行こうと。

stove_guard.JPG

ダイソーでワイヤーネットを4枚買ってきて、ストーブの周りを囲います。
それだけでは前後方向に動いてしまうので、その辺に転がっていた棒を切って3mmの穴を空けて結束バンドで固定。

stove_guard2.JPG

まぁ良い感じなのではないでしょうか。
posted by MON at 14:37| Comment(0) | TrackBack(0) | 日記 | このブログの読者になる | 更新情報をチェックする

2016年12月10日

VB.netやC#で同じ色かどうか調べる

VB.netやC#で同じ色かどうか調べる場合、Color構造体のARGBが一致していても
Array.IndexOf(colorArray, pixelColor) が -1 を返すことがあります。
これは、Colorを名前で定義している場合に発生するようで、
名前で作ったColorとFromArgbで作ったColorは別物らしいです。

つまり、
Dim BlackColorFromName As Color = Color.Black

Dim BlackColorFromArgb As Color = Color.FromArgb(255, 0, 0, 0)

Debug.Print(If(BlackColorFromName = BlackColorFromArgb, "一致", "不一致"))
とすると、不一致になります。

よって、下記のような関数を作って回避することにしました。


なんだかなぁ。
posted by MON at 00:00| Comment(0) | TrackBack(0) | 日記 | このブログの読者になる | 更新情報をチェックする

2016年12月03日

GetPrivateProfileInt で読んだ負の値を浮動小数点型にキャストする

GetPrivateProfileInt という.iniファイルから設定を読み取る関数があるのですが、
負の値をdouble型やfloat型にキャストすると、 -2147483648 となってしまいます。
回避するには
value = (double)(int)GetPrivateProfileInt("settings", "value", 0, ini_filename);
といった感じで、一度intにキャストすると上手くいきました。
本来、GetPrivateProfileIntの戻り値はUINTなので、負の値はとれないはずですが…

保存の方は
sprintf(ini_write_buff, TEXT("%d"), (int)(value));
WritePrivateProfileString("settings", "value", ini_write_buff, ini_filename);
といった感じなので負の値でも問題ありません。
posted by MON at 12:08| Comment(0) | TrackBack(0) | 日記 | このブログの読者になる | 更新情報をチェックする
【今是昨非】http://nomulabo.com/