アメリカの ３．５インチゲージ１（修正しました）

アメリカ　サンディエゴにお住まいの３．５インチゲージファンのお宅を訪問しました。何回かの連載で写真と動画をお届けします。鉄道模型の資産だけで，数億円だそうです。このフロアは２００平方メートルあります。お楽しみください。

ＰＣで自動運転 その３７！ソフト編１０（ポイント制御２）

下記のサンプルコードは，QKeyで定義したクイックキーを使ってポイントを動作させる例です。
最初の３行では，表示しているQKeyテーブルのSwitch_1の表示の上でマウスを左クリックすると，レイアウト上の位置（１２，２，１）に表示しているポイントの形を切替表示に変えるとともに，物理的にSwitch 1を動作させるソフトです。
４行目からの３行では，逆に表示とポイント自身を動かして，元の位置に戻すものです。

Switch 2に関しても同じように制御できます。


When Switch_1=Left
Do switch1=ON,
$Switch(12,2,1)=ON

When Switch_1=Right
Do switch1=OFF,
$Switch(12,2,1)=OFF

When Switch_2=Left
Do switch2=ON,
$Switch(14,4,1)=ON


When Switch_2=Right
Do switch2=OFF,
$Switch(14,4,1)=OFF

これは，ＰＣから手動でポイントを動かすためのソフトです。

ＰＣで自動運転 その３６！ソフト編９（ポイント制御）

ＰＣ上に表示したレイアウトのポイント部を，左クリックで切替する場合と，右クリックで戻す動作をアプリケーションで作成します。
下記のサンプルコードをご覧ください。

マウスをグリッド（１２，２，１）または（１４，４，１）の位置で，左クリックしたときには，レイアウト上のポイントの表示を切り替えた状態に変えると同時に，Switch　1と　Switch 2をＯＮして，物理的なポイントを動作させます（サンプルコード１段目から５段目まで）。

ポイントを元に戻すには，マウスを同じ位置で，右クリックすると，レイアウト上のポイント表示が戻り，さらに　Switch 1とSwitch 2がＯＦＦされて，ポイントが元の位置に戻ります（サンプルコード６段目から１０段目まで）。

＊ポイントを切り替える
When $Left_Mouse=(12,2,1) OR $Left_Mouse=(14,4,1)
Do $Switch(12,2,1)=ON,
$Switch(14,4,1)=ON,
switch1=ON,
switch2=ON

＊ポイントを戻す
When $Right_Mouse=(12,2,1) OR $Right_Mouse=(14,4,1)
Do $Switch(12,2,1)=OFF,
$Switch(14,4,1)=OFF,
switch1=OFF,
switch2=OFF

マウスの位置は，ソフトが自動的に検出してくれますので，その座標をアプリに挿入するだけで，簡単です。