前章でお話したとおり、補助記憶装置を使うには、準備から使用後の跡片付けまで、すべてプログラムでやらなければなりません。ファイルへの読み書きの大まかな流れはこうなります。
(1)ファイルのOPEN(補助記憶装置を使う準備)
(2)ファイルの読み書き
(3)ファイルのCLOSE(後片付け)
【ファイルのOPEN】
ファイルの使用準備にはOPEN命令を使います。
OPEN ファイルパス FOR 使用モード AS ファイル番号
ファイルパスは" "で囲みます(プログラム中ではストリングとして扱われます)
使用モードは
OUTPUT ファィル新規作成するとき
同じ名前のファイルがある場合、いったん内容がすべて消去されます。
APPEND 既存のファイルへの追加書き込みするとき
INPUT ファイルの内容を読み込むとき
Tiny Basicで扱えるファイルは順編成ファイル(書き込んだ順にデータが並ぶ、並んでいる順にデータが読み込まれるファイル)で、ランダムな順での読み書き、書き込み読み込みを同時に行なうことはできません。使用モードは必ず1つ選ばなくてはなりません。
ファイルにはプログラム内での番号が振られ、以後プログラム内では、このファイル番号が使われます。ファイル番号は正の整数で指定します。ファイル番号の書き方は
#正の整数
です。プログラム中では複数のファイルが使えます。筆者が今まで作ってきたプログラムで同時OPENは5つまで可能なことは確認しました(もっとたくさん使えるかもしれません)。
【ファイルの読み書き】
ファイルに書き込むにはPRINT命令、ファイルの内容を読み込むにはINPUT命令を使います。次のように書きます。
PRINT #(ファイル番号),1レコード分の書き込み・・・・ファイルへの書き込み
1件分の書き込みの部分は、画面への出力の場合と同じ書き方です。
INPUT #(ファイル番号),変数_1,データ_2・・・・1レコード分の読み込み
変数の型は、1レコード中のアイテムと一致させる必要があります。
【ファイルのCLOSE】
ファイルを使用したなら、後片付けをしなくてはなりません。とくにOUTPUT、APPENDモードで開いていた場合、後片付けを忘れると、それまでPRINT #で書き込んでいたいたはずのデータは実際にはファイルに反映されません。後片付けするにはCLOSE命令を使います。 CLOSE #(ファイル番号)
ファイル番号を省略するとそのときOPENしていたファイルすべてがCLOSEされます。
では、実際にファイルに書き込む(補助記憶装置にデータを記憶する)プログラムを作りながら詳しく説明します。これから先は今までさんざやってきたテストの成績処理のプログラムをファイルを使うように改造してゆくことにします。またテストの成績かよ!と思われたかもしれませんがこのカテゴリーも終点に近づいてきました。もう少しの間お付き合いください。
【ファイルに書き込むプログラム】
では、生徒名簿マスタファイルを作成するプログラムを作ってみましょう。マスタファイルとは内容が変動しない(変動することが滅多にない)ファイルのことです。ここでは生徒一人一人の出席番号、氏名、ヨミガナをファイルに書き込むことにします。
1: OPEN "meibo.txt" FOR OUTPUT AS #1
2: NUM$=""
3: WHILE NUM$<>"//"
4: INPUT "出席番号(//=入力終了)",NUM$
5: IF NUM$<>"//" THEN
6: INPUT "生徒氏名",NAMAE$
7: INPUT "ヨミガナ",KANA$
8: PRINT #1,NUM$;",";NAMAE$;",";KANA$
9: END IF
10: WEND
11: CLOSE #1
12: END
図16_1.ファイルに書き込むプログラム
1行目はファイルのOPENです。 meibo.txt という名前のファイルを新規作成します。同じ場所に meibo.txt という名前のファイルがあった場合、その内容はいったん消去されます。
3~10行目は入力終了になるまで繰り返されます。
4行目は出席番号の入力です。出席番号が // (入力終了の指示)でなければ、
6~8行目で生徒氏名、ヨミガナを入力してファイルに書き込みます(*)。
入力終わると11行目でファイルをCLOSEしてプログラム終了です。
(*)PRINT #でファイルに書き込む時、各アイテム間に , (半角カンマ)を書き込む必要があります。これがないと書き込む全部のアイテムが1つのストリングになってしまい、このファイルを読み込むプログラムがたいへんめんどうなことになります。
【Tiny Basicのプログラムとカレントディレクトリ】
あまり良いことではないのですが、図16_1のプログラムを作成して、保存をしないで実行してみました。結果は次のようになります。
図16-2.ファイルopenエラー(ディレクトリ不明)
これは「ファイルがOPENできませんでした」という実行時エラーです。プログラムの書き方にミスがあるわけではありません。なんでこんなことになったのかといいますと、プログラムを作成して保存していない状態ではカレントディレクトリがどこなのか確定していないからです。
ではプログラムを保存してから実行してみましょう。プログラム名はmeibo_generator、第4章でやった方法で保存することにします。保存したら実行してみましょう。
図16-3.ファイル新規作成プログラム実行中
実行が終わったらTiny Basicが入っているフォルダを開いて中身を見てみましょう。
図16-4.Tiny Basicの入っているフォルダ
このフォルダの中に、今作ったプログラム meibo_generator.tbtとプログラムで作成したファイル meibo.txt が入っているのがわかります。第4章でやった方法でプログラムを保存すると、Tiny Basicが入っているフォルダに保存されます。そしてTiny Basicではプログラムを保存してから実行するとカレントディレクトリはプログラムが保存されているフォルダに移ります。したがってファイルパスを指定せずにファイル名だけ指定してファイルをOUTPUTでOPENすると作成されるファイルもまたTiny Basicが入っているフォルダ内に作られます。
これでもプログラムの実行には問題ないのですが、自分のパソコン、共用パソコンの場合なら自分専用のUSBメモリやSDカードにTiny Basicが入っているという場合を除き、プログラムの運用上は問題大ありです。他部課に流してはいけないマル秘データファイルを作成するプログラムを会社や学校で共用のパソコンでパソコン内蔵のハードディスクに入っているTiny Basicで作成して実行したとしたら、誰でも中身が見られるフォルダの中にマル秘データを書き込んでしまうことになります。これは立派な情報漏洩です。
これを避けるにはカレントディレクトリが共用フォルダ以外になるようにすればいいのですが、今も言ったようにTiny Basicでは実行するプログラムが入っているフォルダがカレントディレクトリになるので、作ったプログラムをTiny Basicが入っているフォルダ以外の場所に保存するようにすればいいことになります。
【フォルダを新規作成してプログラムを保存する】
※Windowsのエクスプローラーの使い方がわかっていらっしゃる方は、この節は読み飛ばしていだだいてかまいません。
ここでは自分のUSBメモリに seiseki_shori というフォルダを作成し、ファイル作成プログラムを meibo_generator.tbt 、作成するファイルを meibo.txt として説明します。
図16-5.名前を付けて保存の画面
図16-5はUSBメモリをセットした状態でプログラム保存を名前を付けて保存するときの画面です。いちばん上の段はファイルを保存する場所(ドライブ/フォルダ)を選ぶところです。ここでセットしたUSBメモリを選んでクリックします。この例だと挿し込んだUSBメモリはHドライブです。すると図16-6のようにUSBメモリの内容が表示されます。このUSBメモリにはすでに kyozai、bukatsu という2つのフォルダがあるのがわかります。
図16-6.USBメモリを開いたところ
ここでUSBメモリの内容(この例なら2つのフォルダ)が表示されている領域内のどこでもいいのでマウスクリックをもっていって右クリックします。ポップアップメニューが出るのでここで新規作成を選びます。するとさらにサブメニューが出るのでここでフォルダーを選んでクリックします。
図16-7.フォルダ名を決める
ここでフォルダ名を決めます。すでにあるフォルダ名と同じ名前にはできません。
図16-8.新しいフォルダができた
新しいフォルダができました。以後このフォルダを専用フォルダとよびます。出来上がった専用フォルダをダブルクリックします。
図16-8.新しいフォルダにプログラムを保存
出来上がった専用フォルダの中にプログラムを保存します。プログラムを保存したら実行してみましょう。実行画面は図16-3と同じなので省略します。
図16-9.プログラム実行後の専用フォルダの中身
プログラム実行後の専用フォルダの内容をエクスプローラー見てみると、保存したプログラムとこのプログラムで作成したデータファイルがあるのがわかります。
図16-10.プログラムで作成したファイルの中身
作成したファイルの中身を確認してみましょう。拡張子が .txt のファイルをダブルクリックすると、Windowsの場合メモ帳(Notepad)が自動的に起動して、ファイルを読み込みます。ファイルの内容は図16-10のように、1件1件のレコードのアイテムが , (半角カンマ)で区切られています。ここでメモ帳(Notepad)でファイルの中身を編集しないように気をつけてください。Enterキー(Returnキー)を押すのもダメです。内容を確認したらメモ帳(Notepad)を閉じてください。
【この章のまとめ】
ファイルを使用するには、まずファイルを開く(OPEN)必要がある。
ファイルにデータを書き込むには新規作成モード(OUTPUT)か、追加モード(APPEND)モードで開く
新規作成モード(OUTPUT)でOPENすると、同名のファイルがすでに存在する場合、その内容がいったん消去される。
ファイルにデータを書き込むときは PRINT #(ファイル番号)命令を使う。
ファイルの使用が終わったら、ファイルを閉じる(CLOSE)する必要がある。
現在処理の対象になっているフォルダをカレントディレクトリという。
Tiny Basic for Windowsでは、実行するプログラムが保存されているフォルダがカレントディレクトリになる。
このカテゴリーもいよいよ終点に近づいてきました。この章以後ではファイルを使うプログラムについて学びます。ファイルについて勉強するには、ファイル名、拡張子、補助記憶装置(媒体)などについても知る必要があります。本カテゴリーの目的は「プログラミング体験」と「プログラミング的思考を身につける」ですから、Windowsパソコン初心者の方でもわかるよう、この辺は必要最小限の範囲にとどめ、なるべく平易に説明します。またWord、Excelなどをすでに使っていて、ファイルについての基本知識がある方はこの章は読み飛ばしていただいてかまいません。
またTiny Basic for Windowsではファイルを取り扱う方法は
①旧来の方法
②.NET Frameworkに対応した方法(新しい方法)
の2つがありますが、本カテゴリーではファイルとはどういうものかを知るために①の方法に基づいて説明します。
【ファイルとは】
図15-1は一般的にファイルとよばれているもので、○月分売上伝票とか○年○組生徒指導要録など、同じ種類(目的)の書類をまとめておくのに使われます。
コンピュータのファイルも基本的にはこれと同じで
①同じ種類(目的)のデータをまとめておくもの
です。ただコンピュータのファイルには
②ある目的のための材料箱というもの
もあります。本カテゴリーでは①の意味でのファイルについて中心にお話します。
図15-1.事務用品のファイル
【ファイル・レコード、アイテム】
ファイルとは同じ種類(目的)のデータをまとめておくものでした。たとえば担任クラスの生徒の名簿を考えてみます(図15-2)。
図15-2.名簿の例
これがファイルです。ファイルの中の1件1件のデータ(この例なら1行)をレコードといい、1件のレコードを構成する各項目(この例なら出席番号、氏名、ヨミガナ)をアイテムといいます。
プログラムを作るとき、最初に処理の手順(アルゴリズム)を考えたように、ファイルを使うには先にファイル設計をしておく必要があります。もし名簿が図15-3のようだったら、こんな名簿使いにくいことこの上ないですね。
図15-3.使いにくい名簿
このように1レコード中のアイテムの並びをどうするのか先に決めておくことが大切です。ここでは図15-2のように出席番号、氏名、ヨミガナの順としておきます。
【主記憶装置と補助記憶装置】
図15-4.コンピュータを構成する各装置
第4章で出てきたこの図をもう一度復習しましょう。今のノートパソコンでは一見してもわかりませんが、コンピュータの中身は図15-4のようになっています。今までやってきたプログラム、たとえば次のプログラムは、図15-4の主記憶装置より上の部分(中央処理装置=Central Processing Unit=CPU、入力装置、出力装置、主記憶装置)だけを使っています。
INPUT "A=",A
INPUT "B=",B
C=A+B
PRINT "A+B=";C
END
ファイルを使うプログラムでは補助記憶装置(固定ディスク装置、CD/DVDドライブ、USBメモリ、SDカードなど)も使います。まず主記憶装置と補助記憶装置はどう違うのかを知っておきましょう。
上のプログラムの場合、キーボードから入力された2つの数を、それぞれ変数A、Bに記憶します。このとき2つの変数は主記憶装置内に自動的に格納されます。これは主記憶装置はCPUが直接管理しているからです。これに対してデータを主記憶装置ではなく、補助記憶装置に記憶する場合、①使用するファイルを開く②データをファイルに書き込む③ファイルを閉じるというステップを踏まなくてはなりません。これは補助記憶装置はCPUが直接管理していないため、使うための準備から後始末まで、すべてプログラムでやらなくてはならないからです。
【補助記憶装置と補助記憶媒体】
ここで、何の説明もなく補助記憶装置という言葉を使いましたが、具体的な例でみてみましょう。目で見て最もわかりやすいCD/DVDドライブを例にとります。
図15-5.補助記憶装置(CD/DVDドライブ)
これはパソコン内蔵のCD/DVDドライブです。ここに音楽CDをセットすればパソコンをCDプレイヤーとして、映画やドラマなどのDVDをセットすればDVDプレイヤーとして使用することができます。そしてここに書き込み可能なCD-R、CD-RW、DVD-R、DVD-RW(以下、ディスクといいます)などをセットすれば、このCD/DVDドライブは補助記憶装置となります。上の写真をよく見ると、中心にセットしたCD、DVDを回転させる軸とディスクの内容を読み取ったり、ディスクにデータを書き込む光ヘッドがあるのが見えます。このような駆動装置、アクセス装置を総称して補助記憶装置といいます。
図15-6.補助記憶媒体(DVD-R)
この装置にセットするディスクのひとつが図15-6のDVD-Rです。補助記憶装置にセットして使用するディスク、USBメモリなどを補助記憶媒体(最近ではメディア、ストレージというようです)といいます。ファイルはこの補助記憶媒体に書き込まれます(記録されます)。
図15-7.補助記憶媒体を補助記憶装置にセットしたところ
このとおり補助記憶装置とは補助記憶媒体の内容を読み書きする装置のことなのですが、本カテゴリーでは煩雑さを避けるため補助記憶媒体をセットした状態(図15-7)を補助記憶装置と呼ぶことにします。
[主記憶装置と補助記憶装置の特性と欠点]
①記憶容量
一般的に主記憶装置と補助記憶装置では補助記憶装置の方が記憶容量が大きいです。筆者のパソコンの場合、主記憶装置の記憶容量は8GB(ギガバイト)ですが、使用している補助記憶装置はいちばん容量が小さいもので500GBほどです。今日ではコンビニで売ってるUSBメモリやSDカードでも32GB、64GBくらいが普通になっています。なので全校生徒(児童)の指導要録などの大量の(容量の大きい)データはファイルとして補助記憶装置に、計算結果や処理中のデータは保存の必要がない限り主記憶装置内だけで扱うようにします。
②速度
主記憶装置と補助記憶装置では主記憶装置の方が記憶・記憶内容の読み出しの速度が速いです。今日のパソコン用補助記憶装置で一般的な事務処理プログラム程度ではあまり意識する必要はありませんが、画像・音声・動画を大量に扱う場合、補助記憶媒体への書き込み速度はシステム全体の運用効率にかなり影響が出ます。
③保存性
最後にこの章で最も大事なことを知っておきましょう。それは補助記憶装置の記憶は媒体が物理的に破損するか記録内容を消去するプログラムを実行しない限り永久に残るということです。これに対して主記憶装置の記憶内容はパソコンの電源を切るかパソコンを再起動かけたところですべて消えます。なので永久に保存しておきたいデータは補助記憶装置に記憶させるようにします。
[ドライブとフォルダ(ディレクトリ)]
図15-8.補助記憶装置のいろいろ
前節では補助記憶装置の説明としてCD/DVDドライブをとり上げましたが、補助記憶装置には図15-8のようにいろいろなものがあります。それぞれの装置の詳しい構造を知ることは本カテゴリーの目的から外れますのでここでは説明しませんが、外見からはわからなくともどの装置も駆動部、アクセス部(コントローラ)と記録媒体(不揮発性メモリ)で成り立っていることは共通しています。これらの補助記憶装置をすべてパソコンに接続した上で、WindowsシステムツールのPCを開くと図15-9のように表示されます。
図15-9.複数の補助記憶装置が接続された状態
図15-9の下半分のデバイスとドライブの部分を見ると現在接続されている補助記憶装置がわかります。ここで各装置のところに表示されているTIH0422000AやHD-PCGU3-Aなどをボリュームラベル(ボリューム名)といい、各補助記憶装置に付けられている名前とお考えください。ボリュームラベルはご自分の好きな名前に付け替えることができます。ボリュームラベルの後ろの(C:)や(F:)をドライブ名といいます(ドライブ名はお使いのパソコンにより異なります)。ボリュームラベルは長くて煩雑なので、プログラム中で補助記憶装置を扱うときはドライブ名を用います。
では、これらの補助記憶装置にデータがどのように記録されているのかを見てみましょう。ここではTiny Basic for WindowsをUSBメモリにインストール(【第0章】実習の準備参照)したものとして考えます。デバイスとドライブのTBasic.exeが入っているドライブをダブルクリックしてください(この例ではUSBメモリ)。すると図15-10のように表示されます。
図15-10.USBメモリをダブルクリックしたところ
黄色いノートみたいなアイコンが並んでいますが、これをフォルダ(ディレクトリ)といいます。1個のUSBメモリを複数の目的に使う場合、ファイルをそのままでどんどん書き込んでいくと、後で見た時に「この作業に必要なファイルはどれだっけ」と探すのが大変になります。そこで目的別にファイルを分類しておくために、フォルダを作って、その中にファイルを書き込むようにします。この例ではTBasicというフォルダにTiny Basic for Windowsが入っています。ではTBasicというフォルダをダブルクリックしてみましょう。今度は図15-11のように表示されます。
図15-11.TBasicフォルダを開いたところ
Tiny Basic for Windows本体のTBasic.exeとTiny Basicが使用するいろいろなファイルが同じフォルダ内にあるのが確認できます。他にもいろいろなフォルダやファイルがありますが、これらはTiny Basic for Windowsをインストールしたときに自動的にコピーされたドキュメントやサンプルプログラムです。
[ファイルパス]
ここでいうパスとはpass(通行証/合格)ではなくpath(経路/道)です。対象のファイルまで辿り着く経路ということですが、Tiny Basic for Windowsの本体(TBasic.exe)が入っている場所を例にすると
Dドライブ(の媒体)の中のTBasicというフォルダの中のTBasic.exeというファイル
ということになります。これをTiny Basicでは
"D:¥TBasic¥TBasic.exe"(¥はお使いのOS/ブラウザによっては\と表示されているかもしれません)
と書きます。ファイルパスの書き方は
ドライブ名:¥フォルダ名¥フォルダ名・・・・¥ファイル名
です。ファイルバスのうちドライブ名からフォルダ名は省略可能ですが、省略した場合(デフオルトのファイルパス)は、Tiny Basicの場合、TBasic.exeが入っている場所と同じ場所を指定したものとみなされます。
【カレントディレクトリと絶対パスと相対パス】
今、ファイル操作(処理)の対象になっているフォルダ(ディレクトリ)のことをカレントディレクトリ(カレントフォルダ)といいます。そしてドライブ名からフォルダ名~・・・~ドライブ名~ファイル名で表すファイルパスを絶対パス、カレントディレクトリから見て目的のディレクトリの場所を示す表し方を相対パスといいます。下の図で説明します。
図15-12.絶対パスと相対パス
ここにA駅からB駅を通ってC駅・D駅を結ぶ鉄道があります。B駅でC駅方面とD駅方面は分岐します。今、A駅発C駅行きの電車が走っています。この電車がB駅に停まっているとき、B駅で降りる乗客を降ろしたりB駅から乗る乗客を乗せることはできますがC駅までの乗客を降ろすことは(事故・故障などがない限り)ありません。この場合、電車が停まっている駅がカレントディレクトリだと思ってください。そしてこの電車が走る経路(駅順)、A→B→Cが絶対パスです。
終点のC駅に着いた後、この電車はD駅行きになるとします。この場合、この電車はA駅まで戻る必要はなく、B駅まで戻って進行方向が変わりD駅に向かいます。この経路はC→1駅戻る→Dということになります。この表し方が相対パスです。筆者の趣味丸出しなたとえでごめんなさい💦💦
【この章のまとめ】
ファイルとは、同じ種類(目的)のデータをまとめておくもの、ある目的のための材料箱のことである。
補助記憶装置は主記憶装置と比べて大容量のデータを永久的に保存することが可能である。ただしアクセス速度は主記憶装置に比べて遅い。
ファイルを構成する1件1件のデータをレコード、レコードを構成する各データをアイテムという。
1つの補助記憶装置を複数の目的で使用する場合、目的別にファイルをまとめておくものをフォルダ(ディレクトリ)という。
ファイル操作の対象となっているフォルダをカレントディレクトリ(カレントフォルダ)という。
絶対パスとは目的のファイルまでの経路をドライブ名、フォルダ名~・・・ファイル名で表し方である。
目的のファイルまでをカレントディレクトリからの経路での表し方を相対パスという。
【関数】
今まで何回かこの言葉を使ってきましたが、命令との違いについて説明してきませんでした。ここまでのレベルのプログラムではこの違いがわからなくてもとくに支障はありませんでしたが、コンピュータのコンピュータらしいプログラムを作るには、知っておいた方がいいことなのでここで勉強しましょう。
図14-1.数学の関数
図14-1.は中学校でも習う一次関数のグラフです。数学でいう関数とは伴って変わる数という意味です。プログラミング言語における関数はこの意味もありますがどちらかというと「マジシャンの箱」のようなものと考えてください。
図14-2.プログラミング言語の関数
マジシャンの箱はステッキで触れると中から鳩や万国旗が出てきますが(ネタ古っ)もちろんタネも仕掛けもあるわけです。プログラミング言語の関数とは、何か材料を入れると加工されて完成品が出てくる箱だと思ってください。この箱に入れる材料のことを引数(ひきすう)、箱から出てくる完成品を戻り値(もどりち)といいます。筆者の亡父が高校(旧制中学)の時使っていた数学の教科書では関数は「函数」と書かれていましたが、プログラミング言語の関数は函数と書く方が適切なような気がします。
Tiny Basic for Windowsの関数では引数が不要なものもあります。今まで出てきたサンプルプログラム中にもすでに登場している関数もあります。
[Tiny Basic for Windowsの便利な関数](一部)
SQR(正の数) 平方根を求める
INT(数) 数の小数点以下を切り捨てて整数化する
ROUND(数) 数の小数点以下を四捨五入して整数化する
RND 0以上1未満の乱数を得る(*1)
PI 円周率 3.14159265358979324 を得る(*2)
SIN(数) 正弦を得る(*3)
COS(数) 余弦を得る(*3)
TAN(数) 正接を得る(*3)
MAX(数1,数2) 数1と数2の大きい方を得る
MIN(数1,数2) 数1と数2の小さい方を得る
図14-3弧度法(ラジアン)span>
(*1)正式な書き方はRND(数)。普通に乱数を発生させる場合、数は正の数。省略した場合は正の数が指定されたものとみなす。
(*2)関数というよりプログラミング言語が提供する定数(予約変数)。
(*3)数は弧度法(ラジアン、図14-3)で与える。
A=5
B=SQR(A)
C=INT(B)
PRINT B,C
R=10
S=PI*R^2
PRINT S
END
2.2360679774997897 2
314.159265358979324
図14-4.数値関数のサンプルプログラムと実行結果
これらは戻り値が数値の関数なので数値関数とか数学関数とよばれます。プログラミング言語の関数には戻り値がストリングのストリング関数もあります。
DATE$ 現在の日付を yyyy/mm/dd形式で得る
TIME$ 現在時刻を hh:mm:ss形式で得る
LEFT$(ストリング,自然数) ストリングの左から(自然数)分文字の文字を得る
RIGHT$(ストリング,自然数) ストリングの右から(自然数)分文字の文字を得る
LEN(ストリング) ストリングの文字数を得る(戻り値は数値)
MID$(ストリング,自然数1,自然数2) ストリングの左から(自然数1)文字目から(自然数2)文字分の文字を得る
NOW$=DATE$+" "+ TIME$
L=LEN(NOW$)
Y$=LEFT$(DATE$,4)
M$=MID$(DATE$,6,2)
D$=RIGHT$(DATE$,2)
PRINT NOW$,L
PRINT "今年は";Y$;"年です"
PRINT "今日は";M$;"月";D$;"日です"
END
2023/04/26 11:37:30 19
今年は2023年です
今日は04月26日です
図14-5.ストリング関数のサンプルプログラムと実行結果
これらの関数はプログラミング言語が提供しているものなので組込関数とよばれることもあります。
【ストリングの長さ】
※この節は昔のBASICをやったことのない方には???かもしれません。今のTiny Basicのプログラミングだけ覚えたい、という方は今は読み飛ばしていただいてかまいません。
1:STRG1$="ABCDE"
2:STRG2$="東京大阪福岡"
3:PRINT STRG1$,STRG2$
4:PRINT
5:L1=LEN(STRG1$)
6:L2=LEN(STRG2$)
7:PRINT L1,L2
8:PRINT
9:C1$=MID$(STRG1$,3,2)
10:C2$=MID$(STRG2$,3,2)
11:PRINT C1$,C2$
12:END
図14-6.Tiny Basicのストリング長を調べるプログラム
図14-7.ストリング長を調べる
図14-6のプログラムの実行結果は図14-7のようになります。Tiny Basicでは日本語(全角文字)も含めて「見える1文字」は1文字と数えます。同じプログラムを昔のBASICで実行すると図14-8のようになります。
図14-8.昔のBASICでのストリング長
昔のBASICでは半角英数字・記号・カタカナは1文字1バイト、日本語(全角文字)は1文字で2文字と数えます。昔のBASICから今のTiny Basicに乗り換える場合、注意が必要なところです。
【サブルーチン】
コンピュータの得意技のひとつがデータの保存と再利用でした。同じように処理の再利用もできます。図14-8のプログラムの10~13行目はサブルーチンとよばれ、プログラムの他の箇所から呼び出されて使われます。13行目のRETURNは呼び出し元に戻る命令です。サブルーチンは何度でも呼び出して使えます。サブルーチンを呼び出して使う側(図14-6のプログラムなら1~9行目)をサブルーチンに対しメインルーチンと呼びます。制御文ブロックが構成できるTiny Basicでこの程度のプログラムではこのような単純なサブルーチンを使う意味はほとんどありませんが、ある制御文ブロック中の処理を別のブロックで使いたい時には使います。Tiny Basicでサブルーチンをサブルーチンらしく使う場面は、関数を自作する場合です(当カテゴリーでは扱いません)。
1:RESTORE *EKIMEI
2:EKI$=""
3:WHILE EKI$<>"//"
4: READ EKI$,SHA$,SEN$
5: IF EKI$<>"//" THEN
6: GOSUB *DISP
7: END IF
8:WEND
9:END
10:*DISP
11:TXT$=EKI$+"駅は"+SHA$+SEN$+"の駅です"
12:PRINT TXT$
13:RETURN
14:*EKIMEI
15:DATA "厚岸","JR北海道","根室本線"
16:DATA "谷田川","JR東日本","水郡線"
17:DATA "合格","大井川鉄道","大井川本線"
18:DATA "教会前","JR四国","鳴門線"
19:DATA "東新庄","富山地方鉄道","宇奈月本線"
20:DATA "//","",""
厚岸駅はJR北海道根室本線の駅です
谷田川駅はJR東日本水郡線の駅です
合格駅は大井川鉄道大井川本線の駅です
教会前駅はJR四国鳴門線の駅です
東新庄駅は富山地方鉄道宇奈月本線の駅です
図14-8.サブルーチンを用いたプログラム例と実行結果
【サブルーチンのネスティングと変数の値引継ぎ】
1:A=0
2:PRINT "メインルーチンスタート"
3:GOSUB *SUB_1
4:GOSUB *SUB_2
5:PRINT "A=";A,"B=";B
6:PRINT "プログラム終了"
7:END
8:
9:*SUB_1
10:A=A+1
11:PRINT "サブルーチン1を実行しました";I
12:RETURN
13:
14:*SUB_2
15:A=A+10
16:B=5
17:GOSUB *SUB_1
18:PRINT "サブルーチン2を実行しました";I
19:RETURN
図14-9.サブルーチン間で変数を引継ぐプログラム
図14-9のプログラムでは、メインルーチンの3行目まできたところでサブルーチンへ飛びます(この例では*SUB_1以後)。サブルーチン内の12行目まできたところでRETURNなのでメインルーチンに戻ります。戻り先はこのサブルーチンを呼び出した次の行です(ここでは4行目)。4行目はまたサブルーチンへのジャンブ(今度は*sub_2以後)です。サブルーチンの17行目までくると、またサブルーチン(*sub_1以後)へジャンプします。12行目のRETURNですが、今度は戻り先が18行目になります。サブルーチンもFOR制御文、WHILE制御文のようにネスティングができます。実行結果は図14-10のようになります。
図14-10.サブルーチン間での変数引継ぎ
ところで、実行結果を見ていただければおわかりと思いますが、変数Aの値はメインルーチンからサブルーチン、また別のサブルーチンへ引き継がれていることがわかります。また変数Bは2つ目のサブルーチン内で初めて出てきたものですが、その値はメインルーチンに戻っても引き継がれます。普通のサブルーチンの使い方では変数の値はメインルーチンとすべてのサブルーチン間で引き継がれます。このようにプログラム中のすべての場所で値が引き継がれる変数をグローバル変数といいます。引き継がれるということは、たとえばサブルーチン内でメインルーチン内で使用している変数を誤って使ってしまうと、変数の値を壊してしまうことになります。これに対し特定の範囲でのみ有効な変数をローカル変数といいます。Tiny Basicや昔のBASICでは、自作の関数内で使用する変数以外はすべてグローバル変数になります。
【昔はよかったなぁ】
今のTiny Basicではあまり出番のないサブルーチンですが、(IFブロックがなかった)昔のBASICではなくてはならないものでした。図14-9のプログラムは第12章の図12-7のプログラムをサブルーチンを使うよう書き換えたものです。IFブロックが使えない昔のBASICでは、条件が成立したとき(またはしなかったとき)の処理が数十行に及んだり、その中にまた別の制御文が入ったりするときは、サブルーチンを使わなければ事実上プログラミングは不可能でした(プログラムの1行が255文字以内という制限があったため)。
図14_9サブルーチンを使ったプログラム例span>
この最初の行(行番号10)のGOTO 1000を見て「懐かしい」と思われた方、昭和プログラマ同窓会やりましょう🍺🍶🍣。
冗談はさておき、このプログラムは行番号1000~1200がメインルーチン、100~320行目がサブルーチン群です。最初の行のGOTO 1000がないと、プログラムは行番号100からメインルーチンとして開始されます。そして行番号190にきたところで「RETURN?ってどこへ帰ればいいんだ?」となり、コンピュータは止まってしまいます。これを避けるために、プログラム開始直後にサブルーチン群を飛ばしてメインルーチンの頭から実行するように、先頭にGOTO命令が置かれます。昔はなんでこんな面倒なプログラムの書き方をしたのかというと、昔のBASICではこのようにサブルーチンを最初に、メインルーチンを後ろに置いた方がメモリ節約になったからです。メモリが32Kのパソコンでまともなプログラムを書くには必須テクニックでした。GOTO命令はたしかにあまり使いたくない命令なのですが、サブルーチンが多いプログラムではなくてはならない命令だったのです。
【この章のまとめ】
材料(引数)を渡して完成品(戻り値)が出てくる箱を関数という。
プログラム中で何回も出てくる処理はサブルーチンにして呼び出して使うことができる。
サブルーチンはネスティングできる。
プログラム中のどこでも値が引き継がれる変数をグローバル変数、特定の範囲でのみ有効な変数をローカル変数という。
今まで堅苦しいプログラムばかり作ってきましたが、ちょっと楽しいプログラムを作ってみましょう。そう、ゲームのプログラムです。コンピュータゲームというと「ゲームばかりやってないで勉強しなさい」とお父さんお母さんに叱られたとかオンラインゲームで課金し過ぎてお金がなくなったとかあまりいい話を聞きませんがそれはゲームで遊ぶ側の話です。そのゲームのプログラムを作るということになると話は違ってきます。ゲームのプログラム1つ作る過程でプログラミングの高度なテクニックや様々なアルゴリズムを学ぶことができます。筆者はゲームを作りながらプログラミングの勉強をすることは否定しません。ということでこのカテゴリーでも実際にゲームのプログラムを作ってみたいと思います。とはいっても 残念ながらTiny BASIC for Windowsでテキスト画面のみでは、画面いっぱいに敵戦闘機が飛び回るとか、クエストクリアしたら美少女が微笑むようなゲームは無理ですが、ストリングと計算式のみでも知育ゲームやアドベンチャーゲームのようなものはできます(なんか美少女のたとえが多くね?・・・汗)。
[乱数]
ゲームで必須なものは乱数です。乱数とは、規則性のない数の並びのことです。たとえば2、3、4、6なら12の約数を小さい順に並べたものとわかりますが、4、7、2、9だとまったく規則性がありません。ゲームでは敵がどこから襲ってくるかわからない、どこに何が隠れているかわからないなど、ランダムに何かが出てくるという場があります。これを実現かるのが乱数であり、Tiny BASICにはこの乱数を発生させる機能があります。それが次のRND(*)です。次のプログラムを実行してみてください。
FOR I=0 TO 10
R=RND
PRINT R
NEXT I
実行結果は図13-1のようになります。
図13_1.乱数を発生する
RNDは0以上1未満の乱数を発生する関数(後述)です。ただしひとつ注意することがあります。上のプログラムを何回か実行してみてください。おわかりと思いますが乱数とはいってもコンピュータで発生させる場合ある計算式にしたがって発生させるので、同じプログラムを繰り返し実行すると、発生する数の順番はいつも同じになってしまいます。これではたとえばシューティングゲームに使うにしても、敵が出てくる場所と順番がいつも同じになってしまい、面白みが半減ですね。これを回避するには、次のようにRANDOMIZE(*)という一文をRNDの前に入れます。これはコンピュータの内部時計を用いて、乱数発生の計算式の初期化を行なうものです。
RANDOMIZE
FOR I=0 TO 10
R=RND
PRINT R
NEXT I
これで数回実行してみましょう。今度は発生する数の順番はバラバラになったはずです。では、これで1から10までの整数をランダムに発生させる方法を考えてみましょう。RNDで発生する数は0以上1未満ですから
RANDOMIZE
R=RND*10+1
で 1 から 10 までの数がランダムで得られます。さらに
RANDOMIZE
R=INT(RND*10)+1
とすると、発生した数の小数点以下が切り捨てられ1から10までの整数がランダムで得られます。INTはInteger(整数の意味)の省略形でINT(数値)で( )内の数値の小数点以下を切り捨てて整数化する関数です。次のプログラムで試してみてください。結果は図13_2のようになります。
RANDOMIZE
FOR I=1 TO 10
R=INT(RND*10+1)
PRINT R
NEXT I
END
図13_2.1から10の整数をランダムに発生させる
(*)RANDOMIZEとRNDの正式な書き方は
RANDOMIZE 整数(-32768~32767の範囲)
RND(整数)
ですが、Tiny Basicでは、どちらも整数は省略可です。省略しても不規則な数を発生します(図13-3)。普通のゲームプログラムならこれで問題ないと思います。
図13_3.1から100の整数をランダムに発生させる
[数当てゲームのプログラム]
それでは、ここまでの知識を使って簡単なゲームを作ってみましょう。コンピュータが隠した 1 から 100 までの整数を当てるゲームです。図13-4のプログラムを見てください。
1:CLS ' 画面をクリア
2:RANDOMIZE ' 乱数系列の初期化
3:PRINT "***** 数当てゲーム *****"
4:PRINT "今からコンピュータが隠した数を当ててください"
5:PRINT "数は 1 から 100 の整数のみです"
6:' 乱数を発生させる
7:R=INT(RND*100)+1
8:' 数を当てる
9:' 正解が出るまで以下の処理を繰り返す
10:DATAOK=0
11:WHILE DATAOK=0
12: PRINT
13:' 1~100の整数が入力されるまで繰り返す
14: NUMOK=0
15: WHILE NUMOK=0
16: INPUT " 1~100で数を当ててください",NUM
17: PRINT
18: IF NUM=>1 AND NUM<=100 THEN
19: NUMOK=1
20: END IF
21: WEND ' 1~100の整数が入力されるまで繰り返しここまで
22:
23:' 正解判定
24: IF NUM=R THEN
25:' 正解のとき
26: PRINT "正解です。おめでとうございます"
27: DATAOK=1
28: ELSE
29:' 正解ではないとき
30: IF NUM
32: PRINT "小さすぎます"
33: ELSE
34:' 大きすぎるとき
35: PRINT "大きすぎます"
36: END IF
37: END IF
38:WEND ' 正解が出るまでの繰り返しここまで
39:END
図13-4.数当てゲームのプログラム
プログラムスタート部分の1行目のCLSはCLear Screenの省略形で実行画面をすべて消去する命令です。表示が消去されるだけで記憶されているプログラムやデータが消去されるわけではありません(黒板消しのようなものです)。
2行目は今、説明した乱数の初期化です。3~5行目はプログラムと遊び方の説明です。
7行目がコンピュータが隠す数を発生させるところですが、ここでは1から100までの数を発生させることにします。
プログラム全体の流れとしては、最初にコンピュータが数を隠した後、正解が出るまで答えの入力を繰り返し実行されるようになっています。そしてプレイヤーが答えた数が1~100以外の数以外のときは入力がやり直しになるようになっています。それは11、38行目のWWHILE~WENDと15行、20行目のWHILE~WENDのネスティングで実現しています。この手法は実務プログラムではオペレータの入力ミスを防ぐ対策としてよく使われるものです。覚えておいて損はありません。
19、29行目のIF~END IFは正解不正解の判定です。正解ならこのプログラムを終了するように、不正解なら回答した数が大き過ぎか小さ過ぎかを表示するようにしています。
図13_5.数当てゲームの実行画面
【いろいろなエラー】
ここまでいろいろなプログラムを作ってきた皆さんは、いろいろなエラーを出してきたと思います。エラー(error)とは「誤り」とか「失敗」という意味です。何回もエラーを出して「俺にはプログラミングの才能なんてないんだ」と落ち込んでいる人はいませんか。気にする必要はありません。勉強中はむしろどんどんエラーを出してください(*)。筆者の経験で言えば、エラーを出してそれを修正してゆく中で学べるものはたくさんあります。
(*)Perl、PHP、C言語、アセンブリ言語などハードウェア、サーバーを直接操作するプログラミング言語の場合、パソコンをローカル環境(ネットワークから切り離したスタンド・アローンな状態)にして勉強してください。
プログラミングで発生するエラーは大別すると次の3つになります。
①文法エラー(Syntax error)
文法エラーというより構文エラー(書き方の誤り)です。たとえば次のプログラムを実行しようとすると、図14-6のような状態でコンピュータは止まってしまいます。
1:GOKEI=0
2:NINZU=0
3:BANGO$=""
4:WHILE BANGO$<>"//"
5:READ BANGO$,NAMAE$
6: IF BANGO$<>"//" THEN
7: PRIMT BANGO$;" ";NAMAE$;" ";
8: INPUT "得点="・,TEN
9: GOKEI=GOKEI+TEN
10: NINZU=NINZU+1
11: END IF
12:WEND
13:NINZU=NINZU-1
14:HEIKIN=GOKEI/NIN
15:PRINT USING "受験者 ##人";NINZU
16:PRINT USING "平均点###.#";HEIKIN
17:END
18:DATA "001","相沢 恭平"
19:DATA "002","小川 順子"
(中略)
54:DATA "037","渡部 浩司"
55:DATA "//",""
図13-6.文法エラー
プログラムの7行目を見ると、PRINTと書くべきところがPRIMTになっています。Tiny Basicにこんな命令はないので(変数とみなされてしまうため)、その後に続く内容と矛盾が生じてしまい、コンピュータが???状態になってしまったわけです。
②実行エラー(execute error/running error)
文法(書き方)の誤りはなくても、プログラム実行中に発生するエラーがあります。次の例は処理不可能なデータに当たってしまったコンピュータが「こんなのやってらんねぇ」となってしまった例です。
上のプログラムを修正して次のようになりました。これを実行してみたところ図13-7のようになりました。
1:GOKEI=0
2:NINZU=0
3:BANGO$=""
4:WHILE BANGO$<>"//"
5:READ BANGO$,NAMAE$
6: IF BANGO$<>"//" THEN
7: PRINT BANGO$;" ";NAMAE$;" ";
8: INPUT "点数 ",TEN
9: GOKEI=GOKEI+TEN
10: NINZU=NINZU+1
11: END IF
12:WEND
13:NINZU=NINZU-1
14:HEIKIN=GOKEI/NIN
15:PRINT USING "受験者 ##人";NINZU
16:PRINT USING "平均点###.#";HEIKIN
17:END
18:DATA "001","相沢 恭平"
19:DATA "002","小川 順子"
(中略)
54:DATA "037","渡部 浩司"
55:DATA "//",""
図13-7.実行エラー
プログラム14行目は得点の合計を受験者数で割って平均点を計算するところですが、除数になる変数名がNINZUであるべきところNINになっています。この場合、プログラムの書き方としては誤っていないので文法エラーにはならずプログラムは実行開始されます。しかし変数NINの値は 0 なので14行目で処理不可能となり止まってしまいました(除数が0の割り算は不可能なのは算数でもコンピュータでも同じです)。
➂論理エラー(logical error)
プログラムの文法上の誤りも入ってくるデータにも誤りはないのに、処理内容の誤りにより正しい処理結果が得られないエラーです。簡単な例で説明します。
次の例はキーボードから単価と売上個数を入力し売上金額を計算するプログラムなのですが、単価100円、個数5と入力したところ金額が500円となるところが105円になってしまいました。
1:INPUT "単価=",TANKA
2:INPUT "個数=",KOSU
3:KINGAKU=TANKA+KOSU
4:PRINT "金額=";KINGAKU
5:END
図13-8.論理エラー
誤り箇所はプログラム3行目です。
KINGAKU=TANKA*KOSU
とするべきところが
KINGAKU=TANKA+KOSU
になっています。この場合、プログラムの書き方に誤りはなく、データも変数TANKAの値が500、変数KOSUの値が5なので、KINGAKU=TANKA+KOSUの計算は問題なくできます。なのでプログラムは途中で止まらず最後まで実行されます。しかし得られた結果は求めているものではない、ということになります。
このように論理エラーは途中でコンピュータが止まってしまうことがないので発見と修正が最もやっかいなエラーといえます。ゆえにこのような誤りのことを、みつけにくいという意味でバグ(bug、ダニのような小さな虫)、バグをみつけて修正することをデバッグといいます。
コンピュータはたとえて言えば「忠実だけど融通がきかない部下」です。
「課長、この指示はこれでいいんですか?」
「おぅ、ありがとう。ここは間違い、こうしてくれ」
とはなりません。指示書が間違っていようが渡されたデータに誤りがあろうが、そのとおりに実行しようとします。たとえその結果、会社が倒産(システムがダウン)するとしてもです。コンピュータの計算(処理結果)が正確なのは正しいプログラムとデータが与えられていれば、の話です。
【この章のまとめ】
ゲームの主役は乱数である。
RNDは乱数を発生する関数である。
RANDOMIZEは乱数系列を初期化する。
プログラミング上のエラーには文法エラー実行エラー、論理エラーがある。
プログラムのミスをバグ、バグをみつけて修正することをデバッグという。
神岡鉄道はかってJR高山本線の猪谷(富山県)から奥飛騨温泉口(岐阜県)までを結んでいた第3セクター鉄道である。旧国鉄の神岡線を引き継ぎ1984年に開業したものの、わずか22年で全線廃止となった。廃線後も駅・線路などの施設は撤去されずに残り、保有していた2両の気動車KM-101/KM-151も神岡鉱山口駅に併設されている車庫(検車区)に保存された。
神岡鉄道の保存状況は2008年、私が狭心症で入院する直前にこの目で確認しているのだが、その後はどうなっているのか、全くわからなかった。そこで休日の今日を利用して見に行ってくることにした。
↑クリックすると拡大画像で見られます
猪谷を出るとしばらく高山本線と並走し、分離してすぐにこの鉄橋を渡ります。2008年に残っていたこの鉄橋、今はどうなったのかな、もしかしてもうなくなった?と思いきや、まだありました(嬉し涙)。
↑クリックすると拡大画像で見られます
この鉄橋のある場所は地図上の赤線で示した所、撮影場所は🔴で示した位置。ここが富山と岐阜の県境。神岡鉄道はこの先岐阜県吉城郡神岡町(現・飛騨市)まで伸びていたので、終点の奥飛騨温泉口駅まで辿ってみたかったのだが、現在は新型コロナウィルス感染防止のため、県境を越えての移動は自粛が求められているので、今日はここまでで我慢我慢><
ところでこの神岡鉄道、廃線後に鉄オタにとっては嬉しいゴタゴタがあった。2006年、当時の飛騨市長、船坂勝美氏が、神岡鉄道の線路を不定期の観光鉄道として存続させる道を模索する意向を表明した。この話は神岡鉄道からは施設・車両の無償譲渡、親会社の三井金属からは、経営失敗時の施設撤去に備えて15億円の寄付を受けることで合意し、鉄道復活に向けて動き出そうとしていた。しかし2008年の市長選で船坂市長は観光鉄道化を含めた当時の市政を批判する井上候補に敗北した。2代目市長井上久則氏は「15億円の寄付金は再開に向けての物とは考えていない。レールや鉄橋は撤去する」と表明し、鉄道再開はいったんは非常に困難な見通しとなった。ところがその後、2016年に都竹淳也3代目市長が就任すると、同年12月に市議会は補正予算に、廃線跡を活用した「ロスト・ライン・パーク」構想のための費用を盛り込み、シンポジウムの開催と、旧神岡鉱山前駅に保存中の車両の中の1両(KM-101)を旧奥飛騨温泉口駅に移設する事業を実施するとした。
一方、市民団体などが運営する廃線跡を利用したレールマウンテンバイク「Gattan Go!!」(ガッタン ゴー)は2013年の利用者は26249人。2012年には鉄道の日実行委員会の日本鉄道特別賞を受賞という快挙を成し遂げ、2020年10月、廃線および構想から14年の歳月を経てついに動態保存による観光鉄道が実現した。
https://rail-mtb.com/about/history/
"https://rail-mtb.com/course/okuhida-gou/
普通自動車の運転免許を持っていれば気動車の運転体験ができるようだ。それも(多少金額はかかるが)最終的には101/151の2両編成を本線で1.2km運転できるとのこと。老後の楽しみができた\(^ ^)/