ＰＩＣ−ＵＳＢＩＯ　ｕｓｉｎｇ　ＢＡＳＩＣ
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
ＵＳＢインターフェースを内蔵したＰＩＣを使ってＷｉｎｄｏｗｓパソコンで外部回路を制御するための各種Ｉ／Ｏ基板の製作記事です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

［第１８２回］



●実数演算

［第６回］に書きましたようにＰＩＣＵＳＢＩＯ用のＢＡＳＩＣインタプリタはずっと今まで計算機能としては整数演算のみのＢＡＳＩＣとして紹介をしてきました。
計算の対象が基本的にＰＩＣのＩ／Ｏ制御に限定されますから整数を扱うことが中心になります。
計算とは言うもののたとえばＩ／Ｏから入力した値の比較などが中心であとは個数、回数などのカウントが主な対象になるかと思います。
ＰＩＣＵＳＢＩＯ用のＢＡＳＩＣインタプリタの作成を思い立った当初はそういう基本的な考えでスタートしましたし、それについては今でも大体はそういうことだと思っております。
ところがＡＤコンバータについて考えることになったあたりから、整数だけではちょいと不便かもしれない、と思うようになりました。
ＡＤコンバータは［第１６７回］から書いています。
［第１７０回］ではＰＩＣ内蔵の可変基準電圧を計測しました。
そのときはデジタル値を電卓で計算するとともにＤＡＣの出力をデジタルテスターで測定しました。
フルスケールが５Ｖの値ですからそこの表にありますように全てが小数点以下の数を含む実数値です。
この値をＡＤコンバータで読み取ると１６進数が返ってくることになります。
それをただ１０進数に直すだけではだめで電圧値に換算する必要があります。
つまりは当然小数点以下の値まで計算することになります。
しかし整数ＢＡＳＩＣではそれは無理な話です。
が。
たまたまその値については単位をＶではなくてｍＶにすればなんとかいける、ということを思いつきました。
それで「整数計算」のみで実質的には小数点以下の数値を演算したのが［第１７２回］です。
そのように工夫さえすれば整数演算のみでもなんとかなるとは思います。

思いますけれど。
ちょいと面白くないのですよねえ。
こういう用途もあるということがわかってしまうと、せめて簡単でもよいから実数計算ができるとよいじゃありませんか。
しかし。
そりゃあ迷いましたです。
もう当初の腹積もりから考えたら連載期間も随分長くなってしまっています。
やりたいことややらなくてはならないことは山ほど抱えてしまっています。
今になってから実数計算機能まで組み込むなど、本音で言えばやめておきたいところです。
決して簡単なことではないのです。
当初からずっと処理の対象は整数型と文字型のみを扱うということで組み立ててきたプログラムを一度壊してそこに実数型をはめこまなければなりません。
せっかくそれなりにうまく動作しているというのに、きっとバグに悩むことになるに違いない。
できれば止めておきたい。

そう思いつつ。
なんとか時間をみつけてプログラムの改造にとりかかってしまいました。
その結果。
ハンパな機能ではありますが。
なんとか最低限の実数計算機能を組み込むことができました。
さっそくテストをしたのはもちろん［第１７２回］のプログラムです。
下は［第１７２回］で作ったプログラムです。

取得した１６進数を「ｍＶ」単位の１０進数に変換しています。
そこのところを「Ｖ」単位の実数に換算して表示するように変更しました（下のプログラム）。

実数計算機能を付加するにあたって変数名をどうするかということでちょっと悩みました。
整数計算と実数計算を区別するスイッチとしては計算式の左辺に置く変数名の型を使うのが無理の無い方法です。
Ｃではその型は変数名ごとにプログラムの先頭で定義します。
ＢＡＳＩＣとしてはそういう面倒なことは御免です。
私が若い頃に使っていた昔のＦＯＲＴＲＡＮでは変数名の最初の１文字がｉ〜ｎの変数は整数型という（暗黙の？）ルールがありました。
それを使おうかとも思ったのですが自由な名前がつけられないという制約が出てきます。
結局ちょいと面倒ですけれど変数名の後ろに’！’をつけたら実数型ということにしました。
ちなみに当ＢＡＳＩＣインタプリタでは変数名のうしろに’＄’をつけたら文字型変数であることを示します。
今回組み込んだ実数演算機能は時間がないなかでとりあえず最低限の機能にしましたので、実数計算は＝の右辺で２項のみの計算に限ります。
ａ＋ｂ
ａ−ｂ
ａ＊ｂ
ａ／ｂ
の４通りのみです。
ａ、ｂは整数でも構いません。
そのルールのためにもとの整数計算では一度で行なっていたところを二度に分けて行っています。
１２０行では先に整数の計算を行なってそれをｄに入れたあと、ｄを１０２４で割って得た実数値をｄｄ！に入れています。
１２５行では同様にして整数値のｅを計算したあとｅ／３２をｅｅ！に入れています。

プログラムを実行した結果です。

今気が付きました。
３番目が実測値で４番目が計算値になっています。
［第１７２回］の結果とは並びが逆になってしまいました。
今からやり直すのも面倒ですのでこのままにしておきます。
下はスクロールして見えなくなった部分です。


実数の表示は数値の大きさに関係なくつねに小数部は６桁です。
このあたりも含めて時間ができたら機能アップしたいと思っています。

ＰＩＣ−ＵＳＢＩＯ　ｕｓｉｎｇ　ＢＡＳＩＣ［第１８２回］
２０２３．２．１１ｕｐｌｏａｄ

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