おやじプログラマー日記: BHT-BASIC

BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその３

さらに、文字列を扱うユーザ定義関数として使えそうなものを作成してみました。

関数定義	引数	戻り値
指定バイト数内に収まる文字列を戻す `Function GfCut$(pstrValue$, pintMax%)[255]`	pstrValue$:対象文字列 pintMax%:指定バイト	GfCut$:結果文字列
横幅一杯でのテキスト表示 `Sub GsPrintFull(Byval pstrSrc$)`	pstrSrc$:対象文字列

'---------------------------------------
'指定バイト数内に収まる文字列を戻す関数
'---------------------------------------
'Function GfCut$(pstrValue$, pintMax%)[255]
'引　数：
'	pstrValue$：対象文字列
'	pintMax%：指定バイト数
'戻り値:
'	GfCut$	:結果文字列
'---------------------------------------
	Function GfCut$(pstrValue$, pintMax%)[255]
		'エラー処理宣言
		On Error Goto GfCut.ErrProc

Private intPos%, intErr%, intLoop%, intChr%, strRet$[255]
		intPos% = 0
		intErr% = GcFalse%
		intLoop% = GcTrue%
		While intLoop% = GcTrue%
			'ASCIIコード取得
			intChr% = Asc(Mid$(pstrValue$, intPos% + 1, 1))
			'2バイト文字(先頭バイトがSJISコード??)
			If &H80 <= intChr% And intChr% <= &H9F Then
				intPos% = intPos% + 2
				If intPos% > pintMax% Then
					'最大バイト長を超える場合、前の状態に戻すフラグON
					intErr% = GcTrue%
				End If
				If intPos% >= pintMax% Then
					'最大バイト長に達する場合は、その場で終了
					If intErr% = GcTrue% Then
						strRet$ = Mid$(pstrValue$, 1, intPos% - 2)
					Else
						strRet$ = Mid$(pstrValue$, 1, intPos%)
					End If
					intLoop% = GcFalse%
				End If
			'1バイト文字
			Else
				intPos% = intPos% + 1
				If intPos% >= pintMax% Then 
					'最大バイト長に達する場合は、その場で終了
					strRet$ = Mid$(pstrValue$, 1, intPos%)
					intLoop% = GcFalse%
				End If
			End If
		WEnd
		GfCut$ = strRet$
GfCut.Return	'関数戻り
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
GfCut.ErrProc
		GfCut$ = ""
		Resume GfCut.Return
	End Function

const	McMaxColumns% = 20		'画面の半角桁数MAX
'---------------------------------------
'横幅一杯でのテキスト表示
'---------------------------------------
'Sub GsPrintFull(Byval pstrSrc$)
'引　数：
'	pstrSrc$：対象文字列
'---------------------------------------
    Sub GsPrintFull(Byval pstrSrc$)
		'エラー処理宣言
		On Error Goto GsPrintFull.ErrProc

Private strWK$[255]
		strWK$ = GfCut$(pstrSrc$ + "                      ", McMaxColumns%)
    	If Len(strWK$) < McMaxColumns% Then
			strWK$ = strWK$ + LEFT$("          ", McMaxColumns% - Len(strWK$))
		Endif
		Print strWK$;
GsPrintFull.Return	'関数戻り
		On Error Goto 0
		Exit Sub
'-----
'エラー処理
'-----
GsPrintFull.ErrProc
		Resume GsPrintFull.Return
	End Sub

尚、GfCut$関数は、以前存在した「ハンディターミナル（BHT）の部屋」というサイトからの引用です。
また、GsPrintFull関数は画面の横幅を20文字と限定しています。（フォントの設定が24ドット）

【DENSO】ハンディターミナルBHT-1306BWB＋USB通信ユニットCU-1321＋ACアダプタAD2＋標準バッテリBT-130L-C【送料無料・代引手数料無料】【02P05Nov16】

価格： 208,980円
（2016/11/26 22:01時点）

投稿時刻 16:03 BHT-BASIC | 個別ページ | コメント (0) | トラックバック (0)

BHT-BASIC4.0:拡張関数のサーチ処理関数(SEARCH.FN3)の使い方

前回はバイナリサーチ(SEARCH.FN3)の紹介を行いましたが、この検索では1個のコードに対して処理する機能しかありません。
コードは昇順にしないとバイナリサーチは利用できないので、 1レコードの中に複数コードが存在しソートできない場合などのデータファイルの場合には利用できません。

複数コードの条件付けを行い検索できるのが、拡張関数の サーチ処理関数(SEARCH.FN3) です。今回はこの拡張関数について説明します。

■サーチ処理関数(SEARCH.FN3)について

この関数は以下の4個の機能があります。

機能番号		処理内容
.fcAndSrch	1	「AND」サーチ（レコード番号検索）
.fcOrSrch	2	「OR」サーチ（レコード番号検索）
.fcAndSrchN	11	「AND」サーチ件数（件数のみ検索）
.fcOrSrchN	12	「OR」サーチ件数（件数のみ検索）

「レコード番号検索」と「件数のみ検索」で関数に渡す引数の書式が異なります。

[書式1]
　CALL "SEARCH.FN3" .fcAndSrch FILENO%, RSTART, REND, RECORD, STRING1$, STRING2$．．．

　　RSTART, REND, RECORD は、整数型(%),長整数型(&),実数型(指定無し)が使用可能

[書式2]
　CALL "SEARCH.FN3" .fcAndSrch FILENO%, RSTART, REND, RECORD, STRING$(), STRINGN%

　　RSTART, REND, RECORD は、整数型(%),長整数型(&),実数型(指定無し)が使用可能
＜引き数＞

　　.fcAndSrch：機能番号指定
　　FILENO%   ：ファイル番号
　　RSTART    ：検索開始レコード番号
　　REND　    ：検索終了レコード番号
　　FIELDNO%  ：フィールド番号
　　STRINGn$  ：検索条件
　　STRING$() ：検索条件（配列指定時）
　　STRINGN%  ：検索条件数（配列指定時）

　　STRINGn$やSTRING$()は「検索方法」＋「フィールド番号」＋「検索文字列」で指定します。
　　「検索方法」、「フィールド番号」は数値を

CHR$関数

で文字列化

＜戻り値＞

　　RECORDNO　：検索結果（レコード番号）
　　・RECORDNO には、検索条件に一致するデータが見つかったレコード番号が返されます。
　　　見つからなかった場合、0 が返されます。
　　・RECORDNO は、整数型の最大値(32767)を超える場合あるので、
　　　変数に代入する場合、長整数型変数か実数型変数を推奨します

今回の検索関数を使用する例のために以下の様なデータファイルを想定します。これは今まで使ってきたTEST.DATに削除フラグを追加しています。ファイル名はTEST2.DATとします。

項目名	フィールド長	内容
品番	16	商品コードの文字列
数量	12	商品の数量を文字列で格納
削除フラグ	1	"1":削除済み、 "0"削除されていない

