OriosのActiveBasic講座(1-1):入出力

5.Input命令語

今までのプログラムではプログラムで使う数値は自分であらかじめ書かなくてはいけませんでした。 しかしプログラムをするなら、やっぱりユーザー(実際に使う人)が入力した数値や文字が使いたいなあと思いませんか？ そこで今回はユーザーから数値や文字を入力してもらう「Input」という命令語を勉強します。 これが使えるようになればプログラミングがグンと楽しくなります。

では早速次のプログラムを実行してみましょう。 ……の前に、今回は実行する前に少し予備知識が必要です。

• 途中でカーソルが点滅したままプログラムが止まっているときはプログラム側から数値や文字を入力することを求められています(プログラムの最後の3秒間の停止は違います)。
• 入力が求められたときは、指示に従って何かを入力して、最後に「Enterキー」を押します。
• 2つの数値や文字を入力するときはコンマ(,)で区切って「abc,cde」のように入力します。 このときに「,」の前後にスペースを入れてはいけません。

では実際に実行してみましょう。

'lesson1-1-5
#console
Dim name As String
Dim age As Long
Dim height As Long
Dim weight As Long
Input "名前を入力してください。", name
Input "年齢は"; age
Input "身長(cm)と体重(kg)をコンマで区切って入力してください。", height, weight
Print ""
Print "コンピューターは以下のようにあなたを認識しました。"
Print "名前:" + name
Print "年齢:"; age; "歳"
Print "肥満度:"; weight / ((height / 100) ^ 2 * 22) * 100 - 100; "%"
Sleep(3000)
End

上のプログラムを実行し、指示に従って適当に入力すると下のようになります。

今回は第一章の終わりということで少し複雑なプログラム例を載せましたがどうでしたか？ 上の実行例のデータで笑うも良し、自分で変なデータを入れて笑うも良しですが、決して肥満度が高かったからって管理人に文句は言わないように……。 一応、肥満度については「BMI」という方法を使っていますが、私はこのプログラムの結果の信憑性については責任を負いかねます。

まあ、この話題で終わってもいけないんで、今回のプログラムの説明に入ります。

今回は第一章の最後ということで「Input命令語」についていろいろと書いてきましたがどうでしたか？ 今回の「Input命令語」はユーザーが入力した数値・文字列を取得する基本的なものです。 冒頭でも述べましたがこれが使えるとプログラムがグンと楽しくなります。 がんばって自分のものにしましょう。 では、第一章最後の「やってみよう」です。