FreeBASIC マニュアルのトップに戻る

FreeBASIC 入力の基本

目次→教本→いっしょに学ぼうBasic Input←オリジナル・サイト

入力の基本 左にメニュー・フレームが表示されていない場合は、ここをクリックして下さい

←リンク元に戻る プログラム開発関連に戻る

プログラムに、情報を伝えます。

どんなプログラムでも、入力は、キモです。
プログラムに何かを入力しないと、プログラムから何も結果を得ることができません。
ここでは、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



詳しい情報に関しては、ユーザ入力 の項を参照下さい。

いっしょに学ぼう に戻る
←リンク元に戻る プログラム開発関連に戻る

最終 Sancho3 によるレビュー(2018年2月06日)

ページ歴史:2018-02-07 00:43:32
日本語翻訳:WATANABE Makoto、原文著作者:TekRat

ホームページのトップに戻る

表示-非営利-継承