サーチ処理関数(SEARCH.FN3) を使う上で OR条件 よりも AND条件 を使う方が多いと思うので、 AND条件 を例にとります。
品番と削除フラグの AND条件 でデータファイル（ TEST2.DAT ）を検索する関数が以下の様になります。関数コールの書式は検索条件に文字列配列を使った「書式２」で行っています。

'---------------------------------------
'データ検索その２
'---------------------------------------
'Function MfSearchData2%(Byval pstrCD$, Byval pintDel%, Byref plngNum&, Byref plngRecNo&)
'引　数：
'	pstrCD$		:コード
'	pintDel%	:削除フラグ
'	pdblVal$	:数量
'	plngRecNo&	:レコードNO
'戻り値:
'	MfSearchData2%	:読込OK:GcTrue%, NG:GcFalse%
'---------------------------------------
	Function MfSearchData2%(Byval pstrCD$, Byval pintDel%, Byref plngNum&, Byref plngRecNo&)
		'エラー処理宣言
		On Error Goto MfSearchData2.ErrProc
		'フィールドサイズ(既に宣言済み)
'		Const COL.CD% = 16
'		Const COL.NUM% = 12
'		Const COL.DEL% = 1
		'戻り値の初期化
		MfSearchData2% = GcFalse%
		'FIELD関連変数
		PRIVATE FILENO%, REC.CD$, REC.NUM$, REC.DEL$
		'TEST.DAT2ファイルを、ファイル番号#1としてオープンします
		FILENO% = 1
		OPEN GcTEST2.DAT$ AS FILENO% RECORD 2147483647
		FIELD #FILENO%, COL.CD% AS REC.CD$, COL.NUM% AS REC.NUM$, COL.DEL% AS REC.DEL$
		'検索データの整形
		PRIVATE WK.CD$, WK.DEL$
		WK.CD$ = LEFT$(pstrCD$ + GfSpc$(COL.CD%), COL.CD%)
		If pintDel% = GcTrue% Then
			WK.DEL$ = "1"
		Else
			WK.DEL$ = "0"
		EndIf
		'レコードNO検索
		PRIVATE RSTART&, REND&, RECORDNO&, STRING$(2)[64], STRINGN%
		RSTART& = 1
		REND& = LOF(FILENO%)	'ファイルの最後まで検索
		STRINGN% = 2			'検索条件配列の個数
		STRING$(0) = CHR$(0) + CHR$(1) + WK.CD$	 '検索条件(＝条件),フィールド番号(1:場所CD)
		STRING$(1) = CHR$(0) + CHR$(3) + WK.DEL$ '検索条件(＝条件),フィールド番号(3:削除フラグ)

CALL "SEARCH.FN3" .fcAndSrch FILENO%, RSTART&, REND&, RECORDNO&, STRING$(), STRINGN%
		If RECORDNO& > 0 Then
			'レコードNOが返された場合,レコードの取得
			GET FILENO%, RECORDNO&
			'数値文字列を返す
			plngNum& = VAL(REC.NUM$)
			plngRecNo& = RECORDNO&
			'正常を返す
			MfSearchData2% = GcTrue%
		Endif
MfSearchData2.Return	'関数戻り
		If FILENO% > 0 Then
			Close FILENO%
		Endif
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
MfSearchData2.ErrProc
		MfSearchData2% = GcFalse%
		Resume MfSearchData2.Return
	End Function

■検索関数の利用

上記の検索関数の動作をテストするソースを以下に記します。

SCREEN 1				'漢字モード
	LOCATE , , 2			'カーソルをブロック表示
	'最初は書き込み処理の連続
	PRIVATE W%
	W% = MfPutData2%("CD0001",  100, GcTrue%,  0)
	W% = MfPutData2%("CD0002",  102, GcFalse%, 0)
	W% = MfPutData2%("CD0003", 1030, GcTrue%,  0)
	W% = MfPutData2%("CD0101",  201, GcTrue%,  0)
	W% = MfPutData2%("CD0201",  202, GcFalse%, 0)
	W% = MfPutData2%("CD1001",  500, GcTrue%,  0)

PRIVATE CD$, RNO&, NUM&
	CD$ = "CD0001"	'削除ONで検索⇒検索OK
	W% = MfSearchData2%(CD$, GcTrue%, NUM&, RNO&)
	IF W% = GcTrue% THEN
		PRINT CD$ + "(" + STR$(RNO&) +  "):" + STR$(NUM&)
	ELSE
		PRINT CD$ + ":Not Found"
	ENDIF
	CD$ = "CD0002"	'削除ONで検索⇒検索NG
	W% = MfSearchData2%(CD$, GcTrue%, NUM&, RNO&)
	IF W% = GcTrue% THEN
		PRINT CD$ + "(" + STR$(RNO&) +  "):" + STR$(NUM&)
	ELSE
		PRINT CD$ + ":Not Found"
	ENDIF
	CD$ = "CD0002" 	'削除OFFで検索⇒検索OK
	W% = MfSearchData2%(CD$, GcFalse%, NUM&, RNO&)
	IF W% = GcTrue% THEN
		PRINT CD$ + "(" + STR$(RNO&) +  "):" + STR$(NUM&)
	ELSE
		PRINT CD$ + ":Not Found"
	ENDIF
	CD$ = "CD0201" 	'削除OFFで検索⇒検索OK
	W% = MfSearchData2%(CD$, GcFalse%, NUM&, RNO&)
	IF W% = GcTrue% THEN
		PRINT CD$ + "(" + STR$(RNO&) +  "):" + STR$(NUM&)
	ELSE
		PRINT CD$ + ":Not Found"
	ENDIF
	WAIT 0, &h01 'キー入力待ち
	END

最初のテストデータの書き込みで使っている関数 MfPutData2% は、下の方にソースがありますのでそちらを参照下さい。また、これによって作成された TEST2.DAT は以下の図の様になります。（デバッガ上でのシミュレーションでのファイル参照ですが）

品番コードと削除フラグの指定を合わせて検索しています。
このソースの実行結果は以下の図の様になります。

関数 MfPutData2% のソースです。

Const GcTEST2.DAT$ = "TEST2.DAT"
'---------------------------------------
'データ書込(TEST2.DAT)
'---------------------------------------
'Function MfPutData2%(Byval pstrCD$, Byval plngNum&, Byval pintDel%, Byval plngRecNo&)
'引　数：
'	pstrCD$		:コード
'	plngNum&	:数量
'	pintDel%	:削除フラグ
'	plngRecNo&	:レコードNO(0:レコード追加)
'戻り値:
'	MfPutData2%	:書込OK:GcTrue%, NG:GcFalse%
'---------------------------------------
	Function MfPutData2%(Byval pstrCD$, Byval plngNum&, Byval pintDel%, Byval plngRecNo&)
		'エラー処理宣言
		On Error Goto MfPutData2.ErrProc
		'フィールドサイズ
		Const COL.CD% = 16
		Const COL.NUM% = 12
		Const COL.DEL% = 1
		'戻り値の初期化
		MfPutData2% = GcFalse%

