桜の下見に行った帰り道、ほんとにきれいなしだれ桜が満開に咲いていました。
栃木県栃木市にある太山寺というところです。
全国銘木百選にも入っている有名なしだれ桜とのこと。
先日につづきラッキーな一日でした。
栃木県栃木市にある太山寺というところです。
全国銘木百選にも入っている有名なしだれ桜とのこと。
先日につづきラッキーな一日でした。
梅を見に行ったつもりが桜になってしまいました。
隣町。。市（！？）の国分寺尼寺というところ。
なんと桜が８分咲きでした。
早咲きの桜で淡墨桜（うすずみざくら）と言うのだそうです。
ソメイヨシノは、まだまだというのに今日はちょっと得をした感じです。
隣町。。市（！？）の国分寺尼寺というところ。
なんと桜が８分咲きでした。
早咲きの桜で淡墨桜（うすずみざくら）と言うのだそうです。
ソメイヨシノは、まだまだというのに今日はちょっと得をした感じです。
近くの公園、といっても片道４０ｋｍ。
でも、田舎道なので１時間ほどで着いてしまいます。
春の午後、公園内の花屋さんでは色とりどりのきれいな花が
咲き誇っていました。
ビオラとノースポールを買って帰り、我が家の花壇に仲間入りです。
でも、田舎道なので１時間ほどで着いてしまいます。
春の午後、公園内の花屋さんでは色とりどりのきれいな花が
咲き誇っていました。
ビオラとノースポールを買って帰り、我が家の花壇に仲間入りです。
的が小さすぎて当たらなかったので大きくしました。（笑）
今回の弾速計の作成にあたり忘れないように記録にしてみました。
＜＜ 使用したインターフェイス等 ＞＞
①ＵＳＢ－ＩＯ：テクノキット（１，５００円）http://www.technokit.biz/
②ＵＳＢコネクター （ ４００円）
③ＨＳＰ（ソフトウェアー） （フリー ）http://www.onionsoft.net/hsp/
④ＨＳＰ・ＵＳＢ用プラグイン（フリー ）テクノキットＨＰから案内
⑤マイクロスイッチ （手持ち部品 ）
⑥Ｉ／Ｏ接続用平行ビニル線 （ ２００円）カインズホーム ４０円／ｍ
＜＜ 作成にあたって ＞＞
①ＵＳＢ－ＩＯキットは、ＨＰから通販にて２日で届きます。
②ＩＯキットは２０分くらいで組み立てられます。
③ＨＳＰはＢＡＳＩＣライクなフリーソフトですが、ＢＡＳＩＣの知識がちょっと必要です。
④トリガーと標的に付けるマイクロスイッチは小さいのを選択しました。
⑤トリガー方式は強制滑射式が最良だと思います。
⑥標的は競技ではないので、なるべく大きくした方が良い思います。（笑）
＜＜ プログラムについて ＞＞
①後から分かるように、コメントを多用するとよいです。
②ＨＳＰはデバッグが容易なのでおすすめです。
③プログラムは、改良の余地がいっぱいあり、今後改良・増殖する予定です。
④プログラム（参考：タブは省略してあります）
#include "hspusbio.as"
*start
title "USB-IO test"
screen 0,320,400
;USB-IO初期化
mes "USB-IOを接続してください"
repeat
uio_find
if stat==0 :break
wait 10
loop
cls
s=""
kyori=0
uio_out 1,15 ;ｐｏｒｔ１にｆｆｘを出力
port=1
pos 4,4:mes "距離："
pos 104,4:input kyori
pos 4,30:mes "距離をＢＯＸに入れてください。"
pos 80,60:button "Start",*read
pos 0
stop
*read
dat=0
a=0:b=0:c=0
d=0:e=0:f=0
count=0
flag=0
repeat
uio_inp dat,port
if dat==14 :break ;トリガーをひいた（０ｅｘ）
await 1
loop
repeat
uio_inp dat,port
count=count+1
if dat==10 :break ;的に当たった（０ａx）
await 1
loop
mes "kyori="+kyori
mes "count="+count
a = kyori * 115 ;115は１秒のカウント数
b = a / count
d = b / 100 ;整数部
e = (b - (d * 100)) / 10 ;小数部第１位
f = (b - (d * 100) - (e * 10)) ;小数部第２位
mes "速度："+d+"."+e+f+"m/s"
if count > 115:mes "Error!!"
goto *read
今回の弾速計の作成にあたり忘れないように記録にしてみました。
＜＜ 使用したインターフェイス等 ＞＞
①ＵＳＢ－ＩＯ：テクノキット（１，５００円）http://www.technokit.biz/
②ＵＳＢコネクター （ ４００円）
③ＨＳＰ（ソフトウェアー） （フリー ）http://www.onionsoft.net/hsp/
④ＨＳＰ・ＵＳＢ用プラグイン（フリー ）テクノキットＨＰから案内
⑤マイクロスイッチ （手持ち部品 ）
⑥Ｉ／Ｏ接続用平行ビニル線 （ ２００円）カインズホーム ４０円／ｍ
＜＜ 作成にあたって ＞＞
①ＵＳＢ－ＩＯキットは、ＨＰから通販にて２日で届きます。
②ＩＯキットは２０分くらいで組み立てられます。
③ＨＳＰはＢＡＳＩＣライクなフリーソフトですが、ＢＡＳＩＣの知識がちょっと必要です。
④トリガーと標的に付けるマイクロスイッチは小さいのを選択しました。
⑤トリガー方式は強制滑射式が最良だと思います。
⑥標的は競技ではないので、なるべく大きくした方が良い思います。（笑）
＜＜ プログラムについて ＞＞
①後から分かるように、コメントを多用するとよいです。
②ＨＳＰはデバッグが容易なのでおすすめです。
③プログラムは、改良の余地がいっぱいあり、今後改良・増殖する予定です。
④プログラム（参考：タブは省略してあります）
#include "hspusbio.as"
*start
title "USB-IO test"
screen 0,320,400
;USB-IO初期化
mes "USB-IOを接続してください"
repeat
uio_find
if stat==0 :break
wait 10
loop
cls
s=""
kyori=0
uio_out 1,15 ;ｐｏｒｔ１にｆｆｘを出力
port=1
pos 4,4:mes "距離："
pos 104,4:input kyori
pos 4,30:mes "距離をＢＯＸに入れてください。"
pos 80,60:button "Start",*read
pos 0
stop
*read
dat=0
a=0:b=0:c=0
d=0:e=0:f=0
count=0
flag=0
repeat
uio_inp dat,port
if dat==14 :break ;トリガーをひいた（０ｅｘ）
await 1
loop
repeat
uio_inp dat,port
count=count+1
if dat==10 :break ;的に当たった（０ａx）
await 1
loop
mes "kyori="+kyori
mes "count="+count
a = kyori * 115 ;115は１秒のカウント数
b = a / count
d = b / 100 ;整数部
e = (b - (d * 100)) / 10 ;小数部第１位
f = (b - (d * 100) - (e * 10)) ;小数部第２位
mes "速度："+d+"."+e+f+"m/s"
if count > 115:mes "Error!!"
goto *read
プログラムでちょっと手こずりました。
頭の中も冬眠していたようです。（笑）
心臓部のカウンターの精度が問題ですが、およその弾速（もちろんゴム弾）の速度は、１５ｍ／ｓから２５ｍ／ｓあたりですかね！！
ちなみに、ＢＢ弾あたりだと７０ｍ／ｓくらいだと書いてありました。
これから、ケースに入れてトリガーと的に付けたマイクロスイッチの微調整をキチンと整備すれば再現性のある弾速計になると思います。
でも、やっぱりゴム銃を作っている方がいいですね！！（笑）
頭の中も冬眠していたようです。（笑）
心臓部のカウンターの精度が問題ですが、およその弾速（もちろんゴム弾）の速度は、１５ｍ／ｓから２５ｍ／ｓあたりですかね！！
ちなみに、ＢＢ弾あたりだと７０ｍ／ｓくらいだと書いてありました。
これから、ケースに入れてトリガーと的に付けたマイクロスイッチの微調整をキチンと整備すれば再現性のある弾速計になると思います。
でも、やっぱりゴム銃を作っている方がいいですね！！（笑）
我が家の花壇にも春が来ました。
チューリップも蕾がふくらんできました。
弾速計のプログラム進行中です。
小数点の計算と表示に頭を。。。！！
頭が固くなって。トホホホ。。。！！
チューリップも蕾がふくらんできました。
弾速計のプログラム進行中です。
小数点の計算と表示に頭を。。。！！
頭が固くなって。トホホホ。。。！！
弾速計のしくみは、いたって単純です。
ゴム銃のフックと的にＳｗ（スイッチ）を付けておきます。
①ゴム銃と的の距離を測ってパソコンに入力しておきます。
②フックに仕掛けたＳｗ１が入ってから、的に当たってＳｗ２が入るまでの時間を ＵＳＢから取り込みパソコンで計測します。
③弾（ゴム）の速度をパソコンで計算し表示します。
「Ｓ＝ｖｔ」の式から ｖ＝Ｓ／ｔ を パソコンで計算します。
（Ｓ：距離 ｖ：速度 ｔ：時間）
これから、上の①～③の仕事をさせるプログラムを書きます。
ゴム銃のフックと的にＳｗ（スイッチ）を付けておきます。
①ゴム銃と的の距離を測ってパソコンに入力しておきます。
②フックに仕掛けたＳｗ１が入ってから、的に当たってＳｗ２が入るまでの時間を ＵＳＢから取り込みパソコンで計測します。
③弾（ゴム）の速度をパソコンで計算し表示します。
「Ｓ＝ｖｔ」の式から ｖ＝Ｓ／ｔ を パソコンで計算します。
（Ｓ：距離 ｖ：速度 ｔ：時間）
これから、上の①～③の仕事をさせるプログラムを書きます。
ＵＳＢ－Ｉ／Ｏが組み上がりました。
動作チェックも異常なし、簡単なプログラムのテストもＯＫでした。
これで、「弾速計」ができます。
ゴム銃で弾速を測って”どうすんの”って言われそうです！！（笑）
でも、ＢＢ弾だってやってんだもの、ゴム銃だって。。。ハハハ（笑）
やってみたかったんですね！？ こんな事。。。！！
これから、Ｉ／０のテストとプログラムを書く予定です。
プログラムはＢＡＳＩＣのようなインタプリターです。
動作原理といっても簡単なものですから、後ほどＵＰします。
動作チェックも異常なし、簡単なプログラムのテストもＯＫでした。
これで、「弾速計」ができます。
ゴム銃で弾速を測って”どうすんの”って言われそうです！！（笑）
でも、ＢＢ弾だってやってんだもの、ゴム銃だって。。。ハハハ（笑）
やってみたかったんですね！？ こんな事。。。！！
これから、Ｉ／０のテストとプログラムを書く予定です。
プログラムはＢＡＳＩＣのようなインタプリターです。
動作原理といっても簡単なものですから、後ほどＵＰします。
ＵＳＢ－ＩＯをインターネット通販で購入しました。
大阪から２日で届きます。
ゴム銃に関係してます。
これから何かをさせようとしてます。
大阪から２日で届きます。
ゴム銃に関係してます。
これから何かをさせようとしてます。
きょうは、隣の佐野市にある唐沢山梅園に行ってみました。
２週間ほど前にはまだ２・３本しか咲いていませんでしたが
きょうは３～４分咲きといったところでしょうか。
ときどき冷たい風が山を降りてきますが、日だまりではカップルが
日向ぼっこをしていました。
２週間ほど前にはまだ２・３本しか咲いていませんでしたが
きょうは３～４分咲きといったところでしょうか。
ときどき冷たい風が山を降りてきますが、日だまりではカップルが
日向ぼっこをしていました。