AFsoft WebSite (AFsoft.JP)

プログラムの基本

ＢＡＳＩＣ(4)

プログラムの基本は、以下のようなものです。

入　力

↓

演　算

↓

出　力

入力は、キーボードによるキー入力、マウスやペン、タブレット、デジタイザ等からの座標入力、等のように各種装置等からのデータ受け付けをします。演算は、入力したデータを使って様々な計算や処理を行います。出力は、計算や処理をした結果をディスプレイやプリンタ・プロッタ等へ表示等を行います。例えば、電卓プログラムの場合、

数値入力　→　計算　→　計算結果を表示

となります。
簡単なBASICプログラムで記述すると、

10 INPUT "A=";A 20 INPUT "B=";B	←入力
30 C=A+B	←演算
40 PRINT "A+B=";C	←出力
50 END	終了

のようになります。
　
プログラムに注釈を入れたい場合には、「REM」（リマーク；注釈）と書いた後、半角空白を１つ付けて、その後に行の終わりまで文章を書きます。

5 REM ----- テストプログラム -----
10 INPUT "A=";A　　　REM 入力(A)
20 INPUT "B=";B　　　REM 入力(B)
30 C=A+B 　　　　　　REM 計算
40 PRINT "A+B=";C　　REM 出力
50 END 　　　　　　　REM 終了

「REM」と書くのが面倒だという場合には、代わりに「'」（アポストロフィー；単一引用符）を使う事も出来ます。

5 ' ----- テストプログラム -----
10 INPUT "A=";A　　　' 入力(A)
20 INPUT "B=";B　　　' 入力(B)
30 C=A+B 　　　　　　' 計算
40 PRINT "A+B=";C　　' 出力
50 END 　　　　　　　' 終了

プログラムを作ったら保存する、という癖が付くようになると、注釈文を利用して、

1 ' save "TEST.BAS"
5 ' ----- テストプログラム -----
10 INPUT "A=";A　　　' 入力(A)
20 INPUT "B=";B　　　' 入力(B)
30 C=A+B 　　　　　　' 計算
40 PRINT "A+B=";C　　' 出力
50 END 　　　　　　　' 終了

のように書いておくと、後々楽になります。また、どんな変数を使ったのか、このプログラムはどういう内容のものか、を忘れないようにするため注釈として入れておくのも良いでしょう。

1 ' save "TEST.BAS"
2 ' ----- テストプログラム -----
3 ' このプログラムは、簡単な足し算を
4 ' 行うためのテストプログラムです。
5 ' 　　in　A:入力１
6 ' 　　in　B:入力２
7 ' 　　out C:入力１＋入力２
8 '
10 INPUT "A=";A　　　' 入力(A)
20 INPUT "B=";B　　　' 入力(B)
30 C=A+B 　　　　　　' 計算
40 PRINT "A+B=";C　　' 出力
50 END 　　　　　　　' 終了

10行目以降を「:」（コロン）で繋げて１行にする事も出来ます。これを、マルチステートメントと呼びます。

1 ' save "TEST.BAS"
2 ' ----- テストプログラム -----
3 ' このプログラムは、簡単な足し算を
4 ' 行うためのテストプログラムです。
5 ' 　　in　A:入力１
6 ' 　　in　B:入力２
7 ' 　　out C:入力１＋入力２
8 '
10 INPUT "A=";A:INPUT "B=";B:C=A+B:PRINT "A+B=";C:END

これを多用するとプログラムが見辛くなりますので注意して下さい。
　
行番号の並び方が汚いなぁという場合には、「RENUM」とキー入力して改行キーを押すと、行番号を綺麗にしてくれます。「RENUM」をすれば、上記は、

10 ' save "TEST.BAS"
20 ' ----- テストプログラム -----
30 ' このプログラムは、簡単な足し算を
40 ' 行うためのテストプログラムです。
50 ' 　　in　A:入力１
60 ' 　　in　B:入力２
70 ' 　　out C:入力１＋入力２
80 '
90 INPUT "A=";A:INPUT "B=";B:C=A+B:PRINT "A+B=";C:END

となります。「RENUM 100」と入力すると、

100 ' save "TEST.BAS"
110 ' ----- テストプログラム -----
120 ' このプログラムは、簡単な足し算を
130 ' 行うためのテストプログラムです。
140 ' 　　in　A:入力１
150 ' 　　in　B:入力２
160 ' 　　out C:入力１＋入力２
170 '
180 INPUT "A=";A:INPUT "B=";B:C=A+B:PRINT "A+B=";C:END

のように「100行」からとなります。更に、「RENUM 1000,,100」とすると、1000行から始まり、100ずつ増えていきます。（省略すると10ずつ増えます）

1000 ' save "TEST.BAS"
1100 ' ----- テストプログラム -----
1200 ' このプログラムは、簡単な足し算を
1300 ' 行うためのテストプログラムです。
1400 ' 　　in　A:入力１
1500 ' 　　in　B:入力２
1600 ' 　　out C:入力１＋入力２
1700 '
1800 INPUT "A=";A:INPUT "B=";B:C=A+B:PRINT "A+B=";C:END

バッチファイル
ＢＡＳＩＣ
　1 2 3 4 5
　6 7 8 9 A
　B C D E F
　G H I J
C言語のお勉強
拡張子な話
DOSプログラム
Delphi
シェアウェア
Script!World
データベース
　