VB.NET-TIPS などプログラミングについて

ハンディターミナルの開発言語であるBHT-BASIC4.0についての4回目になります。 今回はユーザ定義関数について説明したいと思います。

■ユーザ定義関数

ユーザ定義関数とは、BHT-BASICが既に備わっている関数ではなく、 ユーザが任意で作成する関数のことです。 ユーザが定義できる関数には大きく分けて2種類のものがあり、 DEF FN及びFUNCTIONで定義される値を返す関数と、 SUBで定義される値を返さない関数があります。
このうちFUNCTION関数、SUB関数はDECLAREステートメントで宣言することで 別モジュールで使用することができます。

DEF FN関数及びFUNCTION関数には返す値により 関数の最後にデータ型を示す記号を付加します。

ユーザ定義関数のデータ型	DEF FN関数の書式	FUNCTION関数の書式
整数型	FN関数名%	関数名%
長整数型	FN関数名&	関数名&
実数型	FN関数名	関数名
文字型	FN関数名$	関数名$
文字型 (文字列長指定)	FN関数名$(・・・)[NNN] （NNN：に文字列長指定）	関数名$(・・・)[NNN] （NNN：に文字列長指定）

値を返す関数は、私は専らFUNCTION関数を使い、DEF FN関数は殆んど使っていません。 なぜならば、DEF FN関数ではSTATIC変数が使えませんし、 他のモジュールから参照することができないからです。

尚、値を返さない関数は当然のことSUB関数で宣言します。

関数には値を渡さない場合は引数の宣言をしませんが、 値が必要な場合には関数の宣言のところで引数の宣言を行います。 この引数の渡し方には、値渡し（call by value）と、 参照渡し（call by reference）の2種類があります。

■値渡し・参照渡し

以下のソース「MODULE1.SRC」を見てください。

'File	[MODULE1.SRC]
	FUNCTION Func1%(BYVAL P%)
		Func1% = P% * 2	'引数を2倍して戻す
	END FUNCTION

	FUNCTION Func2%(BYREF P%)
		Func2% = P% * 2	'引数を2倍して戻す
		P% = P% + 1		'引数に+1する
	END FUNCTION
	
	DIM	I%
	I% = 10
	PRINT "Func1%=" ; Func1%(I%)
	PRINT "I%=" ; I%	'I%は変わらない
	PRINT "Func2%=" ; Func2%(I%)
	PRINT "I%=" ; I%	'I%は変化した!!
	
	Wait 0, &h01	'キー入力待ち
	END

これを実行すると以下の表示の様になります。

FUNCTION関数の宣言はFUNCTIONで始まり、END FUNCTIONで終わります。 関数の引数は仮引数名で宣言し、値渡しはBYVALキーワードで宣言し、 参照渡しはBYREFキーワードで宣言します。 BYVAL、BYREFが無い場合はデフォルトで値渡しになりますが、 引数の意味合いをはっきりさせるため、必ずこのキーワードを付加すべきだと思います。

関数の戻り値は関数名に値を代入することで戻します。
このソースでは、Func1%は値渡し、Func2%は参照渡しの例です。

=====
2016/04/02：の時の情報

ハンディターミナルの開発言語であるBHT-BASIC4.0についての3回目になります。 前回は変数宣言について説明しましたが、追加でいくつかの内容を記します。

■変数宣言されない変数

コンパイラの指定で「オプション」の「宣言されていない変数をエラーにする」チェックをOFFすると 変数の宣言が無くても、変数を初めて使用した時点で変数が宣言されたことになります。
以下のソース「MODULE1.SRC」を見てください。

'File	[MODULE1.SRC]

	Sub Test1
		WK$ = "ABC"			'自動変数[WK$]宣言
		Print "WK$=" + WK$	'Test1内変数[WK$]を参照
	End Sub

	WK$ = "123"				'モジュール変数[WK$]宣言
	
	Sub Test2
		Print "WK$=" + WK$	'モジュール変数[WK$]を参照
		WK$ = "***"			'モジュール変数[WK$]を参照・変更
		Print "WK$=" + WK$	'モジュール変数[WK$]を参照
	End Sub

	Call Test1		'MODULE2.SRCのTest1関数をコール
	Call Test2		'MODULE2.SRCのTest1関数をコール
	Print "WK$=" + WK$	'モジュール変数[WK$]を参照
	WK$ = "@@@"			'上のモジュール変数[WK$]と同じ
	Print "WK$=" + WK$	'モジュール変数[WK$]を参照
	Wait 0, &h01	'キー入力待ち
	END

