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

［第１４回］



●文字変数、文字定数の結合

４日ぶりの更新になってしまいました。
複数のお客様からまとまったご注文をいただきましたのでこのところ大忙しなのです。
感謝、感謝であります。
実はそのほかに色々考えていることなどがあって、それでついＨＰの更新が後回しになってしまいました。
しばらくはこの状況が続きそうです。
気長なお付き合いをお願いいたします。

それで。
前回はＤＡＴＥ＄、ＴＩＭＥ＄について書きました。
ＤＡＴＥ＄、ＴＩＭＥ＄はＢＡＳＩＣの機能としてはごく普通の機能です。
しかし前回はそれとは別にＤＡＴＥ２＄、ＴＩＭＥ２＄というシステム変数も紹介しました。
これはオリジナルの変数でＺＢ３ＢＡＳＩＣにもありません。
今回ＰＩＣ−ＵＳＢＩＯ用のＢＡＳＩＣのために新規に考えたものです。
この機能は［第７回］で紹介しましたＣＳＶファイルの作成のためにあるとよいと思いついて作ったものです。

ファイル名を指定してオープンするためにＷＯＰＥＮ命令を使います。
ＷＯＰＥＮ　＃ｎ，ファイル名
です。
実はその時点ではファイル名は文字定数（”　”で囲った文字型の定数）として考えていました。
しかしデータロガーとしての使い道をよくよく考えてみるとファイル名が定数（プログラムを書く時点で決っている文字列）というのはちょっと不便ではないかということに気が付きました。
たとえばログファイルには日付や時間の情報が必須になります。
データロガーの場合もファイル名に日付や時間の情報があったら便利ではないかと思います。
そのためには当然「ファイル名」は変数である必要があります。
そこでＷＯＰＥＮ、ＲＯＰＥＮの機能を拡張してファイル名に文字型の定数のほかに文字型の変数も使えるようにしました。
そしてその次に行なったのがＤＡＴＥ２＄、ＴＩＭＥ２＄の創設です。
これはどういうことかと言いますと。
一般的なＤＡＴＥ＄の値は”ＹＹ／ＭＭ／ＤＤ”という文字列で示されます。
ＴＩＭＥ＄の値は”ＨＨ：ＭＭ：ＳＳ”という文字列で示されます。
ところがファイル名（半角英数字の場合）に／や：は使えないのです。
Ｗｉｎｄｏｗｓでは全角のファイル名も使えるのですが、当ＢＡＳＩＣでは全角の文字列は考えていません。
ソフトウェアの負担を軽くするために扱える文字コードは半角英数及び一部の記号のみに限定しています。

話を元に戻します。
ですからファイル名に日付や時間を含めようとするとＤＡＴＥ＄、ＴＩＭＥ＄から／と：を外して数字だけを取り出さなくてはなりません。
そのための関数としてはＬＥＦＴ＄、ＭＩＤ＄、ＲＩＧＨＴ＄があります。
それを使えばよいのですけれど、使うにしてもできるだけ簡単に使えることが望ましい、というのがＤＡＴＥ２＄、ＴＩＭＥ２＄を考え出した理由でした。
実際の使用例を見ていただきます。

もとのプログラム（ＴＥＳＴ６６．ＴＸＴ）は［第８回］で使ったテストプログラムです。
その一部を書き換えました。
こういうときに行番号が必要になります。
２２と２４を追加しました。
それからカーソルを移動して３０行を書き換えました。
こういうときにスクリーンエディタは実に便利です。
ＲＥＮ（ｒｅｎｕｍｂｅｒ）コマンドで行番号を１０番飛びに直しました。
番号を付け直したあとの３０行が今回のテーマ、文字変数、文字定数の結合です。
文字変数、文字定数を結合したいときは’＋’記号を使います。
文字列’ｔｅｓｔ４＿’のうしろにｄａｔｅ２＄を結合しました。
文字変数への代入は数値型と同じように’＝’を使います。
結合した結果をｆｎａｍｅ＄に入れます。
４０行でｆｎａｍｅ＄の中身を画面に表示します。
ＲＵＮコマンドで実行しました。
あれっ？
うっかりしていました。
狙った通りのファイル名になったのですが、うっかりしていて拡張子’．ｃｓｖ’をつけるのを忘れてしまいました。

拡張子がなくてもＴｅｒａＰａｄなら普通に開けます。


拡張子がないファイルはＥｘｃｅｌでも開くことはできますが、開くための手続きがちょっと面倒です。


’．ｃｓｖ’を追加しました。

カーソルを３０行に移動してそこで後ろに＋”．ｃｓｖ”を追加しました。
スクリーンエディタの便利なところです。
またインタプリタでかつ行番号付きプログラムがデバッグや追加編集が極めて容易なことの参考例でもあります。

ＴｅｒａＰａｄで開きました。


Ｅｘｃｅｌで開きました。


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

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