FreeBASIC End
目次→その他→その他の予約語→END (Statement)←オリジナル・サイト
プログラムを終わらせるための、流れ制御命令文です。
構文:
用法:
End [ retval ]
パラメタ:
retval
エラーコードは、システムに戻ります。
記述:
プログラムを出て、オペレーティング・システムに戻るのに用いられます。
オプションの整数戻り値は、システムにエラーコードを示すために、特定できます。
戻り値が無いときは、0 の値が、プログラム終了後、自動的に返されます。
この命令を使うと、範囲をきれいに閉じません。
局所変数は、その破壊装置を自動的に呼びません。FreeBASIC が、スタック巻き戻しをしないからです。
この場合、グローバル変数の破壊装置だけは、呼ばれます。
この理由から、End を、単にプログラムの終わりを記録するために使うことは、はばかられます;
プログラムは、モジュール-レベル・コードの最後の行が実行したとき、自動的に、よりきれいな流儀で、終わります。
例:
'' このプログラムは、ユーザに文字列を求めます。そして、
'' 文字列が空だった場合、OSにエラーコードを返します。
Function main() As Integer
'' 入力をテキスト文字列に代入します
Dim As String text
Line Input "何か文字を入力して下さい ( 例えば ""abc"" ): " , text
'' 文字列が空の場合、エラーメッセージを表示して、
'' エラーコード 1(失敗)を返します。
If( text = "" ) Then
Print "ERROR: 文字列は空です"
Sleep
Return 1
End If
'' 文字列が空ではありません。それで、
'' 文字列を表示して、エラーコード 0(成功)を返します。
Print "あなたの入力は: " & text
Sleep
Return 0
End Function
'' main() を呼び、OS にエラーコードを返します。
End main()
プラットホーム差:
- Linux では、retval パラメーターは byte です。
QBからの違い:
- END 命令は、オペレーティング・システムに返される、カスタム戻り値を指定することをサポートします。
参照:
ページ歴史:2022-07-05 03:16:03
日本語翻訳：WATANABE Makoto、原文著作者：SysOp
