ＰＩＣ−ＵＳＢＩＯ ｕｓｉｎｇ ＢＡＳＩＣ
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
ＵＳＢインターフェースを内蔵したＰＩＣを使ってＷｉｎｄｏｗｓパソコンで外部回路を制御するための各種Ｉ／Ｏ基板の製作記事です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第１９１回］
●ＰＩＣＵＳＢＩＯ用ＢＡＳＩＣ説明書（６）ＢＡＳＩＣ命令（２）
今回は前回（ＢＡＳＩＣ命令）の続きです。
５章 ＢＡＳＩＣ命令（ステートメント）の続きです
ＯＵＴ
指定したＩ／Ｏアドレスに８ビットのデータを出力します。
アドレス、データとして変数、配列や数式を使うこともできます。
ただしＩ／Ｏアドレス、データ共に１バイトなのでその値は０〜２５５（＄００〜＄ＦＦ）に限られます。
ＰＩＣＵＳＢＩＯに特化したＢＡＳＩＣなのでこのＯＵＴ命令はＰＩＣＵＳＢＩＯボードのＩ／Ｏ回路に対するアクセスに限定した機能になっています。
アドレスとして＄０４よりも大きい値を指定しても上位ビットは無視されてアドレス０〜３として働きます。
［使用例］
１０ ＯＵＴ ＄８３，＄８０
上の文の実行によりＩ／Ｏアドレス＄０３のＩ／Ｏアドレスに８ビットのデータ＄８０が出力されます（アドレスとして＄８３を指定しても＄０３になります）。
（ＰＩＣＵＳＢＩＯ−０１の基板上に実装されている８２Ｃ５５のアドレスが＄００〜＄０３になっていて＄０３は８２Ｃ５５のコントロールワードアドレスになっていますから上の文は８２Ｃ５５のＡ〜Ｃポートを出力にセットすることになります。
ＰＲＩＮＴ
ディスプレイ画面に、変数、配列の値、計算式の値、文字列などを表示します。
表示は現在のカーソル位置から行われ１行で表示できないときは次の行に自動的に改行して出力されます。
要素をカンマ（，）で区切って複数個記述することができます。
［使用例］
１０ Ａ＝１２３：Ｂ＝２００：Ｘ＄＝”ＸＹＺ”
２０ ＰＲＩＮＴ Ａ，Ｂ，Ｘ＄，Ａ＋Ｂ
３０ ＰＲＩＮＴ Ａ；Ｂ；Ｘ＄；Ａ＋Ｂ
＞ＲＵＮ［Ｅｎｔｅｒ］
１２３ ２００ ＸＹＺ ３２３
１２３２００ＸＹＺ３２３
パラメータをカンマ（，）で区切ると１文字の空白が挿入されます。
またセミコロン（；)で区切ると間をあけないで表示されます。
●ＰＲＩＮＴ文の最後にセミコロン（；)をつけると改行が行われません。
上の例で ２０ ＰＲＩＮＴ Ａ，Ｂ，Ｘ＄，Ａ＋Ｂ； とすると結果は下のようになります。
＞ＲＵＮ［Ｅｎｔｅｒ］
１２３ ２００ ＸＹＺ ３２３１２３２００ＸＹＺ３２３
●ＰＲＩＮＴとだけ書いた場合には１行改行命令になります（下の２０行）。
［使用例］
10 PRINT "ABC"
20 PRINT
30 PRINT "DEF"
＞RUN[Ｅｎｔｅｒ]
ABC
DEF
ＲＤＡＴＡ ＃ｎ，変数名
＃ｎは＃５〜＃８です。
ＲＯＰＥＮでオープンしたファイルからデータを変数に読み込みます。
ＷｉｎｄｏｗｓアプリケーションのＴｅｒａＰａｄやＥＸＣＥＬなどではデータ区切りの ，（カンマ）が命令の終わりにある場合と無い場合とで扱いが異なりますがＲＤＡＴＡ文は ， も改行コードも値と値との間のセパレータとしてしか認識しません。
ＲＤＡＴＡ文はＧＯＴＯ文を使って繰り返して値を読み込むプログラムになります。
ＲＤＡＴＡ文では１個の変数しか記述できません。
最後の値を読んだあとファイルの終わりを知るためにＥＯＦ（）の値を確認します。
使用例や使い方は［第９回］を参照してください。
ＲＥＡＤ
ＤＡＴＡ文に書かれているデータを変数に読み込みます。
最初に実行されるＲＥＡＤ文は一番小さい行番号のＤＡＴＡ文のデータから読み込みを開始します。
ＲＥＡＤ文もＤＡＴＡ文も一つのプログラムに幾つ書いてもまた幾つの変数を割り当てても構いませんがＲＥＡＤ文の変数とＤＡＴＡ文の定数の型が異なっていたりＤＡＴＡ文のデータの数が不足するとエラーになります。
ＤＡＴＡ文のデータの方が多い場合には残りのデータが無視されるだけでエラーにはなりません。
使用例はＤＡＴＡ文の項を参照して下さい（前回参照）。
ＤＡＴＡ文の最初に戻って始めのデータから読みなおしたい時や途中から読み出したい時にはＲＥＳＴＯＲＥを使います。
ＲＥＭ
プログラム中に実行されないコメントを書くのに使います。
このＲＥＭから行の終わりまでに書かれた文字は実行時には無視されます。
ＲＥＭの代わりにアポストロフィ( ’ ) で代用することができます。
［使用例］
10 REM *** TEST PROGRAM ***
20 ’Good Morning!
ＲＥＳＴＯＲＥ
ＲＥＡＤ文で読み込みを開始するＤＡＴＡ文を指定します。
ＲＥＡＤ文は小さい行番号のＤＡＴＡ文から読み取りを開始し順に読んで行きますが処理によってはもう一度前のＤＡＴＡ文に戻って読み取りたい場合や間をとばして先のＤＡＴＡ文を読みたい場合があります。
ＲＥＡＤ文に先立って読み取りを始めたいＤＡＴＡ文の行番号をＲＥＳＴＯＲＥ文で指定しておくことによって任意のＤＡＴＡ文から読み取りを開始することができます。
ＲＥＳＴＯＲＥの後に行番号を指定しない場合は一番小さい行番号のＤＡＴＡ文が指定されたことになります。
［使用例］
１０ ＤＡＴＡ ＡＢＣ，ＸＹＺ，１２３
２０ ＤＡＴＡ １０，２０，３０
３０ ＲＥＡＤ Ａ＄，Ｂ＄
４０ ＲＥＳＴＯＲＥ ２０
５０ ＲＥＡＤ Ｉ，Ｊ
６０ ＲＥＳＴＯＲＥ
７０ ＲＥＡＤ Ｃ＄
８０ ＰＲＩＮＴ Ａ＄，Ｂ＄，Ｃ＄，Ｉ，Ｊ
＞ＲＵＮ［Ｅｎｔｅｒ］
ABC XYZ ABC 10 20
ＲＥＳＵＭＥ
ＯＮ ＥＲＲＯＲ ＧＯＴＯ文でエラー発生時の処理をしたあと次に実行する文を指定します。
RESUME のように後ろに何もつけない場合はエラーの発生した文から再実行します。
RESUME NEXT と後ろにＮＥＸＴをつけるとエラーの発生した文の次の文から実行を開始します。
RESUME 50 のように後ろに行番号をつけるとその行から実行を開始します。
［使用例］
１０ ＯＮ ＥＲＲＯＲ ＧＯＴＯ １００
２０ ＩＮＰＵＴ Ａ，Ｂ
３０ ＰＲＩＮＴ Ａ／Ｂ
４０ ＧＯＴＯ ２０
１００ ＰＲＩＮＴ ”ＥＲＲＯＲ！”，ＥＲＬ，ＥＲＣ
１１０ ＲＥＳＵＭＥ ＮＥＸＴ
＞ＲＵＮ［Ｅｎｔｅｒ］
Ａ？１０［Ｅｎｔｅｒ］
Ｂ？０［Ｅｎｔｅｒ］
ＥＲＲＯＲ！ ３０ １２
Ａ？
ＲＥＴＵＲＮ
ＧＯＳＵＢ文で指定したサブルーチンの終わりを示します。
ＲＥＴＵＲＮ文が実行されるとＧＯＳＵＢ文の次の文に戻って処理を続けます。
詳しくは、ＧＯＳＵＢ〜ＲＥＴＵＲＮの説明を参照して下さい（前回参照）。
ＲＯＰＥＮ ＃ｎ，ファイル名
ＲＯＰＥＮはＣＳＶファイルをＲＥＡＤファイルとしてオープンします。
ｎは５〜８の間の整数です。
ＳＴＯＰ
プログラムの実行を中止してブレイクします。
このとき画面には次の表示が出ます。
Break in LLLLL （LLLLL はＳＴＯＰ文の書かれている行番号）
この後キーボードからＣＯＮＴコマンドを入力すればこのＳＴＯＰ文の次の文から実行を再開させることができます（ただしプログラムの最後にＳＴＯＰ文が書かれていてそのＳＴＯＰ文でブレイクした場合には実行を再開させることはできません）。
ＷＤＡＴＡ ＃ｎ［，データ１，データ２…，］
＃ｎ（ｎ＝１〜４）で指定するファイルにデータを書き込みます。
＃ｎは省略できませんがその後ろは省略可能です。
データは複数個記述することができます。
データを記述するときは＃ｎとデータとの間およびデータ間を，（カンマ）で区切ります。
最後に ， をつけない場合はそこに改行コード（０Ｄ０Ａ）が書き込まれます。
最後を ， で終るとそこに ，（コード２Ｃ）が書き込まれて終ります。
データを記述しないでＷＤＡＴＡ ＃ｎだけの命令文を書くとそこに改行コード（０Ｄ０Ａ）が書き込まれます。
使用例や使い方は［第７回］および［第８回］を参照してください。
ＷＯＰＥＮ ＃ｎ，ファイル名
ＷＯＰＥＮはデータを書き込むファイルを新規オープンする命令です。
ｎは１〜４の範囲の整数です。
ファイルをオープンする命令はＷＯＰＥＮのほかにＲＯＰＥＮがあります。
ＷＯＰＥＮはＷｒｉｔｅ ｄａｔａ ｆｉｌｅ ｏｐｅｎです。
ＲＯＰＥＮはＲｅａｄ ｄａｔａ ｆｉｌｅ ｏｐｅｎです。
ＲＯＰＥＮはデータを読み出すファイルをＯＰＥＮする命令です。
ＷＯＰＥＮの＃ｎは＃１〜＃４ですがＲＯＰＥＮの＃ｎは＃５〜＃８です。
ＷＯＰＥＮ命令でファイル名をつけて新規ファイルをオープンします。
作成されるファイルは拡張子の指定に関わらず中身はＣＳＶファイルとして作成されます。
ＣＳＶはＣｏｍｍａ Ｓｅｐａｒａｔｅｄ Ｖａｌｕｅの頭文字から取った名称で「値をカンマで区切る」ことから来ています。
その実体はテキストファイルですからメモ帳やＴｅｒａＰａｄなどで開くことができます。
拡張子を「ｃｓｖ」にすることは必須ではありません。
「ｔｘｔ」でもよいですし拡張子なしでも構いません。
しかし拡張子をｃｓｖにしたほうがアプリケーションから開きやすくなりますからとくに理由がない限り「ｃｓｖ」にしたほうがよいでしょう。
ＷＯＰＥＮでオープンしていることを示すためにファイル番号＃１〜＃４で示します。
このファイル番号はデータを書き込むための命令ＷＤＡＴＡと最後にファイルをクローズする命令ＣＬＯＳＥで使われます。
使用例や使い方は［第７回］および［第８回］を参照してください。
ＰＩＣ−ＵＳＢＩＯ ｕｓｉｎｇ ＢＡＳＩＣ［第１９１回］
２０２３．３．５ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る