これを実行すると以下の表示の様になります。

コンパイラはソースの先頭からスキャンするため、 最初に関数Test1の中のWK$が出てきた時に、自動変数として宣言します。 この変数はTest1の中でのみ有効です。

Test1のすぐ下でWK$への値に代入が出てきた時点で、 このモジュール内の変数として、WK$が有効となります。

関数Test2の中でWK$を使用していますが、 これは直前のモジュール変数を参照することになります。

上記のソースを実行すると、考え方としてはCall Test1から走るような感覚です。
この例でも分かるように、自動変数を許可するとどこで変数の値が変化してしまうのかが デバッグ時に混乱してしまいます。 それで通常は、コンパイラオプションの「宣言されていない変数をエラーにする」チェックを ONにして、変数は必ず宣言する様にします。

■文字列変数について

今まで気にせずに文字列変数を宣言してきましたが、 実は文字列の格納できる長さについての制限があります。 以下のソースを見てください。

モジュール変数を例にしていますが、最初はWK1$として変数名そのままで宣言しています。 この場合、文字列として格納できる最大の文字数は 40 までです。 暗黙の了解として文字数のMAXを宣言しなければ、40なのです。これは忘れがちなので注意して下さい。
（配列変数の場合は20文字がデフォルトです）
また、この文字数の最大を超えて値を設定すると実行時エラーとして「0Fh：文字列長が範囲外です。」が発生します。 以下のソースでも7行目でエラーが発生します。

さて、2番目の宣言WK2$[10]ですが、これはWK2$の文字数が最大10であることを宣言しています。 そこで以下のソースの中で7行目をコメント行にして実行すると、当然13行目でエラーが発生します。

'File	[MODULE1.SRC]
	PRIVATE WK1$
	WK1$ = "123"
	Print "WK1$=" + WK1$	'モジュール変数[WK$]を参照
	WK1$ = "0123456789012345678901234567890123456789"
	Print "WK1$=" + WK1$	'モジュール変数[WK$]を参照
	WK1$ = "0123456789012345678901234567890123456789@"
	Print "WK1$=" + WK1$	'モジュール変数[WK$]を参照

	PRIVATE WK2$[10]
	WK2$ = "123"
	Print "WK2$=" + WK2$	'モジュール変数[WK$]を参照
	WK1$ = "0123456789@"
	Print "WK1$=" + WK1$	'モジュール変数[WK$]を参照
	
	Wait 0, &h01	'キー入力待ち
	END

ちなみに、文字列の文字数宣言で最大は8192文字までです。

文字列処理はエラーが発生しない様に、文字数宣言を超えない様に文字数を大きくとるか、 または、最大文字数を超えない様な文字列連結の関数を作るかするしかないと思います。

=====
2016/04/02：の時の情報

ハンディターミナルの開発言語であるBHT-BASIC4.0についての2回目ですが、 今回はデータ型に続いて変数宣言や、式、演算子などについて説明します。

一般的にプログラム言語で存在する、グローバル変数、モジュール変数、ローカル変数がBHT-BASICにもあります。 グローバル変数、モジュール変数とはユーザが宣言する関数の外で静的に存在する変数です。 ローカル変数とはユーザ関数の中で一時的に存在する変数のことです。

それでは各変数それぞれについて詳しくみていきます。

■グローバル変数

ユーザが宣言する関数の外で、PUBLIC または GLOBALの命令語（ステートメント） で変数を宣言すると、グローバル変数として宣言できます。
PUBLIC と GLOBALですがどちらで宣言してもいい様ですが、 それぞれ違いがあります。 まずはPUBLIC宣言のソースの例です。 この例では「MODULE1.SRC」と「MODULE2.SRC」の２つのソースがあります。 尚、プロジェクトのプロパティでメインモジュールとして「MODULE1.SRC」を指定してあります。

