おやじプログラマー日記

今回はBHT-BASICの演算子について説明したいと思います。
BHT-BASICには、算術演算子、関係演算子、論理演算子、関数演算子、文字列演算子と 普通の言語にはだいたいそろっている演算子があります。

■演算子の優先順位

優先順位	演算子名称	演算子
1	括弧	( ) 括弧の中が優先して演算
2	関数演算子	組込み関数,ユーザ関数の実行
3	算術演算子	※演算子の中で更に優先度がある 優先順位 演算 演算子 1 負号 - 2 乗算、除算 * , / 3 剰余演算 MOD 4 加算、減算 + , -
4	関係演算子	= , <> , >< , < , > , <= , >= , =< , =>
5	論理演算子	※演算子の中で更に優先度がある 優先順位 演算 演算子 1 否定 NOT 2 論理積 AND 3 論理和 OR 4 排他的論理和 XOR
6	文字列演算子

演算子は特に目新しいものは無く、よくあるものばかりですので、 各演算子毎に細かくは記しませんが、少し注意するものをピックアップします。

■算術演算子・剰余演算（MOD）

MODは割り算の余りを返すものです。 以下の例の様に数値は四捨五入し整数にしてからMOD演算が行われます。
PRIVATE X%, Y%, R% X% = 10 Y% = 3 R% = X% MOD Y% 'X%をY%で割った余り PRINT "R%=" ; R% R% = 10 MOD 4.1 '4.1を四捨五入し結果 10 MOD 4 PRINT "R%=" ; R% R% = -10 MOD -4.5 '-4.5を四捨五入し結果 -10 MOD -5 PRINT "R%=" ; R% Wait 0, &h01 'キー入力待ち END


■オーバーフローとゼロによる除算

演算結果がオーバーフローしたり、ゼロで割った場合には実行時エラーが発生します。 以下のソースはその例を示します。
ON ERROR GOTO MAIN.ERR 'エラー宣言 PRIVATE X%, Y% X% = 32767 '整数型のMAX値 PRINT "TEST-1" Y% = X% / 0 'ゼロで割る PRINT "TEST-2" Y% = X% + 1 '整数型のオーバーフロー Wait 0, &h01 'キー入力待ち END MAIN.ERR: 'エラーコードと発生アドレス表示 PRINT "ERR=" + HEX$(ERR) + " : ERL=" + HEX$(ERL) RESUME NEXT 'エラー発生の次の行に戻る


■関係演算子について

関係演算子は2個の式を比較して、真「－1」または偽「0」を返します。 この値を使って、プログラムの流れを制御できます。 以下のソースは、IF文を使った各関係演算子の例を示します。

また、関係演算子の計算結果を変数に入れて使うこともできます。
SCREEN 1 '標準漢字モードを指定 PRIVATE X% '各関係演算子の例 IF 1 = 1 THEN PRINT "[=] :等しい" ENDIF IF 0 <> 1 THEN PRINT "[<>]:等しくない" ENDIF IF 0 < 1 THEN PRINT "[<] :小さい" ENDIF IF 1 > 0 THEN PRINT "[>] :大きい" ENDIF IF 0 <= 1 THEN PRINT "[<=]:以下" ENDIF IF 1 => 0 THEN PRINT "[=>]:以上" ENDIF PRINT "-----" '比較を式に代入 X% = (1 = 1): PRINT "等しい="; X% X% = (0 = 1): PRINT "等しくない="; X% Wait 0, &h01 'キー入力待ち END



■論理演算子を式で使う

