BASIC!の基礎 - 1380718938 - したらば掲示板

1：管理人：2013/10/02(水) 22:02:18: BASICがはじめてという方の為の基本情報です。
2：管理人：2013/10/02(水) 22:36:11: まずはともかく「Hello! word!」

たった３行のプログラムです。

【プログラム】

REM sample1
print "Hello! world!"
end

【処理結果（コンソール画面）】

Hello! world!

END

【説明】

１行目のREM文は、コメント文なので何もしません。
２行目のprint文でコンソール画面に文字を表示します。
３行目のend文は、プログラムの終わりの意味です。

コンソール画面には、 Hello! world! とEND が表示されます。
3：管理人：2013/10/03(木) 08:37:11: Hello! world!のちょびっと進化版です。

【プログラム】

REM sample 2
print "おはようごさいます。"
console.save "kka.txt"
end

【処理結果（コンソール画面）】

おはようごさいます。

END

【処理結果（/rfo-basic/data/kka.txt の中身）】

おはようごさいます。

【説明】

前回とほぼ同じプログラムです。違う点は、二つ。

2行目のprint文でコンソール画面に表示する文字を日本語にしてみました。
日本語でも問題無く表示できます。

3行目の console.save命令は、コンソール画面に表示されている内容を
そのままファイルに保存する命令です。
指定したファイル名(kka.txt) に保存されます。
ファイルは、ディレクトリ /rfo-basic/data/ に作成されます。

ファイルの中身は、コンソール画面で表示されている内容と同じですが、
最後のENDだけは、ファイルには書かれません。
4：管理人：2013/10/03(木) 22:12:45: にたようなプログラムが続きます。

【プログラム】

REM sample 2
console.title "おはようごさいます。"
popup "おはようごさいます。",0,0,1
pause 4000
end

【処理結果（コンソール画面の写真）】

http://www.fastpic.jp/images.php?file=8955629816.png

END

【説明】

２行目のconsole.title文でコンソール画面の一番上の黒い部分に文字を表示します。
３行目のpopup文は、バブルメッセージを４秒間画面中央に表示します。
４行目のpause文は、４０００ミリ秒＝４秒ウェイトします。
5：管理人：2013/10/04(金) 19:05:19: 今回は入力のあるサンプルです。

【プログラム】

REM sample
input "金額を入力して下さい",kin
input "消費税率を入力して下さい",zei,8
print "金額",kin,"税",zei,"合計",kin*(1+zei/100)
end

【処理結果（コンソール画面の写真）】

http://www.fastpic.jp/images.php?file=7162027288.png
http://www.fastpic.jp/images.php?file=5987677253.png

【説明】

２行目のinput文で写真の通り金額を入力するダイアログを表示します。
３行目の input文は、消費税率を入力しますが、初期値で8.0を表示します。
４行目のprint文は、入力された金額、消費税率と合計金額の計算結果を表示します。
6：管理人：2013/10/06(日) 09:32:21: 今回も入力のあるサンプルです。

【プログラム】

REM sample
moto$="文字列が改行込み\nで入力できます。"
text.input kekka$,moto$,"テキストインプットの画面"
print kekka$
end

【処理結果（コンソール画面の写真）】

http://www.fastpic.jp/images.php?file=4088255119.png
http://www.fastpic.jp/images.php?file=6901975109.png

【説明】

２行目の代入文で改行コード（\n）付きの文字列をセット。
３行目の text.input文は、インプットボックス内に、初期値で文字列を表示します。
４行目のprint文は、インプットボックスに入力された結果を表示します。
7：管理人：2013/10/07(月) 16:14:32: 今回は、条件分岐のあるサンプルです。

【プログラム】

REM sample
input "都道府県の名前を入力してください",ken$
if ken$="東京" then
print "東京は日本の首都です。"
else
print ken$;"は日本の首都ではありません。"
endif
end

【処理結果（コンソール画面の写真）】

http://www.fastpic.jp/images.php?file=6100866572.png
http://www.fastpic.jp/images.php?file=9745732776.png
http://www.fastpic.jp/images.php?file=1932478568.png

【説明】

３行目のIf文で条件を設定。
４行目のprint文は、条件とあった場合に実行されます。
５行目のelse文と７行目のendif文の間に条件に合わない場合に
実行する命令を記載します。
8：管理人：2013/10/09(水) 22:54:58: 今回は、繰り返しのサンプルです。

【プログラム】

REM sample
for i=1 to 5
print left$(str$(i),1);"行目を印刷"
next i
end

【処理結果（コンソール画面の写真）】

http://www.fastpic.jp/images.php?file=8970041407.png

【説明】

２行目のfor文~４行目のnext文の間を５回繰り返します。
３行目のprint文は、では、カウンター変数iを文字型に変換して
左１文字と文字列を繋げた形で印刷します。

