おやじプログラマー日記: BHT-BASIC4.0:[BS／C]キー入力ではまった件について

BHT-BASICのシステムで処理の実行を行うかどうかを、 [BS／C][ENT]キーで処理を行っているのですが、もちろん[BS／C]キーは処理中断で、[ENT]キーは処理続行としています。

処理を中断しようとして[BS／C]キーを押すのですが、中断できない場合があるとの現象が発生しました。

ソース的には以下の様な組み方で、[BS／C][ENT]キーのどちらかのキーのみの反応行う様にしています。

'---------------------------------------
'定数宣言:共通⇒(これは別ファイルにすべき)
'---------------------------------------
	Global GcTrue% : GcTrue% = -1
	Global GcFalse% : GcFalse% = 0
	Global GcKeyENT$ : GcKeyENT$ = Chr$(&H0d)
	Global GcKeyBS$ : GcKeyBS$ = Chr$(&H08)
	Global GcKeyC$ : GcKeyC$ = Chr$(&H18)
'---------------------------------------
'処理の続行のYES/NO入力関数
'---------------------------------------
'Function GsKeyTest%
'戻り値:
'	GsKeyTest%	:続行OK(GcTrue%),NG(GcFalse%)
'---------------------------------------
    Function GsKeyTest%
		GsKeyTest% = GcFalse%
		'エラー処理宣言
		On Error Goto GsKeyTest.ErrProc

Private intLoop%, intRet%, strBuff$
		Print "GsKeyTestの実行"
		Print "[ENT]開始 [BS／C]中止"
    	intLoop% = GcTrue%
    	While intLoop% = GcTrue%
    		'--- キー取得
			Wait 0, &h01 'キー入力待ち
			strBuff$ = Input$(1) '入力されたキーを取得して戻す。
			intRet% = ASC(strBuff$)
    		Select strBuff$
    			Case GcKeyENT$ '開始
					Print "処理中…"
					GsKeyTest% = GcTrue%
					intLoop% = GcFalse%

Case GcKeyBS$ '中止
					Print "...中止"
					intLoop% = GcFalse%
    		End Select
    	WEnd
GsKeyTest.Return	'関数戻り
		On Error Goto 0
		Exit Function
'エラー処理
GsKeyTest.ErrProc
		Resume GsKeyTest.Return
	End Function

'-----
'実行はここから処理
'-----
Main
	SCREEN 1				'漢字モード
	LOCATE , , 2			'カーソルをブロック表示

DIM nRet%
	nRet% = GsKeyTest%
	If nRet% = GcTrue% Then
		Call GsPrintFull("処理戻り")
	Else
		Call GsPrintFull("中断戻り")
	Endif
	WAIT 0, &H1
	END

DENSOさんのサンプルプログラムを見ても、処理の中断の判定は「バックスペース(&H08)」のみで処理しているので、深く考えずに「BS」のみで中断処理をしていました。

しかし、たまに「BS」が利かない場合があるとのことで、バグの連絡を受けたので、少し調べてみました。なんと、「BHT1300_Programmers_Manual_J1.pdf」にはちゃんと説明がされていました。「付録Ｅキーボードとキー番号」のページからの引用ですが、以下の通りです。

==========================
[BS／C] *1 *2

*1 BSはバックスペース(08h）、CRはキャリッジリターン(0Dh）、Cはキャンセル(18h）、SPはスペース(20h)コードを表します。

*2 一定時間(デフォルト500ms)以上長押しでキャンセル(18h)コードを返します。
==========================
[BS／C]キーの長押しだとキャンセル(18h)コードが返ってくるのでした。

そこで、中止の判定をキャンセル(18h)コードでも行う様に変更し、バグを解消しました。

'---------------------------------------
'処理の続行のYES/NO入力関数
'---------------------------------------
'Function GsKeyTest%
'戻り値:
'	GsKeyTest%	:続行OK(GcTrue%),NG(GcFalse%)
'---------------------------------------
    Function GsKeyTest%
		GsKeyTest% = GcFalse%
		'エラー処理宣言
		On Error Goto GsKeyTest.ErrProc

Private intLoop%, intRet%, strBuff$
		Print "GsKeyTestの実行"
		Print "[ENT]開始 [BS/C]中止"
    	intLoop% = GcTrue%
    	While intLoop% = GcTrue%
    		'--- キー取得
			Wait 0, &h01 'キー入力待ち
			strBuff$ = Input$(1) '入力されたキーを取得して戻す。
			intRet% = ASC(strBuff$)
    		Select strBuff$
    			Case GcKeyENT$ '開始
					Print "処理中…"
					GsKeyTest% = GcTrue%
					intLoop% = GcFalse%

Case GcKeyBS$ '中止
					Print "...中止"
					intLoop% = GcFalse%
				'*** この部分が最初は無かった↓
    			Case GcKeyC$ '中止2
					Print "...中止2"
					intLoop% = GcFalse%
				'*** この部分が最初は無かった↑
    		End Select
    	WEnd
GsKeyTest.Return	'関数戻り
		On Error Goto 0
		Exit Function
'エラー処理
GsKeyTest.ErrProc
		Resume GsKeyTest.Return
	End Function

おやじプログラマー日記

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

おすすめ本

最近の記事

最近のトラックバック

Ranking

最近のコメント

アーカイブ

AccRanking

Ad

2017年6月21日 (水)

BHT-BASIC4.0:[BS／C]キー入力ではまった件について

トラックバック

コメント

コメントを投稿

検索

admax

カテゴリ

リンク

LSF

LPOP