論理演算子は、複数の関係演算子での判定結果を関連付ける演算子です。
OUT &H6080, 1 '小フォントを指定 PRIVATE X%, Y%, Z% 'NOT Z% = NOT(0): PRINT "NOT (0)=" ;Z% Z% = NOT(NOT(0)): PRINT "NOT(NOT((0))=" ;Z% Z% = NOT(1): PRINT "NOT (1)=" ;Z% 'AND Z% = 0 AND 0: PRINT "(0) AND (0)=" ;Z% Z% = 0 AND 1: PRINT "(0) AND (1)=" ;Z% Z% = 1 AND 0: PRINT "(1) AND (0)=" ;Z% Z% = 1 AND 1: PRINT "(1) AND (1)=" ;Z% 'OR Z% = 0 OR 0: PRINT "(0) OR (0)=" ;Z% Z% = 0 OR 1: PRINT "(0) OR (1)=" ;Z% Z% = 1 OR 0: PRINT "(1) OR (0)=" ;Z% Z% = 1 OR 1: PRINT "(1) OR (1)=" ;Z% 'XOR Z% = 0 XOR 0: PRINT "(0) XOR (0)=" ;Z% Z% = 0 XOR 1: PRINT "(0) XOR (1)=" ;Z% Z% = 1 XOR 0: PRINT "(1) XOR (0)=" ;Z% Z% = 1 XOR 1: PRINT "(1) XOR (1)=" ;Z% Wait 0, &h01 'キー入力待ち END


■文字列演算子について

文字列の演算では結合しかなく、+マークで行います。 また、数値の様に文字列の比較ができます。
SCREEN 1 '標準漢字モードを指定 '文字列連結 PRIVATE X$, Y$, Z$ X$ = "123": Y$ = "ABC" Z$ = "連結=" + X$ + ":" + Y$ PRINT Z$ PRINT "-----" '各関係演算子の例 IF "123" = "123" THEN PRINT "[=] :等しい" ENDIF IF "012" <> "123" THEN PRINT "[<>]:等しくない" ENDIF IF "001" < "002" THEN PRINT "[<] :小さい" ENDIF IF "003" > "002" THEN PRINT "[>] :大きい" ENDIF PRINT "-----" '文字列の長さが異なる IF "123" <> "12" THEN PRINT "[<>]:等しくない" ENDIF IF "12" < "123" THEN PRINT "[<] :小さい" ENDIF IF "123" > "12" THEN PRINT "[>] :大きい" ENDIF Wait 0, &h01 'キー入力待ち END




■関連記事
⇒BHT-BASIC:DENSOのハンディターミナルの開発言語のBHT-BASIC4.0を使ってみた
⇒BHT-BASIC4.0:変数宣言の書き方（BHT-1300）
⇒BHT-BASIC4.0:変数宣言の書き方その２（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数について（BHT-1300）
⇒BHT-BASIC4.0:画面への表示について（BHT-1300）
⇒BHT-BASIC4.0:キー入力について（BHT-1300）
⇒BHT-BASIC4.0:数値用キー入力関数（ユーザ定義関数）について（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数の値渡し・参照渡しについて（BHT-1300）
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数について
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその２
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその３
⇒BHT-BASIC4.0:TeraTermを使ってDENSOのハンディターミナルにファイル(プログラム)転送を行う方法
⇒BHT-BASIC4.0:I/OポートとWAIT、さらにTIMERについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについてその２（書込み・読込みの実用的な関数）
⇒BHT-BASIC4.0:データファイルの検索について（SEARCH関数）
⇒BHT-BASIC4.0:ユーザ関数の引数の仮変数に対する代入の注意点
⇒BHT-BASIC4.0:データファイルの削除等について（KILL、CLFILEのラッパ関数）
⇒BHT-BASIC4.0:ファイルの存在確認関数を作ってみました
⇒BHT-BASIC4.0:拡張関数のバイナリサーチ処理関数(BSEARCH.FN3)の使い方
⇒BHT-BASIC4.0:拡張関数のサーチ処理関数(SEARCH.FN3)の使い方
⇒BHT-BASIC4.0:簡単なメニュー表示・選択を行うユーザ関数について
⇒BHT-BASIC4.0:ファイル伝送におけるXFILE命令の使い方
⇒BHT-BASIC4.0:バーコードの読込み（バーコードスキャン）について
⇒BHT-BASIC4.0:Bluetoothデバイスアドレス取得等について
⇒VB.NET:ハンディターミナル（BHT-1300等）とのデータファイルの送受信について