2chMate 0.8.5.4/WonderMedia/WM8850-mid/4.1.1
9：＜削除＞：＜削除＞: ＜削除＞
10：管理人：2013/10/12(土) 09:43:32: 今回も、繰り返しのサンプルです。

【プログラム】

REM Start of BASIC! Program
i=1
while i<=5
i=i+1
print "while i=";str$(i)
repeat
i=1
do
i=i+1
print "until i=";str$(i)
until i>=5
end

【処理結果（コンソール画面の写真）】

http://www.fastpic.jp/images.php?file=0447196607.png

【説明】

３行目のwhile文~６行目のrepeat文の間を５回繰り返します。
７行目のdo文~６行目のuntil文の間を４回繰り返します。
似たような繰り返しですが違いがあるので注意が必要です。

2chMate 0.8.5.4/WonderMedia/WM8850-mid/4.1.1
11：管理人：2013/10/14(月) 17:11:49: 今回は、ラベルとgoto文のサンプルです。

【プログラム】

REM sample
situmon:
input "日本の首都は？",syuto$
if syuto$="東京" then
popup "正解",0,0,1
pause 4000
else
popup "不正解",0,0,1
pause 4000
goto situmon
endif
end

【処理結果（コンソール画面の写真）】

http://www.fastpic.jp/images.php?file=9218727030.png
http://www.fastpic.jp/images.php?file=9896758730.png

【説明】

２行目のsitumon: はラベルです。ラベルはコロンが必須です。
１０行目のgoto文は、実行されると無条件に指定したラベルの行に処理が移ります。

2chMate 0.8.5.4/WonderMedia/WM8850-mid/4.1.1
12：管理人：2013/10/18(金) 18:29:01: 今回はサブルーチンのサンプルです。

【プログラム】

REM Start of BASIC! Program
print "印刷その1"
gosub aaa
print "印刷その2"
end
aaa:
print "印刷その3"
return

【処理結果（コンソール画面の写真）】

http://www.fastpic.jp/images.php?file=8175040377.png

【説明】

３行目のgosub文で指定したラベルに処理がうつります。
８行目のreturn文でgosub文の次の行に処理がうつります。

2chMate 0.8.5.4/unknown/L01A/4.0.3
13：管理人：2013/10/24(木) 19:08:05: 今回はファイル出力のサンプルです。

【プログラム】

REM Start of BASIC! Program
Text.open w, file_num2, "samp.txt"
msg$="今日はいい天気ですね"+"\n"+"明日はどうでしょう？"
popup msg$,0,0,1
pause 4000
print msg$
text.writeln file_num2,msg$
text.close file_num2
end

【処理結果（コンソール画面の写真）】

http://www.fastpic.jp/images.php?file=9305319330.png
http://www.fastpic.jp/images.php?file=0718068132.png
http://www.fastpic.jp/images.php?file=7322607077.png

【説明】

２行目のtext.open文で新規書込み(w)指定で指定したファイル
SAMP.TXTを開きます。file_num2には、ファイル番号が自動で
セットされます。
３行目のmsg$にファイルに書き込みする内容をセットして
います。改行して複数行書き込みしたい場合、改行コード
(\n)を使います。
７行目で指定したファイル番号のファイルに書き込み。
８行目でファイルを閉じています。

2chMate 0.8.5.4/unknown/L01A/4.0.3
14：管理人：2013/10/25(金) 12:55:52: 今回はファイル入力のサンプルです。

【プログラム】

REM Start of BASIC! Program
Text.open r, file_num2, "samp.txt"
do
text.readln file_num2,msg$
if msg$="EOF" then
else
popup msg$,0,0,1
pause 4000
print msg$
endif
until msg$="EOF"
text.close file_num2
end

【処理結果（コンソール画面の写真）】

http://www.fastpic.jp/images.php?file=4604069398.png
http://www.fastpic.jp/images.php?file=1721744199.png

【説明】

２行目のtext.open文で読込(r)指定で指定したファイル
SAMP.TXTを開きます。file_num2には、ファイル番号が自動で
セットされます。

３ー１１行目の do-until文の間の処理をファイル内の行数分
繰り返します。

４行目のtext.readln文で指定されたファイル番号のファイルから
１行文分のみ読込します。

５行目からのif-then-else文では、ファイルの最後に到達すると
４行目の text.readln文の結果で特殊コード「EOF」が返されるので
そのときはなにも処理しないように条件を分けています。

12行目でファイルを閉じています。

2chMate 0.8.5.4/unknown/L01A/4.0.3
15：管理人：2013/11/08(金) 22:02:20: BASIC！超初心者編は以上で終了です。

あとは、ご自身でプログラムを作ってみてください。

きっと楽しめると思います。

ありがとうございました。