|
|
中部方面5インチ活動家のKODAMAXさま
つくりましたこの機械は3次元での動きをとらまえることが出来ますから、高感度にするために動きのデータを100倍にするプログラムをつくりました。1000倍、1万倍にすることもできますが×100〜1000で十分と思います。またこれは盗難防止装置などに応用することができます。つまり少しでも動かすと、警報が鳴るといったシステムに使います。これはデジタルの電子システムですが、ネットを調べますと、高校の先生が100均やらばねやらを使い、計測器を作って地下鉄のゆれ具合を計測しておられる例などを見ました。乗り鉄ならぬ計測鉄の登場です。(笑)一度JR総武線で調べてみようと思います。市川駅分岐のゆれなどは有名なのです。ローカルネタですが。
以下は収集データを100倍にするプログラムです。
Private Sub Command1_Click()
Open "c:tdsdata.csv" For Input As #1
Open "c:tdsdatamd.csv" For Output As #2
Input #1, a$
Print #2, a$; ",";
Input #1, a$
Input #1, a$
Input #1, a$
Input #1, a$
Input #1, a$
Print #2, a$; ",";
Input #1, a$
Print #2, a$; ",";
Input #1, a$
Print #2, a$; ","
Input #1, a$
Input #1, a$
Input #1, a$
Input #1, a$
While Not EOF(1)
Input #1, a$
Print #2, a$; ",";
以下は省略
|
|