'File	[MODULE1.SRC]
	PUBLIC PDT1%		'グローバル変数宣言・整数型
	PUBLIC PDT2$[256]	'グローバル変数宣言・文字列型
	Declare Sub Test1	'別ソースの関数を使用する為に型宣言

Main
	PDT1% = 100		'グローバル変数に値代入
	PDT2$ = "1234567890"
	Call Test1		'MODULE2.SRCのTest1関数をコール
	Wait 0, &h01	'キー入力待ち
	END

'File	[MODULE2.SRC]

'テスト関数の宣言
	Sub Test1
		Print "PDT1%=" ; PDT1%	'グローバル変数[PDT1%]を参照
		Print "PDT2$=" + PDT2$	'グローバル変数[PDT2$]を参照
	End Sub

これを実行すると以下の表示の様になります。

PUBLIC宣言はソースファイルのどこか一カ所で行えば、 別のソースでそれを参照する場合は、宣言なしでその変数名を使えば 参照できます。

同じ変数名で別のソースでPUBLIC宣言すると二重定義エラーがリンク時に発生します。 但し、同じ変数名でもモジュール変数として宣言すれば別の変数として扱われますので、 注意が必要です。

上記のソースで宣言した、「PDT1%」「PDT2$」を今度はGLOBALで宣言します。 今回の場合は「MODULE2.SRC」の方にも同じ宣言をしないと、 リンク時に変数宣言エラーが発生します。

'File	[MODULE1.SRC]
	GLOBAL PDT1%		'グローバル変数宣言・整数型
	GLOBAL PDT2$[256]	'グローバル変数宣言・文字列型
	Declare Sub Test1	'別ソースの関数を使用する為に型宣言

Main
	PDT1% = 100		'グローバル変数に値代入
	PDT2$ = "1234567890"
	Call Test1		'MODULE2.SRCのTest1関数をコール
	Wait 0, &h01	'キー入力待ち
	END

'File	[MODULE2.SRC]
	GLOBAL PDT1%		'グローバル変数宣言・整数型
	GLOBAL PDT2$[256]	'グローバル変数宣言・文字列型

'テスト関数の宣言
	Sub Test1
		Print "PDT1%=" ; PDT1%	'グローバル変数[PDT1%]を参照
		Print "PDT2$=" + PDT2$	'グローバル変数[PDT2$]を参照
	End Sub

どちらの方法でも同じ結果になるのですが、 PUBLIC または GLOBALのどちらがいいとも言えません。
PUBLICの場合は、他のソースで宣言しなくても使えるので楽と言えば楽かもしれませんが、 変数が多くなりソースファイルの数が増えると管理が厄介です。
但し、PUBLICを宣言するところを一カ所に限定し、 変数の命名規則でPUBLICだとわかるプリフィックスを先頭に付けるのも方法かもしれません。

GLOBALはその変数を参照しているソースファイルで同じ宣言を行う必要が在ります。 この宣言を別ファイルにし、変数の宣言のみのソースとして、各ソースファイルで インクルードすることで煩雑ではなくなると思います。以下のソースがその例です。

'File	[TESTINC.INC]
	GLOBAL PDT1%		'グローバル変数宣言・整数型
	GLOBAL PDT2$[256]	'グローバル変数宣言・文字列型

'File	[MODULE1.SRC]
'$include:'TESTINC.INC'	'定数宣言ファイルインクルード
	Declare Sub Test1	'別ソースの関数を使用する為に型宣言

Main
	PDT1% = 100		'グローバル変数に値代入
	PDT2$ = "1234567890"
	Call Test1		'MODULE2.SRCのTest1関数をコール
	Wait 0, &h01	'キー入力待ち
	END

'File	[MODULE2.SRC]
'$include:'TESTINC.INC'	'定数宣言ファイルインクルード

'テスト関数の宣言
	Sub Test1
		Print "PDT1%=" ; PDT1%	'グローバル変数[PDT1%]を参照
		Print "PDT2$=" + PDT2$	'グローバル変数[PDT2$]を参照
	End Sub

■モジュール変数

ユーザが宣言する関数の外で、PRIVATE または DIMのステートメント で変数を宣言すると、モジュール変数として宣言できます。
PRIVATE 、 DIMのどちらでも効果は同じなのですが、 DIMはレジスタ変数としては宣言できない様です。
以下のソースを見てください。「MODULE2.SRC」では同じ変数名でモジュール変数を宣言しています。 「MODULE2.SRC」のモジュール変数は同じ変数名ですが、「MODULE1.SRC」とは全く異なるメモリ領域に確保されます。