PRIVATE FILENO%, REC.CD$, REC.NUM$, REC.DEL$
		FILENO% = 0
		'TEST.DAT2ファイルを、ファイル番号#1としてオープンします
		FILENO% = 1
		OPEN GcTEST2.DAT$ AS FILENO% RECORD 2147483647
		FIELD #FILENO%, COL.CD% AS REC.CD$, COL.NUM% AS REC.NUM$, COL.DEL% AS REC.DEL$
		'フィールドへデータ設定
		REC.CD$  = LEFT$(pstrCD$ + GfSpc$(COL.CD%), COL.CD%)	'既定の桁数分スペースを付加
		REC.NUM$ = RIGHT$(GfSpc$(COL.NUM%) + STR$(plngNum&), COL.NUM%)	'既定の桁数分スペースを付加
		REC.DEL$ = "0"
		If pintDel% = GcTrue% Then
			REC.DEL$ = "1"
		Endif
		
		If plngRecNo& = 0 Then
			'レコードNOが０の場合,レコードの最後尾に追加
			PUT FILENO%
		Else
			'レコードNOが指定された場合,レコードの上書
			PUT FILENO%, plngRecNo&
		Endif
		'正常を返す
		MfPutData2% = GcTrue%
MfPutData2.Return	'関数戻り
		If FILENO% > 0 Then
			Close FILENO%
		Endif
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
MfPutData2.ErrProc
		Resume MfPutData2.Return
	End Function

転職を本気で考えている方向けのプログラミングスクール！【WebCampPRO】

投稿時刻 11:32 BHT-BASIC | 個別ページ | コメント (0) | トラックバック (0)

BHT-BASIC4.0:拡張関数のバイナリサーチ処理関数(BSEARCH.FN3)の使い方

マスタデータファイルを検索する場合によく使われるバイナリサーチがあります。バイナリサーチとは日本語では二分検索と言われるもので、プログラマの方ならば説明の必要もないぐらい一般的なものだと思います。

前提条件として検索対象となるコードを、昇順ソートしてファイルに登録しておきます。
バイナリサーチでは最初に先頭レコード（左側）と最終レコード（右側）の中央に位置するコードが、検索コードより大きいかまたは、小さいかを比較します。
中央のコードが大きい場合は、中央の位置を次の処理の右側とします。また、中央のコードが小さい場合は、中央の位置を次の処理の左側とします。再度、左側と右側の中央の位置を求めて、中央のコードと検索コードの比較を行います。
これを繰り返すことで領域を狭めていき最終的に目的のコードが見つかるまで行います。（結果的に見つからない場合もありますが）

これらの一連の処理を BSEARCH.FN3 は行っています。

■バイナリサーチ処理関数(BSEARCH.FN3)について

CALL "BSEARCH.FN3" .fcBSrcOp FILENO%, FIELDNO%, STRING$, RECORDNO

＜引き数＞
　　.fcBSrcOp：　オープンされているファイルのバイナリサーチ指定
　　FILENO%　：　ファイル番号
　　FIELDNO%：　フィールド番号
　　STRING$　：　検索文字列
　　FILENUM%：　検索ファイル数

＜戻り値＞
　　RECORDNO：検索結果（レコード番号）
　　・RECORDNO には、検索条件に一致するデータが見つかったレコード番号が返されます。
　　　見つからなかった場合、0 が返されます。
　　・RECORDNO は、整数型の最大値(32767)を超える場合あるので、
　　　変数に代入する場合、長整数型変数か実数型変数を推奨します

オープンされていないファイルのサーチもできるのですが、検索した結果、対象のレコードデータを取得して何かの処理を行うのが普通だと思いますので、オープン済みファイルが対象のものだけを扱います。
それではこれを使った検索の関数をテストデータファイルを例に使ったものが以下に様になります。

'---------------------------------------
'データバイナリ検索
'---------------------------------------
'Function MfBSearchData%(Byval pstrCD$, Byref plngNum&, Byref plngRecNo&)
'引　数：
'	pstrCD$		:コード文字列
'	plngNum&	:数値を返す
'	plngRecNo&	:レコードNOを返す
'戻り値:
'	MfBSearchData%	:検索OK:GcTrue%, NG:GcFalse%
'---------------------------------------
	Function MfBSearchData%(Byval pstrCD$, Byref plngNum&, Byref plngRecNo&)
		'エラー処理宣言
		On Error Goto MfBSearchData.ErrProc
'		Const COL.CD% = 10	'[MfPutData%]で定義済み
'		Const COL.NUM% = 26
		'戻り値の初期化
		MfBSearchData% = GcFalse%
		plngRecNo& = 0

PRIVATE FILENO%, FIELDNO%, STRING$, RECORDNO&, REC.CD$, REC.NUM$
		'TEST.DATファイルを、ファイル番号#1としてオープンします
		FILENO% = 1
		OPEN GcTEST.DAT$ AS FILENO% RECORD 2147483647
		FIELD #FILENO%, COL.CD% AS REC.CD$, COL.NUM% AS REC.NUM$
		'検索文字列を既定の桁数分スペースを付加
		REC.CD$  = LEFT$(pstrCD$ + GfSpc$(COL.CD%), COL.CD%)	'既定の桁数分スペースを付加
		FIELDNO% = 1
		'バイナリ検索
		CALL "BSEARCH.FN3" .fcBSrcOp FILENO%, FIELDNO%, REC.CD$, RECORDNO&
		If RECORDNO& > 0 Then
			'レコードNOが返された場合,レコードの取得
			GET FILENO%, RECORDNO&
			'数値文字列を返す
			plngNum& = VAL(REC.NUM$)
			plngRecNo& = RECORDNO&
			'正常を返す
			MfBSearchData% = GcTrue%
		Endif
MfBSearchData.Return	'関数戻り
		If FILENO% > 0 Then
			Close FILENO%
		Endif
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
MfBSearchData.ErrProc
		plngNum& = 0
		Resume MfBSearchData.Return
	End Function

■検索関数の利用

上記の検索関数の動作をテストするソースを以下に記します。

SCREEN 1				'漢字モード
	LOCATE , , 2			'カーソルをブロック表示
	'最初は書き込み処理の連続
	W% = MfPutData%("CD0001", 100, 0)
	W% = MfPutData%("CD0002", 102, 0)
	W% = MfPutData%("CD0003", 1030, 0)
	W% = MfPutData%("CD0101", 201, 0)
	W% = MfPutData%("CD0201", 202, 0)
	W% = MfPutData%("CD1001", 500, 0)
	'バイナリサーチでの検索各種
	PRIVATE CD$, RNO&, NUM&
	CD$ = "CD0101"
	W% = MfBSearchData%(CD$, NUM&, RNO&)
	IF W% = GcTrue% THEN
		PRINT CD$ + "(" + STR$(RNO&) +  "):" + STR$(NUM&)
	ELSE
		PRINT CD$ + ":Not Found"
	ENDIF
	CD$ = "CD0003"
	W% = MfBSearchData%(CD$, NUM&, RNO&)
	IF W% = GcTrue% THEN
		PRINT CD$ + "(" + STR$(RNO&) +  "):" + STR$(NUM&)
	ELSE
		PRINT CD$ + ":Not Found"
	ENDIF
	CD$ = "CD0002" 
	W% = MfBSearchData%(CD$, NUM&, RNO&)
	IF W% = GcTrue% THEN
		PRINT CD$ + "(" + STR$(RNO&) +  "):" + STR$(NUM&)
	ELSE
		PRINT CD$ + ":Not Found"
	ENDIF
	'コードを発見できない検索
	CD$ = "CD0005" 
	W% = MfBSearchData%(CD$, NUM&, RNO&)
	IF W% = GcTrue% THEN
		PRINT CD$ + "(" + STR$(RNO&) +  "):" + STR$(NUM&)
	ELSE
		PRINT CD$ + ":Not Found"
	ENDIF
	WAIT 0, &h01 'キー入力待ち
	END

