今是昨非

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



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



まぁ良い感じなのではないでしょうか。

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, "一致", "不一致"))
とすると、不一致になります。

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


なんだかなぁ。

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);
といった感じなので負の値でも問題ありません。

以前自作した電動ターンテーブルの駆動をタミヤのユニバーサルギアボックスにしてみました。
ユニバーサルギアボックスの出力を垂直方向にして、ギア比を最大とし、2.4VでFA-130モーターを駆動します。
ウォームギアで大きな減速比が稼げるはずなので、いけるかなぁと。
MDFパネルに下穴を空けてギアボックスを木ねじで固定。
足は24mmの角棒を24mmで切ってボンドで固定しました。
丁度良い長さのM3ネジを調達してイモネジでシャフトに固定しました。

結果は、、、非常にうるさいわ非力だわで失敗に終わりましたとさ。

移行時など諸事情でPCを2台交互に使っていると、自分の意図していない方を
操作してしまうことが多々あります。
誤って意図しない方のPCでDeleteボタンを連打しちゃったりすると
どこから消したのか分からず、被害は甚大です。
そこで、2回路2接点のトグルスイッチを使ってUSB切替機を作ってみました。



D+とD-をトグルスイッチで切り替え、GNDは共通です。
5Vは先に立ち上げる側のPCから供給し、もう一方はNCとしておきます。
Q965+WindowsVistaだと認識に7秒くらい、H110+Windows10だと認識は1秒程度です。
キーボードとマウスの切り替えなので、ロースピードモード（1.5Mbps）は大丈夫ですが
それ以上のスピードだと、難しいかもしれません。

机のスペースの都合もあり、デスクトップでは人差し指トラックボールを使っています。
知らぬ間にELECOMから新商品が出ていて、なかなか評判も良さそうだったの購入しました。

簡単に感想を箇条書きすると…
・無線の届く距離がTM-400より大幅に伸びたので、離れたところから操作出来るようになった。
・Trackball Explorerと同じく親指酷使系なので、スクロールはIntellimouse Trackballのような薬指か、TM-400のような人差し指が良かった。
・チルトホイールが硬い。
・Bluetooth対応なら良かった。
・多ボタンは普通に便利。
・ボールが小さいように思えるが、使ってみると意外とイケる。
　（比較するとこんな感じ）


総じて操作感はTBEと似ています。
ニッチな市場なので、出来ればよく売れて、永く販売して欲しいと思います。

追記：4ヶ月ほど使用したところ、ホイール操作が誤作動するようになってしまいました。
　　　修理センターに送付して１週間ほどで新品交換となりました。
　　　そもそも保証期間が購入後６ヶ月というのは短いと思います。
　　　今回のホイール部の故障は個別不良ではなく本製品の弱点と思われるので、
　　　少しでも永く使えるよう、チルトやセンターボタン押下の操作は控えたいと思います。

思うところあって FKB8744 という、ちょっと古いキーボードを再入手しました。

このキーボードは NumLock/CapsLock/ScrollLock の状態表示LEDが付いていないのですが
基板にパターンは準備されているので、LEDをハンダ付けするだけでOKです。

分解して、右上の基板にLEDを付けて



適当に穴を空けて



完成です。（10年ぶり2度目）
PS/2キーボードですが、USB変換ケーブルを挟めば、まだ現役で使えます。

トラックボールもTM-400(CT-100/T-RB22)という、ちょっと古いものを使っているのですが
ホイールボタンの効きががイマイチになっていました。
数回、組み直したのですが改善しなかったので、マイクロスイッチの上の部分に
小さい丸シールを数枚重ねたものを貼り付けました。



絶好調です。
ただ、USB-PS/2変換ケーブルを通すとユーティリティソフト(SetPoint)が使えないので
こちらはUSBポートにレシーバーを接続する必要があります。

Windows10のクリーンインストール用に あきばお〜 の謎 SSD 960GB（19,999円＋税）を買ってみました。

差し出されたのは、Patriot Memory Blast PBT960GS25SSDR で、メーカー保証3年でした。
コントローラは Phison S10で、DRAMキャッシュは1024MB搭載です。
https://patriotmemory.com/product/blast-solid-state-drives/
ファームウェアは現時点で最新の12.2でした。

