ＰＩＣ−ＵＳＢＩＯ ｕｓｉｎｇ ＢＡＳＩＣ
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
ＵＳＢインターフェースを内蔵したＰＩＣを使ってＷｉｎｄｏｗｓパソコンで外部回路を制御するための各種Ｉ／Ｏ基板の製作記事です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第１９５回］
●ＰＩＣＵＳＢＩＯ用ＢＡＳＩＣ説明書（１０）ＢＡＳＩＣ関数・システム変数（２）
ＢＡＳＩＣ説明書の続きです。
今回は前回に続いてＢＡＳＩＣ関数とシステム変数についての説明です。
ＩＮＫＥＹ＄
この変数を参照したときにキーボードが押されているとそのキーの文字が得られます。
押されていないときはコード００（ヌル文字）が入ります。
ヌル文字は””で示します。
［使用例］
10 A$=INKEY$
20 IF A$="" GOTO 10
30 PRINT A$
40 GOTO 10
このプログラムを実行するとキーを押すたびにその文字が表示されます。
押したままにするとオートリピート機能がオンになって同じ文字が連続して表示されます。
ＩＮＰＵＴ＄
［書式］ＩＮＰＵＴ＄（ｋ）
キーボードから指定する桁数の文字を読み取ってその桁数の文字列データとして格納します。
ｋは読み取る桁数で１〜３９の範囲の整数で定数の他、変数、配列、式を書くこともできます。
指定した桁数の文字がキーボードから入力されるまで待ち続けます。
［使用例］
10 A$=INPUT$(3)
20 PRINT A$
>RUN
ABC
>
A、Ｂ、Ｃとキー入力するとＡＢＣと表示される
ＬＥＦＴ＄
［書式］ＬＥＦＴ＄（文字列 ,ｎ）
文字列の左端から任意の長さだけ取り出した文字列を与えます。
（ ）内の文字列は定数、変数のいずれでもよくまた長さを指定する数値は定数、変数、配列、式のいずれでもよいのですがその値は１〜３９の範囲の整数に限ります。
［使用例］
10 A$="ABCDEFG"
20 L$=LEFT$(A$,3),M$=MID$(A$,4,3),R$=RIGHT$(A$,3)
30 PRINT L$,M$,R$
>RUN［Ｅｎｔｅｒ］
ABC DE EFG
ＬＥＮ
［書式］ＬＥＮ（文字列）
文字列の文字数を与えます。
（ ）の中には文字定数、文字変数が記述できます。
［使用例］
10 A$="ABCDE"
20 PRINT LEN(A$)
>RUN［Ｅｎｔｅｒ］
5
ＭＩＤ＄
［書式］ＭＩＤ＄（文字列 ,ｎ, ｍ）
文字列の左端からｎ番目から始まってｍ個を取り出した文字列を与えます。
文字列の部分には文字定数、文字変数が記述できます。
ｎ、ｍは定数、変数、配列、式のいずれでもよいのですがその値は１〜３９の範囲の整数に限ります。
ｎが文字列の桁数より大きいとエラーになります。
ｍが文字列の桁数より大きいときはもとの文字列全体が与えられます。
［使用例］
10 A$="ABCDEFG"
20 L$=LEFT$(A$,3),M$=MID$(A$,4,2),R$=RIGHT$(A$,3)
30 PRINT L$,M$,R$
>RUN［Ｅｎｔｅｒ］
ABC DE EFG
ＯＲ
［書式］ＯＲ（ａ，ｂ）
８ビットの２数の論理和（ＯＲ）を計算します。
（ ）の中には、定数、変数、配列、数式、関数（いずれも文字型を除く）が記述できますがその値は０〜２５５の範囲の整数でなければ正しい結果は得られません。
またこのＯＲ関数の取り得る値の範囲も０〜２５５（＄００〜＄ＦＦ）です。
［使用例］
10 A=$37
20 B=OR(A,$0F)
30 PRINT HEX$(A),BI$(A)
40 PRINT HEX$(B),BI$(B)
>RUN［Ｅｎｔｅｒ］
37 00110111
3F 00111111
ＰＩＣＩＮ
ＰＩＣのＳＦＲ（Ｓｐｅｃｉａｌ Ｆｕｎｃｔｉｏｎ Ｒｅｇｉｓｔｅｒ）の値（８ビット）を読み込みます。
ＳＦＲについては［第１９３回］を参照してください。
ＰＩＣＩＮについては過去回のサンプルプログラムでたくさん使っていますので参考にしてください。
ＲＩＧＨＴ＄
［書式］ＲＩＧＨＴ＄（文字列 ,ｎ）
文字列の右端から任意の長さだけ取り出した文字列を与えます。
（ ）内の文字列は定数でも変数でもよく、また長さを指定する数値は定数、変数、配列、式のいずれでもよいのですがその値は１〜３９の範囲の整数に限ります。
［使用例］
10 A$="ABCDEFG"
20 L$=LEFT$(A$,3),M$=MID$(A$,4,2),R$=RIGHT$(A$,3)
30 PRINT L$,M$,R$
>RUN［Ｅｎｔｅｒ］
ABC DE EFG
ＳＰＡＣＥ＄
［書式］ＳＰＡＣＥ＄（ｎ）
任意の桁数の空白を与えます。
（ ）の中には、定数、変数、配列、数式、関数（いずれも文字型を除く）が記述できますがその値は１〜３９の範囲の整数に限ります。
［使用例］
10 FOR N=1 TO 10
20 A$="*"+SPACE$(N)+"*"
30 PRINT A$
40 NEXT N
>RUN［Ｅｎｔｅｒ］
* *
* *
* *
* *
* *
* *
* *
* *
* *
* *
ＳＴＲ＄
［書式］ＳＴＲ＄（ａ）
（ ）内の値を示す文字列を与えます。
（ ）の中には、定数、変数、配列、数式、関数（いずれも文字型を除く）が記述できます。
ＶＡＬ関数と逆の働きをします。
［使用例］
10 X=12
20 A$=STR$(X/3)
30 PRINT A$
>RUN[Enter]
4
ＴＩＭＥ＄
現在の時刻（時、分、秒）を持つシステム変数です。
ＴＩＭＥ＄は８桁の文字型変数で、ＨＨ：ＭＭ：ＳＳの形をしています。
ＨＨは００〜２３、ＭＭとＳＳは００〜５９の範囲の整数です。
ＴＩＭＥ＄はＷｉｎｄｏｗｓシステムの時刻データを引用しています。
この値はＰＲＩＮＴ文やＬＥＴ文などで常時参照することができます。
ＴＩＭＥ＄は読み取り専用です。
ＴＩＭＥ＄に値を書き込むことはできません。
［使用例］
10 PRINT TIME$
>RUN
15:23:46
ＴＩＭＥ２＄
現在の時刻（時、分、秒）を持つシステム変数です。
ＴＩＭＥ２＄は６桁の文字型変数で、ＨＨＭＭＳＳの形をしています。
ＨＨは００〜２３、ＭＭとＳＳは００〜５９の範囲の整数です。
ＴＩＭＥ２＄はＷｉｎｄｏｗｓシステムの時刻データを引用しています。
この値はＰＲＩＮＴ文やＬＥＴ文などで常時参照することができます。
ＴＩＭＥ＄は読み取り専用です。
ＴＩＭＥ＄に値を書き込むことはできません。
［使用例］
10 PRINT TIME$,TIME2$
>RUN
15:23:46 152346
ＶＡＬ
［書式］ＶＡＬ（文字列）
数字の文字列を計算できる数値に変換します。
ＳＴＲ＄と逆の働きをします。
１２３４５という数値はプログラムのなかで計算したり変数に代入することができますが、”１２３４５”というように文字型で表現したものはこのままでは計算に利用することはできません。
ＶＡＬ関数は文字列が示している数値を計算できる値に変換する働きをします。
下はＴＩＭＥ＄の内容を計算できる値に変換する例です
［使用例］
10 T$=TIME$
20 H=VAL(LEFT$(T$,2))
30 M=VAL(MID$(T$,4,2))
40 S=VAL(RIGHT$(T$,2))
50 PRINT T$,H,M,S
ＸＯＲ
［書式］ＸＯＲ（ａ，ｂ）
８ビットの２数の排他的論理和（ＸＯＲ）を計算します。
排他的論理和とは２つの数をビット毎に比較し共に１の場合及び共に０の場合には結果のそのビットを０にし、一方が１で他方が０のときは結果のそのビットを１にする演算です。
（ ）の中には、定数、変数、配列、数式、関数（いずれも文字型を除く）が記述できますがその値は０〜２５５の範囲の整数でなければ、正しい結果は得られません。
またこのＸＯＲ関数の取り得る値の範囲も０〜２５５（＄００〜＄ＦＦ）です。
［使用例］
10 A=$37
20 B=XOR(A,$0F)
30 PRINT HEX$(A),BI$(A)
40 PRINT HEX$(B),BI$(B)
>RUN[Enter]
37 00110111
38 00111000
［参考］＄ＦＦとのＸＯＲをとることによりその値を反転させることができます。
［使用例］
10 A=$37
20 B=XOR(A,$FF)
30 PRINT HEX$(A),BI$(A)
40 PRINT HEX$(B),BI$(B)
>RUN[Enter]
37 00110111
C8 11001000
今回でやっとＢＡＳＩＣの説明が終りました。
毎度のことながら説明書の作成作業は本当に骨の折れる作業です。
ＰＩＣ−ＵＳＢＩＯ ｕｓｉｎｇ ＢＡＳＩＣ［第１９５回］
２０２３．３．１３ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る