最初のテストデータの書き込みは、コードが重複せずに昇順に行っています。このファイルはマスタデータとして考えていますので、コードの重複はあり得ません。

尚、ユーザ関数 MfPutData% は以下の記事にありますので、参照して下さい。
BHT-BASIC4.0:データファイルの取り扱いについてその２（書込み・読込みの実用的な関数）

バイナリサーチの3番目まではレコードの内容を読めていますが、 4番目のコード"CD0005"はテストデータ書込みで行っていないのでレコードは検索できません。
このソースの実行結果は以下の図の様になります。

【DENSO】ハンディターミナルBHT-1306BWB＋USB通信ユニットCU-1321＋ACアダプタAD2＋標準バッテリBT-130L-C【送料無料・代引手数料無料】【02P05Nov16】

価格： 208,980円
（2016/11/26 22:01時点）

投稿時刻 14:25 BHT-BASIC | 個別ページ | コメント (0) | トラックバック (0)

BHT-BASIC4.0:ファイルの存在確認関数を作ってみました

前回使用した拡張関数 ファイル情報提供関数(FILE.FN3) を利用して、データファイルの存在確認を行う関数を作ってみます。

尚、この拡張関数の1番目の機能である .fcInfGetF(指定されたファイルの情報の獲得) を使いますが、これの説明は以下の記事にありますので、参照して下さい。

データファイルの削除等について（KILL、CLFILEのラッパ関数）

この拡張関数を使用した、ファイル存在確認関数は以下の様になります。

ファイル情報の結果が返される文字列変数（INF$）の内容がNULLであれば、ファイルが存在しないことを示しています。

【DENSO】ハンディターミナルBHT-1306BWB＋USB通信ユニットCU-1321＋ACアダプタAD2＋標準バッテリBT-130L-C【送料無料・代引手数料無料】【02P05Nov16】

価格： 208,980円
（2016/11/26 22:01時点）

投稿時刻 11:02 BHT-BASIC | 個別ページ | コメント (0) | トラックバック (0)

BHT-BASIC4.0:データファイルの削除等について（KILL、CLFILEのラッパ関数）

データファイルのファイル削除やレコード削除を行う場合、その都度 KILL命令 や CLFILE命令 を実行するよりもラッパ関数を作って、それをコールする方がソース的にすっきりすると思います。

■KILL命令のラッパ関数について

KILL命令の定義は以下の様です。

KILL <ファイル名>

　<ファイル名>："[ドライブ名:]ファイル名[<S>]"の書式の文字列式
　　　　　（"ファイル名"は"ファイル名称"＋"."＋"拡張子"）

KILL命令のラッパ関数は以下の様になります。
エラー処理は何もしていませんが、ここでエラー内容などを表示するといいと思います。

■CLFILE命令のラッパ関数について

データファイルに書き込む関数を以下の様に定義します。
CLFILE命令の定義は以下の様です。

CLFILE ［#］<ファイル番号>

　<ファイル番号>：1～16の値を返す数値式
　　　　　　（OPEN命令で指定したファイル番号を指定）

CLFILE命令のラッパ関数は以下の様になります。

この関数は、"TEST.DAT"ファイルのレコード削除しかできない関数をラップしたものです。
FIELD命令はフィールド変数を固定でしか宣言できないのでこの様な感じになりました。この部分を汎用性を持たせるのは少し大変なので、固定でもいいかなと思います。方法が無いことは無いのですが、やはりFIELD命令がネックになります。

以下の関数は無理やり汎用性を持たせたCLFILE命令のラッパ関数です。

'---------------------------------------
'ファイルレコード削除(CLFILE命令のラップ)
'---------------------------------------
'Function GfClFile2%(Byval pstrFileName$)
'引　数：
'	pstrFileName$ ：ファイル名
'---------------------------------------
	Function GfClFile2%(Byval pstrFile$)
		'エラー処理宣言
		On Error Goto GfClFile2.ErrProc
		'戻り値の初期化
		GfClFile2% = GcFalse%
		'ファイル情報提供関数(FILE.FN3)の利用
		PRIVATE INF$, FieldNum%, I%, FSZ%(16)
		'40 文字分の領域を確保
		INF$ = "                                        "
		CALL "FILE.FN3" .fcInfGetF pstrFile$,INF$
		FieldNum% = ASC(MID$(INF$, 22, 1)) ' フィールド数の獲得
		FOR I% = 1 TO 16	'各フィールド幅の取得
			FSZ%(I%) = ASC(MID$(INF$, 22 + I%, 1))
		NEXT
		
		PRIVATE FILENO%, W$
		'指定ファイルを、ファイル番号#1としてオープンします
		FILENO% = 1
		OPEN pstrFile$ AS FILENO% RECORD 2147483647
		'フィールド定義をフィールド数毎に分けて処理
		SELECT FieldNum%
			CASE 1
				FIELD #FILENO%, FSZ%(1) AS W$
			CASE 2
				FIELD #FILENO%, FSZ%(1) AS W$, FSZ%(2) AS W$
			CASE 3
				FIELD #FILENO%, FSZ%(1) AS W$, FSZ%(2) AS W$, FSZ%(3) AS W$
			CASE 4
				FIELD #FILENO%, FSZ%(1) AS W$, FSZ%(2) AS W$, FSZ%(3) AS W$, FSZ%(4) AS W$
			CASE 5
				FIELD #FILENO%, FSZ%(1) AS W$, FSZ%(2) AS W$, FSZ%(3) AS W$, FSZ%(4) AS W$, FSZ%(5) AS W$
			CASE 6
				FIELD #FILENO%, FSZ%(1) AS W$, FSZ%(2) AS W$, FSZ%(3) AS W$, FSZ%(4) AS W$, FSZ%(5) AS W$, FSZ%(6) AS W$
			'....(この後必要な分作成???)
		END SELECT
		'レコード削除
		CLFILE #FILENO%
		GfClFile2% = GcTrue%
GfClFile2.Return	'関数戻り
		If FILENO% > 0 Then
			Close FILENO%
		Endif
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
GfClFile2.ErrProc
		Resume GfClFile2.Return
	End Function

ファイルのフィールド数、各フィールド幅の取得を行う為に、拡張関数の "FILE.FN3" を使用しています。

CALL "FILE.FN3" .fcInfGetF FILENAME$, INF$

　FILENAME$：ファイル名

　INF$：ファイル情報が返される（40 文字、または、ヌル文字）
　　　　（必ず40 バイト以上の領域を確保しておく）