せっかくなのでベンチマークを取ってみました。



十分に速いので満足＾＾
1TBのHDDを約2万円で買ったのが2008年の春でした。
それから8年間、個人で扱うデータ量はそれほど増えてないのかなぁと思います。

参考
http://ascii.jp/elem/000/001/153/1153143/
http://akiba-pc.watch.impress.co.jp/hotline/20080301/etc_hdd.html

ダイソーのターンテーブルを使って電動ターンテーブルを自作してみました。



使ったのはキッチンコーナーにあったCOLOR KITCHEN ターンテーブル (KI-15-6/A016 59/4933712133338)です。
一度分解して足を取り、ピンバイスで台座部分に穴を開け、MDFパネルに取り付けました。



モーターは12Vの小型ユニポーラステッピングモーターです。ステッピングモーターなので任意のステップで任意の角度、回転数を指定できます。最速で１回転あたり40秒程度になりました。
ステッピングモーターの制御プログラムはCCSのサンプルプログラムEX_STEP.CをベースにPIC16FF88向けに改造したものです。



駆動部はレインボープロダクツの平ギヤ（1.0モジュール/20歯/軸径5mm）を使用しています。
ターンテーブルのフチに戸当たりの防音スポンジテープを貼り付け、ギアが滑らないように絶妙に食い込ませています。

使用した感じでは、500ml缶は回りますが、900mlのペットボトルは脱調してしまうので
使用可能重量はは500〜800g程度でしょう。

ベルトドライブにしたいところですが、良いガイドが見つからなかったですし、
（八幡ねじの溝ゴム No.108 がよさげだけど、量り売りしてないみたい…）
ダイソーのターンテーブルは結構ガタガタしてるので、あまりお金をかけるのはなぁ…

JUNKのCore2Duo E8400(Wolfdale-6M/45nm)を手に入れたので割ってみました。



接着剤をカッターで剥がして、マイナスドライバーでゴリゴリと…



パキッ！
おおっ！？ええっ！？



コアがヒートスプレッダ側に！ソルダリングだったか（＾＾；



キャッシュがダイの半分ほどを占めていて、コアが2つあるのが分かります。
後藤氏のコラムのダイ写真と同じマップが見れて満足です。
http://pc.watch.impress.co.jp/docs/2007/0206/kaigai_2.jpg
http://pc.watch.impress.co.jp/docs/2007/0206/kaigai334.htm

486なんかは整然とボンディングワイヤが付いていて観察しがいがあったものですが、
最近のは拡大してもよく分かりません…

中華製 安デジタルノギスをDRO化したので、メモ程度に記事を作成しました。
http://nomulabo.com/caliper/

---
週末にaitendoのリアル店舗に行ったのですが、
場所がなんと、昔々faithの事務所が入っていたビルでした。
まさかもう一度あのビルに足を踏み入れるとは……不思議……

２階の「赤ちゃんルーム」に授乳・おむつ替えスペースがあります。



カーテンの奥にオムツ替え台とソファがあります。



オムツを捨てるビニール袋とゴミ箱、おむつの自動販売機はありましたが、お湯はありませんでした。

（この記事の写真はパブリックドメインとします。）

おサイフケータイには、自由に読み書きできるFelicaのエリアが、１６バイト×２４ブロック（３８４バイト）あります。
felicalib.dllには書き込む手段も提供されているようなので試してみました。
ちなみに、modFelicaLib.vb のコメントを手直しするとこんな感じです。

'【関 数 名】felica_write_without_encryption
'【第１引数】[in] f felicaハンドル (felica構造体のポインタを指定する)
'【第２引数】[in] servicecode サービスコード
'【第３引数】[in] addr ブロック番号
'【第４引数】[in] *buf データ(16バイト)のポインタ
'【戻 り 値】エラーコード


ちょっとアプリをこしらえて、、、サービスコード70C9に試してみると、、、




無事に書き込めました。




・・・３８４バイトかぁ・・・アイコン入れるとか・・・

