プログラムに、情報を伝えます。
どんなプログラムでも、入力は、キモです。
プログラムに何かを入力しないと、プログラムから何も結果を得ることができません。
ここでは、FreeBASIC プログラムに情報を入力する方法の基礎を、紹介します。
下は、あなたの名前をたずねてくる、とても基本的なプログラムです:
'ユーザの名前を登録する変数を作成します
Dim As String strMyName
' ユーザの名前を求めます。そして、文字列 'strMyName' にそれを格納します
Input "あなたの名前は何ですか?
", strMyName
' 1/2 秒、待ちます
Sleep 500
' 入力された名前を表示します
Print
print "あなたの名前は ";
strMyName
Print
' プログラムを終了する前に、だれかがボタンを押すまで、待ちます
Print "プログラムを終了するために、何かキーを押して下さい。"
Sleep
INPUT は、だれかから情報を得る、最も簡単な方法です。
何かテキストをキー入力して、入力し終えたら、Enter キーを押すだけです。
特定のキーストロークが欲しいだけの場合は、どうしましょう。
最も簡単な方法は、
GETKEY を使うことです。
GETKEY は、押されたキーの
ASCII 値を、あなたに与えます。
' ユーザに入力を求めます
Print "何か好きなキーを押して下さい:"
' キーの ASCII 値を保つ場所を設定します
Dim As Integer strKeyPress
' キーが押されるまで、繰り返します
Do
strKeyPress = GetKey
Loop Until strKeyPress <> 0
' ユーザが押したキーを、表示します
Print
Print "あなたが押したキーは:
";
Chr(strKeyPress)
' プログラムの終了を、何かキーを押すまで、待ちます
Print
Print "プログラムを終了するため、何かキーを押して下さい。"
Sleep
詳しい情報に関しては、
ユーザ入力 の項を参照下さい。