INF$の内容は以下の通りです。

位置	文字数	データ内容	値
1	12	ファイル名	文字列
13	2	(システムリザーブ)	-
15	2	最大レコード数	1～32767
17	2	レコード数	1～32767
19	2	1クラスタあたりのレコード数	0
21	1	レコード長	1～255
22	1	フィールド数	1～16
23	16	各フィールドのフィールド幅	1～254
39	2	(システムリザーブ)	-

【DENSO】ハンディターミナルBHT-1306BWB＋USB通信ユニットCU-1321＋ACアダプタAD2＋標準バッテリBT-130L-C【送料無料・代引手数料無料】【02P05Nov16】

価格： 208,980円
（2016/11/26 22:01時点）

投稿時刻 17:13 BHT-BASIC | 個別ページ | コメント (0) | トラックバック (0)

BHT-BASIC4.0:ユーザ関数の引数の仮変数に対する代入の注意点

ユーザ関数の引数の仮変数を普通の変数の様に使用することができます。但し、文字列型変数の場合文字列長に関して注意する点があります。

今回は仮のユーザ関数として以下の様なものを宣言します。

この関数は仮変数である pstrCD$ に3文字～5文字までのテストデータを代入し単にその内容を表示しています。
尚、エラー処理では発生したエラーコードを表示させています。

上記の関数の動作をテストするソースを以下に記します。

関数 MsTest の中でブレークポイントを設定し pstrCD$ の内容を表示させてみます。以下の図は MsTest に制御が移った直後の pstrCD$ ですが文字列のサイズが4文字になっています。

呼出し元の変数 W$ はサイズが40文字のはずですが、引き数としては4文字になっています。

さらにステップ実行すると以下の図になります。 pstrCD$ に"123"が設定されている様子です。
そのまま実行を継続すると、以下の図の表示なります。

5文字の設定のところでエラーが発生し、エラーコードが 0F(16進数) と表示されます。このエラー内容は 「文字列長が範囲外です。」 です。
※結果的に、ユーザ関数の引数の文字列型仮変数に代入する場合は文字列長に注意が必要だということになります。

【DENSO】ハンディターミナルBHT-1306BWB＋USB通信ユニットCU-1321＋ACアダプタAD2＋標準バッテリBT-130L-C【送料無料・代引手数料無料】【02P05Nov16】

価格： 208,980円
（2016/11/26 22:01時点）

投稿時刻 14:51 BHT-BASIC | 個別ページ | コメント (0) | トラックバック (0)

BHT-BASIC4.0:データファイルの検索について（SEARCH関数）

データファイルの読み込みで、最初に既に入力されているコードを検索し、そのコードに対応したレコード番号で行う場合があります。データのメンテナンス処理ではこの方法が普通かと思います。

今回は標準関数の SEARCH関数 を使ってみます。

■SEARCH関数について

SEARCH関数の定義は以下の様です。