Felicaでちょっと遊んでいるのですが、とあるカードには、とあるサービスコードのとあるブロック番号に
とある文字列が書き込まれていて、それを読みだすといろいろ便利なことが出来そうです。
ということで、ここのページで公開されている「CFelicaLib.vb」に機能を追加しました。

    '=============================================
    '【関 数 名】read_string
    '【第１引数】[in]  Integer  サービスコード
    '【第２引数】[in]  Byte  ブロック番号
    '【戻 り 値】[out] String   文字列
    '---------------------------------------------
    ' 既知のサービスコードとブロック番号から文字列を読み取る
    '=============================================
    Public Function read_string(ByVal serviceCode As Integer, ByVal address As Byte) As String
        Try
            '------------
            ' エラー処理
            '------------
            If f_ptr = IntPtr.Zero Then
                Return ""
            End If

            '----------
            ' 変数定義
            '----------
            Dim rStr As String
            Dim buf(15) As UInt8

            '-------------------------
            ' 変数bufのアドレスを取得
            '-------------------------
            Dim gch As GCHandle = GCHandle.Alloc(buf, GCHandleType.Pinned)
            Dim b As IntPtr = gch.AddrOfPinnedObject().ToInt32

            '-------------
            ' 指定したサービス、アドレスから読み取り
            '-------------
            felica_read_without_encryption02(f_ptr, serviceCode, 0, address, b)
            rStr = System.Text.Encoding.ASCII.GetString(buf) 'HexToAsc(buf)

            '--------------
            ' メモリの解放
            '--------------
            gch.Free()

            '------------
            ' 結果を返す
            '------------
            Return rStr
        Catch ex As Exception
            MessageBox.Show(ex.Message, "read_str()")
            Return ""
        End Try
    End Function
 

作者の白執事様に感謝します。

最初は、モーター焼けかと思ってテスタで当たってみましたが正常でした。
トランスもAC38Vが出ていて問題なし、基板も焼損は見あたりませんでした。
スイッチを当たってみると、どちらも導通なしで、恐る恐るミノムシクリップで
バイパスしてみると、ブルンッと反応してれました。

秋葉で適当なスイッチを調達しても良かったのですが、プロクソンは良心的で
パーツの品番で取り寄せが可能です。
（フライスモーター No.20160 の、スイッチ 20160-18）
近所のホームセンターに依頼して、納期 約２０日、価格は375円でした。

手持ちのドリルスタンド No.28606 ＋ マイクロクロステーブル No.27100 が
何故かガタついてるので、リプレイスしたいのですけど………
置く場所がないな＼(^o^)／

ブログに収まりきらなかったので↓のページにまとめました。
http://nomulabo.com/sam/color_reduction.html

PIC16F88を使用して、ステッピングモーターコントローラを作りました。
ボリュームで速さと回転方向を指定します。
また、外部からパルス信号を入力しても、任意のステップ数で制御できるようにしました。
ソースはEX_STEP.Cを改造したもので、割と簡単に制御できました。

シャフトにピンバイスで2.5mmの下穴をあけて、
Dサブコネクタで使われる取り付けスペーサーを挿入しました。
受け側がナットなので、さらなる延長も容易です。

スタイがくるくる回ってしまって、お洋服が汚れてしまうので
ダイソーで買ったレース付きカバンテープとマジックテープを縫い付けて
胴回りで止められるように改造しました。



なかなか良い感じで満足です。こうあるべき。

昨年末に都内某喫茶店で無線機のセットアップをしてきました。

この店舗は客席と厨房が離れているため、店員がオーダーを取った後に
厨房と客席を往復していたのですが、無線機を使ってその手間を無くしたいとのことでした。

距離は最大でも50m程度なので特定小電力トランシーバーでOK。
厨房側はACアダプタが使え、将来の拡張が可能なIC-4188Dをチョイス。
オーダーを確実に聞き取れるように、外部スピーカー(3W x 2)を設置しました。
また、そのためのインターフェースボックスを制作＆ハンドマイクのコネクタを加工しました。


(もちろん、ガムテープは仮止めですよ！）

客席側は同じアイコムのIC-4100にしました。



オーナーには大変喜んでいただきました。
休日に買い出しやら加工をした甲斐がありました。