'File	[MODULE1.SRC]
	PUBLIC PDT1%		'グローバル変数宣言・整数型
	PUBLIC PDT2$[256]	'グローバル変数宣言・文字列型
	Declare Sub Test1	'別ソースの関数を使用する為に型宣言

Main
	PDT1% = 100		'グローバル変数に値代入
	PDT2$ = "1234567890"
	Call Test1		'MODULE2.SRCのTest1関数をコール
	Wait 0, &h01	'キー入力待ち
	END

'File	[MODULE2.SRC]
	PRIVATE PDT1%		'モジュール変数宣言・整数型
	PRIVATE PDT2$[256]	'モジュール変数宣言・文字列型

'テスト関数の宣言
	Sub Test1
		Print "PDT1%=" ; PDT1%	'モジュール変数[PDT1%]を参照
		Print "PDT2$=" + PDT2$	'モジュール変数[PDT2$]を参照
	End Sub

これを実行すると以下の表示の様になります。 「MODULE2.SRC」のTest1関数が実行される時には、「MODULE2.SRC」内のモジュール変数として 初期化されたそれぞれの内容が表示されます。


■ローカル変数

ユーザが宣言する関数の内で、PRIVATE、DIM、STATICの各ステートメント で変数を宣言すると、ローカル変数として宣言できます。

グローバル変数やモジュール変数と同じ名前でローカル変数を宣言しても、 全く別ものとして扱われます。（全く別のメモリ領域に割り当てられます）

'File	[MODULE2.SRC]
	PRIVATE PDT1%
	PRIVATE PDT2$[256]
'テスト関数の宣言
	Sub Test1
		PRIVATE PDT1%
		PRIVATE PDT2$[256]
		PDT1% = 200		'ローカル変数に値代入
		PDT2$ = "ABC"
		Print "PDT1%=" ; PDT1%	'ローカル変数[PDT1%]を参照
		Print "PDT2$=" + PDT2$	'ローカル変数[PDT2$]を参照
	End Sub

この様に組むと、関数の中から同じ名前のモジュール変数が参照できなくなります。 そのため、通常プログラムする時にモジュール変数とローカル変数は、なるべくかぶらない様にしています。



=====
2016/04/02：の時の情報

DENSOのハンディターミナルBHT-1300を使ったシステムを作成することがあったので、 ハンディターミナルの開発言語であるBHT-BASIC4.0についていろいろ載せていきたいと思います。

このBHT-BASIC4.0ですが言語としてはBASICなのですが、 最近のはやりのVisualBasic.NETとは全然違っています。
一言でいえば相当昔のBASICで、言語仕様的には30数年前の NECのPC8001やPC8801などのROM-BASICと呼ばれていたBASICに近いです。 これらのBASICは元々はMicroSoftが開発したBASICを日本のメーカが採用し ROMの中に入れていたものです。 パソコンの電源ONでいきなりBASICが走る感じになっていました。

なので、昔にBASICを触ったことが有る方ならば懐かしい感じで プログラムできるのではないでしょうか。 実際私も、昔を思い出しながら組みました。

昔語りはこの辺にしまして、BHT-BASIC4.0に話を戻します。 BHT-BASIC4.0（以降はBHT-BASICと称します）はハンディターミナルの上で動作させるためなのか、 昔のBASICよりは制約がいろいろあります。 変数の名前の長さであったり、文字列のMAX長であったりそこは ハンディターミナルなのでメモリの制約があると思われます。

それでは今回は初回なので、変数などについて記します。

■BHT-BASICのハンディターミナル内での構成

ハンディターミナルのメモリにはフラッシュメモリとＲＡＭがあり、 フラッシュメモリの中では以下の構成部分からなります。
・システムプログラム
　（BHT-BASICインタプリタ、拡張ライブラリ、拡張関数、システムドライバ等）
・ユーザプログラム
　（ユーザが作成した実行可能なプログラムファイル）
・ユーザデータファイル
　（ユーザプログラムで作成・使用されるデータファイル等）


■BHT-BASICの開発など