SEARCH(［#］<ファイル番号>,<フィールド変数>,<検索データ>［,<開始レコード>］)

　<ファイル番号>：1～16の値を返す数値式
　　　　　　（OPEN命令で指定したファイル番号を指定）
　<フィールド変数>：文字型単純変数
　　　　　　（FIELD命令の前に宣言されている変数を指定）
　<検索データ>：文字列式

　<開始レコード>：数値式
　　　　　　（検索を開始するレコードの番号を指定、省略時は先頭から）

　返す値：検索できたレコード番号、見つからない場合は０が返る
　　　　　　（返す値は長整数型変数か実数型変数で代入）

データファイルからコードを指定し検索する関数を以下の様に定義します。

'---------------------------------------
'データ検索
'---------------------------------------
'Function MfSearchData%(Byval pstrCD$, Byref plngNum&, Byref plngRecNo&)
'引　数：
'	pstrCD$		:コード
'	pdblVal$	:数量
'	plngRecNo&	:レコードNO
'戻り値:
'	MfSearchData%	:読込OK:GcTrue%, NG:GcFalse%
'---------------------------------------
	Function MfSearchData%(Byval pstrCD$, Byref plngNum&, Byref plngRecNo&)
		'エラー処理宣言
		On Error Goto MfSearchData.ErrProc
		'フィールドサイズ
'		Const COL.CD% = 10	'上の関数[MfPutData%]で定義済み
'		Const COL.NUM% = 26
		'戻り値の初期化
		MfSearchData% = GcFalse%

PRIVATE FILENO%, REC.CD$, REC.NUM$
		'TEST.DATファイルを、ファイル番号#1としてオープンします
		FILENO% = 1
		OPEN GcTEST.DAT$ AS FILENO% RECORD 2147483647
		FIELD #FILENO%, COL.CD% AS REC.CD$, COL.NUM% AS REC.NUM$
		
		PRIVATE W$
		W$ = LEFT$(pstrCD$ + GfSpc$(COL.CD%), COL.CD%)	'既定の桁数分スペースを付加
		IF plngRecNo& <= 0 THEN
			'先頭から検索
			plngRecNo& = SEARCH(#FILENO%, REC.CD$, W$)
		ELSE
			'指定レコード位置から検索
			plngRecNo& = SEARCH(#FILENO%, REC.CD$, W$, plngRecNo&)
		ENDIF
		IF plngRecNo& <> 0 THEN
			'読込
			GET FILENO%, plngRecNo&
			'値を返す
			plngNum& = VAL(GfTrim$(REC.NUM$))	'数量
			'正常を返す
			MfSearchData% = GcTrue%
		ENDIF
MfSearchData.Return	'関数戻り
		If FILENO% > 0 Then
			Close FILENO%
		Endif
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
MfSearchData.ErrProc
		Resume MfSearchData.Return
	End Function

SEARCH関数 に指定する検索データは、関数[MfPutData%]でコードの後ろにスペースを付加したので、その処理を行っています。
この時、ワーク変数の W$ を宣言していますが、引き数の変数 pstrCD$ は、コール元で代入された文字列長分しかサイズが無いので、それ以上の長さの文字列を代入できないためです。

レコード番号の指定が０の場合は、ファイルの先頭からの検索を行います。

GcTEST.DAT$ 等の定数定義等に付いては以下の記事を参照して下さい。
BHT-BASIC4.0:データファイルの取り扱いについてその２（書込み・読込みの実用的な関数）

■検索関数の利用

上記の検索関数の動作をテストするソースを以下に記します。

2番目の検索から分かるように、コードは順番に並んでいなくても検索できています。つまり SEARCH関数 は、指定されたレコード位置からベタに検索し、指定された検索データが等しいものが見つかった時点で、検索を止めるようです。

SEARCH関数 は特にバイナリサーチで行うわけではないので、データ件数が多くて最後の方に目的のものが在る場合、時間が掛かるはずです。

ハンディターミナルで入力されたデータを検索する場合は、そこまで入力件数が多いわけではないと思うので、この SEARCH関数 でも問題無いのでしょう。
このソースの実行結果は以下の図の様になります。

※尚、バイナリサーチに関しては、拡張関数の中にバイナリサーチ処理関数(BSEARCH.FN3)があり、これを使えば可能です。この関数の使い方については別の記事で紹介します。

転職を本気で考えている方向けのプログラミングスクール！【WebCampPRO】

投稿時刻 13:38 BHT-BASIC | 個別ページ | コメント (0) | トラックバック (0)

BHT-BASIC4.0:データファイルの取り扱いについてその２（書込み・読込みの実用的な関数）

データファイルの書き込み、読み込みの処理を行う場合、その処理を行うそれぞれの場所で PUT命令 、 GET命令 を行うのも冗長なので、通常は関数化してそれをコールします。

今回テストデータファイルとして以下の2個のフィールドを持つファイルを想定します。

・第1フィールド：コードデータ（16バイト）
・第2フィールド：数量データ（12バイト）

FIELD命令 は以下の様になります。
フィールドサイズをわざわざCONST命令で定義していますが、この後でこれを有効に使います。フィールドサイズをどこかで定義しておけば、リテラルで FIELD命令 に記述するよりはソースがわかりやすと思います。

■書き込み関数について

データファイルに書き込む関数を以下の様に定義します。

Const GcTEST.DAT$ = "TEST.DAT"
'---------------------------------------
'データ書込
'---------------------------------------
'Function MfPutData%(Byval pstrCD$, Byval plngNum&, Byval plngRecNo&)
'引　数：
'	pstrCD$		:コード
'	pdblVal$	:数量
'	plngRecNo&	:レコードNO(0:レコード追加)
'戻り値:
'	MfPutData%	:書込OK:GcTrue%, NG:GcFalse%
'---------------------------------------
	Function MfPutData%(Byval pstrCD$, Byval plngNum&, Byval plngRecNo&)
		'エラー処理宣言
		On Error Goto MfPutData.ErrProc
		'フィールドサイズ
		Const COL.CD% = 16
		Const COL.NUM% = 12
		'戻り値の初期化
		MfPutData% = GcFalse%
		PRIVATE FILENO%, REC.CD$, REC.NUM$
		FILENO% = 0
		'TEST.DATファイルを、ファイル番号#1としてオープンします
		FILENO% = 1
		OPEN GcTEST.DAT$ AS FILENO% RECORD 2147483647
		FIELD #FILENO%, COL.CD% AS REC.CD$, COL.NUM% AS REC.NUM$
		'フィールドへデータ設定
		REC.CD$  = LEFT$(pstrCD$ + GfSpc$(COL.CD%), COL.CD%)	'既定の桁数分スペースを付加
		REC.NUM$ = RIGHT$(GfSpc$(COL.NUM%) + STR$(plngNum&), COL.NUM%)	'既定の桁数分スペースを付加

If plngRecNo& = 0 Then
			'レコードNOが０の場合,レコードの最後尾に追加
			PUT FILENO%
		Else
			'レコードNOが指定された場合,レコードの上書
			PUT FILENO%, plngRecNo&
		Endif
		'正常を返す
		MfPutData% = GcTrue%
MfPutData.Return	'関数戻り
		If FILENO% > 0 Then
			Close FILENO%
		Endif
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
MfPutData.ErrProc
		Resume MfPutData.Return
	End Function

フィールド変数に値を設定するところで、コードデータは右側に空白を付加してサイズ分のみ設定しています。また、数値は文字列化後、左側にに空白を付加してサイズ分のみ設定しています。

レコード番号の指定が０の場合は、ファイルの最後尾に追加書込みし、番号が呈されている場合はその番号で上書きします。

■読み込み関数について

データファイルに書き込む関数を以下の様に定義します。

'---------------------------------------
'データ読込
'---------------------------------------
'Function MfGetData%(Byref pstrCD$, Byref plngNum&, Byval plngRecNo&)
'引　数：
'	pstrCD$		:コード
'	pdblVal$	:数量
'	plngRecNo&	:レコードNO
'戻り値:
'	MfGetData%	:読込OK:GcTrue%, NG:GcFalse%
'---------------------------------------
	Function MfGetData%(Byref pstrCD$, Byref plngNum&, Byval plngRecNo&)
		'エラー処理宣言
		On Error Goto MfGetData.ErrProc
		'フィールドサイズ
'		Const COL.CD% = 10	'上の関数[MfPutData%]で定義済み
'		Const COL.NUM% = 26
		'戻り値の初期化
		MfGetData% = GcFalse%

PRIVATE FILENO%, REC.CD$, REC.NUM$
		FILENO% = 0
		'TEST.DATファイルを、ファイル番号#1としてオープンします
		FILENO% = 1
		OPEN GcTEST.DAT$ AS FILENO% RECORD 2147483647
		FIELD #FILENO%, COL.CD% AS REC.CD$, COL.NUM% AS REC.NUM$
		IF plngRecNo& <= LOF(#FILENO%) THEN
			'レコード数MAXを超えてはいない
			'読込
			GET FILENO%, plngRecNo&
			
			'値を返す
			pstrCD$ = GfTrim$(REC.CD$)	'コード
			plngNum& = VAL(GfTrim$(REC.NUM$))	'数量

'正常を返す
			MfGetData% = GcTrue%
		ENDIF
MfGetData.Return	'関数戻り
		If FILENO% > 0 Then
			Close FILENO%
		Endif
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
MfGetData.ErrProc
		Resume MfGetData.Return
	End Function

フィールド変数から値を返す変数に設定するところで、 GfTrim$ ユーザ関数で前後の空白を省いています。
レコード書込関数も読込関数もエラー処理では何もしていませんが、エラー内容等を表示することも必要ではと思いますので、実際のシステムで利用される方はご自身で追加してみて下さい。

尚、これらの関数を利用してテストしてみます。以下のソースにテスト処理を記述します。

このソースの実行結果は以下の図の様になります。

MfGetData%関数のコールをレコード番号を１から順次カウントアップして与えています。実際のレコードが無くなった時点で戻り値としてGcFalse%が返ってくるので、その時にWHILEループが終わります。

■実際のファイルについて

実際にTEST.DAT をMTP接続か何かでパソコンにアップロードし内部を見てみると、１レコードの区切りとしてCR,LFコードが付加されています。これはいわゆるテキストファイルの改行コードそのものです）
よって、ファイルのサイズはレコード数×２バイト分増えることになります。

転職を本気で考えている方向けのプログラミングスクール！【WebCampPRO】

投稿時刻 15:37 BHT-BASIC | 個別ページ | コメント (0) | トラックバック (0)

BHT-BASIC4.0:データファイルの取り扱いについて（BHT-1300）

ハンディスキャナのプログラムとして当然データを入力するわけですが、何処に格納するかと言えば、やはりファイルとしてハンディスキャナの内部に書き込むことになります。

最近私が作成したシステムでは、パソコンとのデータは全てデータファイル（テキストファイル）でやり取りを行うことにしました。出庫処理などでは、作成された指示データをパソコンからダウンロードし、そのデータに従って出庫の作業を行います。また、入庫処理では検品チェックを行い、ハンディに入庫処理データを登録します。入庫処理では作業が終わった時点で、パソコンにアップロードし後処理をパソコン側で行う様にしました。

パソコンとハンディターミナルを切り離して作業ができるので既存のシステムにハンディターミナルのシステムを付加する場合には有効だと思います。

ハンディターミナルにはLAN接続できるものもありますので、直接データベースにアクセスして処理を行うこともできますが、今回は見送りました。

ファイルの操作は昔のBASICと同じように OPEN命令 でファイル番号を指定してオープン処理を行います。データの読み書きは GET/PUT命令 で必ずレコード単位で行います。処理後は CLOSE命令 でファイルをクローズします。

ファイルの格納先は内部Flashメモリと外部のmicroSD カードがあります。それぞれの制約は以下の通りです。

仕様項目	内部メモリ(Flash)	外部メモリ(microSD カード)
最大ファイル数	420個	FAT32準拠
フォルダ作成	不可	可能
ファイル名の使用可能文字	英数字のみ英字は,大文字/小文字の区別無	英数字,文字,スペース,ピリオドと 22種類の特殊文字
ファイル名の長さ制限	ファイル名：1～8文字拡張子：1～3文字 (ファイル名と拡張子をピリオドで繋ぐ但し、拡張子が無い場合はピリオドは要らない)	255文字（ドライブ名およびフォルダ名を含めた場合は、259文字）
ドライブ名	Aドライブ Bドライブ	Dドライブ

データファイルのレコード、フィールドの制約は以下の通りです。

項目	制約内容
最大レコード件数	2,147,483,647(2G)※BHT搭載メモリサイズに依存
最大レコード長(バイト)	65,535
フィールド変数サイズ(文字)	8192
フィールド個数(個)	254

■レコードについて

レコードとはデータファイルを読み書きする時の基本単位で、データ1件分のことです。レコードは FIELD命令 でフォーマットを定義します。１レコードの最大長は、各フィールドのサイズの合計です。

■フィールド定義について

FIELD命令 の定義は以下の様になっています。

FIELD ［#］<ファイル番号>,<フィールド幅> AS <フィールド変数>
［,<フィールド幅> AS <フィールド変数>・・・］

　<ファイル番号>：1～16の値を返す数値式
　　　　　　（OPEN命令で指定したファイル番号を指定）

　<フィールド幅>：1～8192 の値を返す数値式を指定
　　　　　　（対応するフィールド変数の大きさ（バイト数）を指定）

　<フィールド変数>：文字型単純変数
　　　　　　（FIELD命令の前に宣言されている変数を指定）

■OPEN命令について

説明が前後しますが OPEN命令 の定義は以下の様になっています。

OPEN <ファイル名> AS［#］<ファイル番号>［RECORD <ファイル長>］

　<ファイル名>："[ドライブ名:]ファイル名[<S>]"の書式の文字列式
　　　　　（"ファイル名"は"ファイル名称"＋"."＋"拡張子"）
　　　　　（<S>はフィールド末尾のスペース除去オプション
　　　　　　ドライブ名に"D:\"指定のみ）

　<ファイル番号>：1～16の値を返す数値式

　<ファイル長>：1～2147483647の数値型定数
　　　　　（ファイルに登録できる最大レコード数を指定：未指定は1000個）

・同時にオープンできるのはバーコード、通信デバイスと合わせて16個までです。
・ファイル長は新規にファイルをオープンする時にしか機能せず、既存のファイルをオープンする時には無視されます。

■CLOSE命令について

CLOSE命令 の定義は以下の様になっています。

CLOSE［［#］<ファイル番号>［,［#］<ファイル番号>．．．］］

　<ファイル番号>：1～16の値を返す数値式

・ファイル番号を省略するとオープン済みのファイルが全てクローズされます。
・クローズすればファイル番号は再利用可能です。
・オープンされていないファイル番号を指定しても、エラーは発生しません。

■PUT命令について

OPEN命令 、CLOSE命令 はファイル操作の最初と最後の処理で、実際にデータを書き込む命令としての PUT命令 があります。

PUT ［#］<ファイル番号>［,<レコード番号>］

　<ファイル番号>：1～16の値を返す数値式
　　　　　　（OPEN命令で指定したファイル番号を指定）

　<レコード番号>：1～2147483647の値を返す数値式
　　　　　　（最小値:1、最大値:OPEN命令で指定した最大登録レコード数）

・レコードへの書込みは FIELD命令 で定義された、フィールド変数を介して行われます。（PUTする前にフィールド変数へ値を設定します）
・レコード番号を省略すると、現在の最大レコード番号＋１の位置にレコードが書き込まれます。
・レコード番号は順番通りに指定しなくても書込みはOKで、飛ばしたレコード番号の位置のレコードには空白が設定されます。
・レコードはテキストデータ（ASCII文字列）しか扱えないので、数値データは STR$関数 で文字列に変換してからフィールド変数に設定します。

■GET命令について

GET命令 の定義は以下の様になっています。

GET ［#］<ファイル番号>［,<レコード番号>］

　<ファイル番号>：1～16の値を返す数値式
　　　　　　（OPEN命令で指定したファイル番号を指定）

　<レコード番号>：1～2147483647の値を返す数値式
　　　　　　（最小値:1、最大値:OPEN命令で指定した最大登録レコード数）

・ファイル番号で指定されたデータファイルから、レコード番号で指定されたレコードを読み込み、フィールド変数にデータを設定します。
・レコードが1件もないと実行時エラーが発生します。
・レコード番号を省略したときは、1つ前のGET命令で読んだレコード番号＋１の番号のレコードが読まれます。
　（最終レコードの次をGETすると実行時エラーが発生します。）
・レコード番号が最大レコード数より大きいと実行時エラーが発生します。

■各命令の順番について

データファイルを扱う命令は基本的に以下の様な順番で行います。

(1)フィールド変数の宣言
(2) OPEN命令
(3) FIELD命令
(4) PUT命令
(5) GET命令
(6) CLOSE命令

実際はこの順番でなくても良くて、PUT命令しかなかったり、GET命令だけの処理かもしれません。

以下の簡単なソースで例を示します。

このソースの実行結果は以下の図の様になります。

フィールド変数REC2$には文字列を多目に設定していますが、あふれた分は無視されていることが分かります。
また、REC3$には文字列を少な目に設定しましたが、 GETした結果は同じ文字列が返ってきました。データファイルの中身には足りない分には空白が入っているようですが、実際に読みだすと削除されてくるようです。
もし空白も読み出したいのであれば、 REC3$の設定で後ろの方に空白文字列を付加する必要があります。

【DENSO】ハンディターミナルBHT-1306BWB＋USB通信ユニットCU-1321＋ACアダプタAD2＋標準バッテリBT-130L-C【送料無料・代引手数料無料】【02P05Nov16】

価格： 208,980円
（2016/11/26 22:01時点）

投稿時刻 18:42 BHT-BASIC | 個別ページ | コメント (0) | トラックバック (0)

BHT-BASIC4.0:I/OポートとWAIT、さらにTIMERについて（BHT-1300）

今までは何となく OUT命令 や WAIT命令 を使ってきましたが、ここで関連するI/Oポートの説明を行いたいと思います。 I/Oポートとは入力・出力ポートの略称で、ハンディのCPUから見て外部装置に該当するキーボード、 LEDランプ、ブザーなどを制御するためのポート（外部メモリの様なもの）です。 I/Oポートは制御対象毎に別々のアドレスが割り当てられていて、それへの入力命令が INP関数 で、出力命令が OUTステートメント です。また、I/Oポートの状態が指定状態になるまでプログラムを止めておく WAITステートメント があります。

以下に私がプログラムで使用したポートについて一覧を記します。ここに上げた以外のポートは各装置のマニアルを参照して下さい。

ポートNO (HEX)	bit	制御対象	R/W	データ			初期値
`.pnEvent (0000)`	0	キーボードバッファ	`R`	-	0	データ無	-
	0	キーボードバッファ		.pvEvKeyOn	1	データ有	-
	1	バーコードバッファ		-	0	データ無	-
	1	バーコードバッファ		.pvEvBarOn	1	データ有	-
	2	トリガスイッチ		-	0	OFF	-
	2	トリガスイッチ		.pvEvTrgOn	1	ON	-
	3	受信バッファ		-	0	データ無	-
	3	受信バッファ		.pvEvtCmOn	1	データ有	-
	4	TIMEA関数		-	0	関数の値が0以外	-
	4	TIMEA関数		.pvEvTma0	1	関数の値が0	-
	5	TIMEB関数		-	0	関数の値が0以外	-
	5	TIMEB関数		.pvEvTmb0	1	関数の値が0	-
	6	TIMEC関数		-	0	関数の値が0以外	-
	6	TIMEC関数		.pvEvTmc0	1	関数の値が0	-
	7	CS(CTS)信号		-	0	常に0を返す	-
	7	CS(CTS)信号		.pvEvCsOn	1	-	-
`.pnLEDCtrl (0001)`	0	表示LED(赤)	`W`	-	0	消灯	0
	0	表示LED(赤)		.pvLEDRed	1	点灯	0
	1	表示LED(緑)		-	0	消灯	0
	1	表示LED(緑)		.pvLEDGrn	1	点灯	0
	2	表示LED(青)		-	0	消灯	0
	2	表示LED(青)		.pvLEDBle	1	点灯	0
`.pnFont (6080)`	0	表示フォント	`R/W`	.pvFtStd	0	標準フォント	0
				.pvFtSmall	1	小フォント
				サイズ指定(16,24,30,40)
`.pnKeyEnt (60B0)`	0	キー入力方式	`R/W`	.pvKyNm	0	数字入力	0
`.pnKeyEnt (60B0)`	0	キー入力方式	`R/W`	.pvKyAlpNm	1	英数字入力	0
`.pnKeyMd (60B1)`	0	キー入力状態	`R/W`	.pvKMNm	0	数字	0
`.pnKeyMd (60B1)`	0	キー入力状態	`R/W`	.pvKMAlp	1	英字	0

例として先ずは、WAIT命令について説明します。

WAIT <ポート番号> , <AND パターン>［,XOR パターン］

　<ポート番号>：入力ポート番号を指定
　<AND パターン>：チェックしたいビットを1 にして、AND パターンに設定

ポート番号で指定された入力ポートの内容を読込し、 AND パターンとXOR パターンで指定された値になるまで、ユーザプログラムをこの命令で待つ様にします。

指定されたパターンになるまで命令が終わらないので、指定値が間違っていると、命令から帰って来なくなり、プログラムが止まってしまいますので、注意して下さい。
以下のソースがWAIT命令の使用例の関数なのですが、ポート(0000)の0ビット目が1になるまで待っています。 WAIT命令を抜けてきた時点で、キーボードバッファにキー入力が在ることになるのでキーデータを1文字取得しています。

次は、INP関数について説明します。

INP(<ポート番号>)

　<ポート番号>：入力ポート番号を指定

INP関数が返す値は整数型になります。 I/Oポートのデータは1バイトなので、整数型では最大でも255となります。
WAIT命令のところの関数の例をINP関数で置き換えると以下の様になります。
（ちょっと冗長すぎますね）

次は、OUT命令について説明します。

OUT <ポート番号>,<データ>
　<ポート番号>：入力ポート番号を指定　<データ>　　：ポートに出力するバイトデータ(0～255)

I/Oポートに割り振られていないポート番号を指定すると無視されます。また、使用されているポート番号でも意味の無いBIT位置にデータを設定しても無視されます。

最後にTIMER命令について説明します。

書式１：（タイマ値を参照するとき）
  W% = TIMEA
  W% = TIMEB
  W% = TIMEC
  (W%は宣言済みとする)

書式２：（タイマ値を設定するとき）
  TIMEA = <カウント値>
  TIMEB = <カウント値>
  TIMEC = <カウント値>

  <カウント値>：指定可能範囲は0～32767、単位は100ms

タイマは値を設定されてからカウントダウンが始まり、カウント値が０になった時点で動きを止めます。例えばある時間の待ちを作る場合に、カウンタに値を設定し、カウンタを読込をループで行いその値が０になるのを待ちます。
ソースの例としては以下の様な感じです。

この方法ですが、以下の様にしても同じことができます。

尚、.pnEventなどのシステム定義定数は「BHT-BASIC定義ファイル(BHTDEF.INC)」をプログラム先頭でインクルードする必要があります。（このファイルですがDENSOの会員登録と装置の製品番号登録が必要なはずです。 DENSOのホームページからダウンロードして下さい）

転職を本気で考えている方向けのプログラミングスクール！【WebCampPRO】

投稿時刻 16:02 BHT-BASIC | 個別ページ | コメント (0) | トラックバック (0)

おやじプログラマー日記

コンピュータ業界に身をおいて３０年あまり…VB.NET・OracleなどのTIPS、おやじの独り言

おすすめ本

最近の記事

最近のトラックバック

Ranking

最近のコメント

アーカイブ

AccRanking

Ad

カテゴリ「BHT-BASIC」の32件の記事

2016年4月23日 (土)

BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその３

BHT-BASIC4.0:拡張関数のサーチ処理関数(SEARCH.FN3)の使い方

2016年4月18日 (月)

BHT-BASIC4.0:拡張関数のバイナリサーチ処理関数(BSEARCH.FN3)の使い方

BHT-BASIC4.0:ファイルの存在確認関数を作ってみました

2016年4月16日 (土)

BHT-BASIC4.0:データファイルの削除等について（KILL、CLFILEのラッパ関数）

2016年4月15日 (金)

BHT-BASIC4.0:ユーザ関数の引数の仮変数に対する代入の注意点

BHT-BASIC4.0:データファイルの検索について（SEARCH関数）

2016年4月14日 (木)

BHT-BASIC4.0:データファイルの取り扱いについてその２（書込み・読込みの実用的な関数）

2016年4月13日 (水)

BHT-BASIC4.0:データファイルの取り扱いについて（BHT-1300）

2016年4月12日 (火)

BHT-BASIC4.0:I/OポートとWAIT、さらにTIMERについて（BHT-1300）

検索

admax

カテゴリ

リンク

LSF

LPOP