ＰＩＣＢＡＳＩＣコンパイラ
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
まるでインタプリタ。でもコンパイラです。超カンタン超シンプルです。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

［第１５回］



●ＦＯＲ　ＮＥＸＴ文を使ったタイマープログラム

前回はＦＯＲ　ＮＥＸＴ文の実行時間を確かめました。
ＦＯＲ文とＮＥＸＴ文の間に何も挟まないプログラムの場合で繰り返し回数がある程度多い場合には１回の実行時間は約０．６μｓという結果が得られました。
それだけはっきりした数字が得られたならばＦＯＲ　ＮＥＸＴ文を使って任意の時間のタイマープログラムが出来そうです。
試しに１ｍｓのタイマープログラムを作ってみることにしました。
１ｍｓのタイマーは０．６μｓのＦＯＲ　ＮＥＸＴ文を何回実行することになるのでしょうか。
計算をしてみました。
１０００／０．６≒１６６６．７
約１６６７回です。
しかしこれは実行できません。
ＰＩＣＢＡＳＩＣコンパイラは８ビットの数しか扱えません。
ということは最大２５５回（０を２５６と数えた場合には２５６回）までしかカウントできません。
そこで少し工夫をします。
ＦＯＲ　ＮＥＸＴ文を２５５回実行した場合には実行時間はどれほどになるでしょうか。
まずはそれを計算します。
０．６＊２５５＝１５３μｓ
です。
それならば。
第１のＦＯＲ　ＮＥＸＴ文で１００μｓ（０．１ｍｓ）のタイマーを作って、それを第２のＦＯＲ　ＮＥＸＴ文で１０回繰り返せば１ｍｓになるはずです。
まずは１００μｓになるようなＦＯＲ　ＮＥＸＴ回数を求めます。
１００／０．６≒１６６．７
です。
四捨五入すると１６７回ですがＦＯＲ　ＮＥＸＴを二重に使うことなどで余分に消費する時間も出てくると思いますからここは切捨てにして１６６回にします。
本当にそれで１００μｓが得られるか、まずはその部分だけのテストをしてみました。
下がそのプログラムです。

今回のような機能の応用などのテストを行ないつつ少しでも使い勝手が向上するような改良も思いつくたびに行なっています。
／ＬＯＡＤ、／ＳＡＶＥでロード、セーブするＰＩＣＢＡＳＩＣのソースプログラムはＴＸＴ形式のファイルで拡張子は．ＴＸＴです。
上の画面の／ＬＯＡＤのところを見てください。
ｂｓｆｏｒｔｉｍｅｔ２はｔｘｔファイルですが拡張子を省略しています。
拡張子を省略した場合には拡張子が．ｔｘｔのファイルを指定したことになります。
これは／ＳＡＶＥコマンドの場合でも同じです。
以上は機能の紹介です。
プログラムの説明に戻ります。
０〜１６５までの繰り返しなので繰り返し回数は１６６回です。

上のプログラムを実行して出力されるＰＯＲＴＣのうちのビット０（ＲＣ０）の波形をＣＰＬＤロジアナで観測しました。
波形はＰＲＯＢＥ０に見えています。

ぴったり１００μｓです。

そこまで確認できましたからいよいよ仕上げです。

ＦＯＲ　ＮＥＸＴを２段に使って１ｍｓのパルスを作ります。
外側のＦＯＲ　ＮＥＸＴ文はｂ＝０からｂ＝９までの繰り返しですから１０回の繰り返しです。

プログラムを実行して先ほどと同じようにＣＰＬＤロジアナで観測しました。

１ｍｓのパルスになっているようです。

サンプリングクロックを５０ＫＨｚにしました。

ちゃんと１ｍｓになっています。

ＰＩＣには内蔵Ｔｉｍｅｒの機能がありますからそれを使えば正確な時間のタイマーを作ることができます。
ＰＩＣ内蔵Ｔｉｍｅｒの使い方については「ＰＩＣ−ＵＳＢＩＯ　ｕｓｉｎｇ　ＢＡＳＩＣ」［第６４回］〜　を参照してください。
しかしそこまで正確でなくても大体の値のタイマーでよいという場合には今回の要領で数ｍｓ〜数十ｍｓ程度のタイマーなら簡単に作ることができます。
ＢＡＳＩＣは本当に便利です。

ＰＩＣＢＡＳＩＣコンパイラ［第１５回］
２０２３．４．２５ｕｐｌｏａｄ

前へ
次へ
ホームページトップへ戻る