・BASICの文法はほぼMicroSoftのBASICと同じです。
・専用のコンパイラ・リンケージエディタで開発します。
・コンパイラ言語なので行番号は不要です。
・実行可能プログラムファイルは中間言語に変換される。
　（ファイル拡張子は PD4 ）
・開発環境はWindows7,Windows8などの32bitパソコンが必要です。
・実行プログラムをハンディターミナルに転送する通信ユニットが必要です。
　（通信ユニットにはUSBまたはRS-232Cでパソコンと接続）


■BHT-BASICの特徴など

・プログラムの1行は512文字（バイト）
・変数名に使用できるのは、英数字とピリオドのみ
・変数名は大文字と小文字の区別は無く、255文字まで
　（但し、文字列変数を表す $ 、 整数変数を表す % は文字数に含めない）
・変数のデータ型には以下の4種類がある。

データ型	型宣言文字	値の範囲
整数型	%	-32,768 ～ 32,767
長整数型	&	-2,147,483,648 ～ 2,147,483,647
実数型	無し	（ゼロ）0 （正数）0.1000000000E-64 ～ 0.9999999999E+63 （負数）-0.1000000000E-64 ～ -0.9999999999E+63
文字型	$	0文字 ～ 8192文字

文字列型の文字数のMAXが8192文字（バイト）なのは注意が必要です。 また、文字列型は他にも注意する点があるのですが、それはまた次回に記します。

今回はこの辺りまでで、終わります。
次回は、変数の宣言の仕方や、式の書き方などにします。


=====
2016/04/02：の時の情報

アプリケーションのエントリポイントとは、そのアプリケーションが開始した時に、呼び出されるメソッドのことです。

VB.NETでは、Mainメソッドがエントリポイントですが、 WindowsフォームアプリケーションプロジェクトにはMainメソッドが見当たりません。 エントリポイントであるMainメソッドは、コンパイラによって自動的に作成されます。 以下の様にプロジェクトのプロパティ設定で「スタートアップ オブジェクト」を Form1 に 設定すれば自動でMainメソッドが生成され、その中で Form1 を生成し、表示する様になっています。



しかし、 Form1 の表示前に何かをしたいことがある場合、 例えば、アプリケーションの二重起動のチェックだとか、データベースのオープン処理などがあります。 その場合には、新しいモジュールかクラスを追加し、その中に Sub Main を宣言します。 以下は Sub Main をモジュールに宣言したときの例です。
（ファイル名は MainModule.vb としました）

Module MainModule
    'アプリケーションのメイン・エントリポイント
    <STAThread()> Sub Main()
        '-----
        'メインフォームを表示する前に必要な初期処理を行う・・・
        '-----
        '例：二重起動をチェックする
        If Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName).Length > 1 Then
            MessageBox.Show("多重起動はできません。")
            Return
        End If

        'メイン画面の表示(ここでは例としてForm1の表示)
        Dim frm As New Form1
        Application.Run(frm)

        '-----
        'メインフォームが閉じた後で必要な終了処理を行う・・・
        '-----
    End Sub
End Module

尚、この MainModule を有効にするには、プロジェクトのプロパティ設定で 以下の様にする必要があります。

「アプリケーションフレームワークを有効にする」のチェックを外し無効にします。
無効にすることで、「スタートアップ オブジェクト」のコンボボックスに  MainModule が現れますので、それを選びます。

モジュールではなく、クラスで行う場合は以下の様になります。

Public Class ClsMain
    'アプリケーションのメイン・エントリポイント
    <STAThread()> Shared Sub Main()
        '-----
        'メインフォームを表示する前に必要な初期処理を行う・・・
        '-----
        '例：二重起動をチェックする
        If Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName).Length > 1 Then
            MessageBox.Show("多重起動はできません。")
            Return
        End If

        'メイン画面の表示(ここでは例としてForm1の表示)
        Dim frm As New Form1
        Application.Run(frm)

        '-----
        'メインフォームが閉じた後で必要な終了処理を行う・・・
        '-----
    End Sub
End Class

このソースの例では、二重起動のチェックを行っていますが、その他、データベースのオープン等 メイン画面が表示される前までに行いたい処理を、初期処理の部分に記述できます。


=====
2016/04/02：の時の情報