ＰＩＣ−ＵＳＢＩＯ ｕｓｉｎｇ ＢＡＳＩＣ
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
ＵＳＢインターフェースを内蔵したＰＩＣを使ってＷｉｎｄｏｗｓパソコンで外部回路を制御するための各種Ｉ／Ｏ基板の製作記事です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第１９４回］
●ＰＩＣＵＳＢＩＯ用ＢＡＳＩＣ説明書（９）ＢＡＳＩＣ関数・システム変数
ＢＡＳＩＣ説明書の続きです。
今回はＢＡＳＩＣ関数とシステム変数です。
６章 ＢＡＳＩＣ関数・システム変数
関数はいままで説明してきたコマンドや命令（ステートメント）とは少し性質が異なっています。
関数は命令（ステートメント）のようにＢＡＳＩＣ文の中で単独で使うことはできずＬＥＴ文やＰＲＩＮＴ文の中である値を持つ数値として扱われます。
関数は（ ）の中に記述するパラメータをもとにしてそれぞれの処理をした結果をその関数の値として持ちますがシステム変数はパラメータが不要である特定の値をシステムが与えます。
ＡＢＳ
［書式］ＡＢＳ（ａ）
絶対値を計算します。
（ ）の中には、定数、変数、配列、数式、関数（いずれも文字型を除く）が記述できます。
［使用例］
１０ Ａ＝ＡＢＳ（Ｂ＊Ｃ−１０）
ＡＮＤ
［書式］ＡＮＤ（ａ，ｂ）
８ビットの２数の論理積（ＡＮＤ）を計算します。
（ ）の中には、定数、変数、配列、数式、関数（いずれも文字型を除く）が記述できますがその値は０〜２５５の範囲の整数でなければ正しい結果は得られません。
またこのＡＮＤ関数の取りうる値の範囲も０〜２５５（＄００〜＄ＦＦ）です。
［使用例］
１０ Ａ＝＄３７
２０ Ｂ＝ＡＮＤ（Ａ，＄０Ｆ）
３０ ＰＲＩＮＴ ＨＥＸ＄（Ａ），ＢＩ＄（Ａ）
４０ ＰＲＩＮＴ ＨＥＸ＄（Ｂ），ＢＩ＄（Ｂ）
＞ＲＵＮ［Ｅｎｔｅｒ］
３７ ００１１０１１１
０７ ０００００１１１
ＡＳＣ
［書式］ＡＳＣ（ａ）
文字列の最初の１文字のキャラクタコードを与えます。
（ ）の中には文字定数、文字変数が記述できます。
［使用例］
１０ ＩＮＰＵＴ Ａ＄
２０ ＣＤ＝ＡＳＣ（Ａ＄）：ＰＲＩＮＴ ＨＥＸ＄（ＣＤ），
３０ ＩＦ （＄３０＜＝ＣＤ）＊（ＣＤ＜＝＄３９） ＴＨＥＮ ＰＲＩＮＴ ”ＮＵＭＥＲＩＣ” ＥＬＳＥ ＰＲＩＮＴ ”ＡＬＰＨＡ”
４０ ＧＯＴＯ １０
＞ＲＵＮ［Ｅｎｔｅｒ］
Ａ＄？１２３４５［Ｅｎｔｅｒ］
３１ ＮＵＭＥＲＩＣ
Ａ＄？ＡＢＣ［Ｅｎｔｅｒ］
４１ ＡＬＰＨＡ
Ａ＄？
ＢＩ＄
［書式］ＢＩ＄（ａ）
８ビットの数をビット表現の文字列にします。
（ ）の中には、定数、変数、配列、数式、関数（いずれも文字型を除く）が記述できますがその値は０〜２５５の範囲の整数でなければ正しい結果は得られません。
［使用例］
１０ Ａ＝＄３７
２０ Ｂ＝ＡＮＤ（Ａ，＄０Ｆ）
３０ ＰＲＩＮＴ ＨＥＸ＄（Ａ），ＢＩ＄（Ａ）
４０ ＰＲＩＮＴ ＨＥＸ＄（Ｂ），ＢＩ＄（Ｂ）
＞ＲＵＮ［Ｅｎｔｅｒ］
３７ ００１１０１１１
０７ ０００００１１１
ＢＩＴ
［書式］ＢＩＴ（ａ，ｎ）
８ビットの数の任意のビットを調べそのビットが０のときにこの関数の値が０になり１のときこの関数の値が１になります。
（ ）の中には、定数、変数、配列、数式、関数（いずれも文字型を除く）が記述できますが、その値は第１パラメータは０〜２５５、第２パラメータは０〜７の範囲の整数でなければ正しい結果は得られません。
ＢＩＴ関数の値は、０か１の２値のみです。
この関数はＩ／Ｏポートからの入力データの特定のビットの状態を知りたい時などに使うと便利です。
下の例はＩ／ＯのＡポートのビット７にＬレベルの信号が入力された時に、”ＤＡＴＡ ＩＮ”と表示させるプログラムです。
［使用例］
１０ ＯＵＴ ＄８３，＄９０
２０ Ａ＝ＩＮ（＄８０）
３０ ＩＦ ＢＩＴ（Ａ，７）＝０ ＴＨＥＮ ＰＲＩＮＴ ”ＤＡＴＡ ＩＮ”
４０ ＧＯＴＯ ２０
ＣＨＲ＄
［書式］ＣＨＲ＄（ａ）
８ビットのデータをキャラクタコードとみなしてそのコードに対応する１桁の文字を発生します。
（ ）の中には、定数、変数、配列、数式、関数（いずれも文字型を除く）が記述できますがその値は０〜２５５の範囲の整数でなければ正しい結果は得られません。
［使用例］
１０ Ａ＄＝ＣＨＲ＄（４１）＋ＣＨＲ＄（４２）＋ＣＨＲ＄（４３）
２０ ＰＲＩＮＴ Ａ＄
＞ＲＵＮ［Ｅｎｔｅｒ］
ABC
ＤＡＴＥ＄
現在の日付（年、月、日）を持つシステム変数です。
ＤＡＴＥ＄は８桁の文字型変数でＹＹ／ＭＭ／ＤＤの形をしています。
ＹＹは００〜９９、ＭＭは０１〜１２、ＤＤは０１〜３１の範囲の整数です。
ＤＡＴＥ＄はＷｉｎｄｏｗｓシステムの日付データを引用しています。
この値はＰＲＩＮＴ文やＬＥＴ文などで常時参照することができます。
ＤＡＴＥ＄は読み取り専用です。
ＤＡＴＥ＄に値を書き込むことはできません。
［使用例］
10 PRINT DATE$
>RUN
03/02/15
ＤＡＴＥ２＄
現在の日付（年、月、日）を持つシステム変数です。
ＤＡＴＥ２＄は６桁の文字型変数でＹＹＭＭＤＤの形をしています。
ＹＹは００〜９９、ＭＭは０１〜１２、ＤＤは０１〜３１の範囲の整数です。
ＤＡＴＥ２＄はＷｉｎｄｏｗｓシステムの日付データを引用しています。
この値はＰＲＩＮＴ文やＬＥＴ文などで常時参照することができます。
ＤＡＴＥ２＄は読み取り専用です。
ＤＡＴＥ２＄に値を書き込むことはできません。
［使用例］
10 PRINT DATE$,DATE2$
>RUN
03/02/15 030215
ＥＯＦ（ｎ）
データをファイルから読み込むときにＲＯＰＥＮ命令とともに使います。
ｎは５〜８の整数です。
ＲＯＰＥＮでオープンしたファイルのデータを読み込んだあとファイルエンドになったらＥＯＦ（ｎ）の値が１になります。
まだデータが残っている間はＥＯＦ（ｎ）の値は０です。
ＥＲＬ
ＥＲＣ
ＢＡＳＩＣの実行中にエラーが発生した時ＥＲＣにそのエラーコードがセットされＥＲＬにはエラーが発生した行番号がセットされます。
この値はＩＦ文などで数値データとして参照可能です。
［使用例］
１０ ＯＮ ＥＲＲＯＲ ＧＯＴＯ １００
２０ ＩＮＰＵＴ Ａ，Ｂ
３０ ＰＲＩＮＴ Ａ／Ｂ
４０ ＧＯＴＯ ２０
１００ ＰＲＩＮＴ ”ＥＲＲＯＲ！ＬＩＮＥ＝”；ＥＲＬ，”ＣＯＤＥ＝”；ＥＲＣ
１１０ ＲＥＳＵＭＥ ＮＥＸＴ
ＲＵＮ［Ｅｎｔｅｒ］
Ａ？１０［Ｅｎｔｅｒ］
Ｂ？０［Ｅｎｔｅｒ］
ＥＲＲＯＲ！ＬＩＮＥ＝３０ ＣＯＤＥ＝１２
Ａ？
ＨＥＸ＄
［書式］ＨＥＸ＄（ａ）
ａの値を１６進数化してその文字列を与えます。
（ ）の中には、定数、変数、配列、数式、関数（いずれも文字型を除く）が記述できますがａの値は０〜２５５の範囲の整数に限ります。
［使用例］
１０ Ａ＝１２３
２０ ＰＲＩＮＴ Ａ，ＨＥＸ＄（Ａ）
＞ＲＵＮ［Ｅｎｔｅｒ］
１２３ ７Ｂ
ＩＮ
［書式］ＩＮ（ａ）
Ｉ／ＯポートのＩ／Ｏアドレスから８ビットのデータを入力します。
ＯＵＴ命令の反対の働きをします。
（ ）の中にはアドレスとして定数、変数、配列、数式、関数（いずれも文字型を除く）が記述できますがその値は０〜２５５の範囲の整数に限ります。
ＰＩＣＵＳＢＩＯに特化したＢＡＳＩＣなのでこのＩＮ関数はＰＩＣＵＳＢＩＯボードのＩ／Ｏ回路に対するアクセスに限定した機能になっています。
アドレスとして＄０４よりも大きい値を指定しても上位ビットは無視されてアドレス０〜３として働きます。
［使用例］
10 ABCIN=IN($80)
この場合Ｉ／Ｏアドレスは０として認識されＰＩＣＵＳＢＩＯ−０１ボードの場合ボード上の８２Ｃ５５のＡポートからの入力データがＡＢＣＩＮに入ります。
説明が長くなりますので説明の途中ですが今回はここまでにします。
この続きは次回にいたします。
ＰＩＣ−ＵＳＢＩＯ ｕｓｉｎｇ ＢＡＳＩＣ［第１９４回］
２０２３．３．１１ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る