「パソコン利用技術」Ｂａｓｉｃコース

目次

1. ＢＡＳＩＣの起動と終了
2. プログラムを打ってみよう
3. 計算をしてみよう
4. ファイルを使ってみよう
5. グラフを書いてみよう
6. Ｙｅｓ／Ｎｏの判断を利用してみよう
7. 他のところへ行って下さい
8. くり返しをおこなう

1. コマンド
2. グラフィック画面制御
3. 一般命令
4. テキスト画面制御
5. 算術関数
6. １バイト系文字列操作
7. ファイル制御
8. Ｉ／Ｏポート入出力制御
9. エラー制御
10. その他の制御

1. 起　動　：
   ＤＯＳの状態（ A> ）から、コマンド n88basic とタイプする。

   終　了　：

   ＢＡＳＩＣの状態から、コマンド system とタイプする。

   自動実行：

   BASIC の起動時に BASIC のプログラム（prog-key）を実行する。

   n88basic /t:run "prog-key"

まず、次に示すプログラムをタイプして最後に「リターンキー」を押してください。文字の大文字、小文字を気にする必要はありません。

打ち終わったら、listとタイプしてみましょう。

1. プログラムリスト
   1000 CLS
   1010 PRINT "TEST1"
   1020 PRINT
   1030 PRINT "Hit Any key & Return "
   1040 INPUT A$
   1050 PRINT A$
   1060 END
   

   listとタイプしてみましょう。

   上のリストと同じように出ましたか？

   プログラムの実行

   runとタイプしてリターンキーを押す。

   プログラムを実行すると、次のような表示が表れます。

   表示
   

   −−−−−−−−−−−−−−−−−−−
   TEST1
   
   Hit Any key & Return
   ?
   −−−−−−−−−−−−−−−−−−−
   

   解説

   簡単な解説をします。今はこんなことかと思って下さい。後から読み返すと解ってくると思います。

   ここで用いた、CLS、PRINT、INPUTなどをコマンド（命令の名前）といいます。

   ---

   1000 1010 1020	行番号と言います。実行する順番を示しています。
   CLS	スクリーンをクリアーする
   PRINT "TEST1"	TEST1を書き改行する
   PRINT	何も表示せずに改行する
   INPUT A$	文字（数字を含む）を入力する
   PRINT A$	スクリーンに文字を書き改行する
   END	プログラムを終了する

1. 簡単な計算

   ---

   命令　式	解　　説
   print 1+2	書け　　1＋2の結果を
   print 4-1	書け　　4−1の結果を
   print 3*2	書け　　3×2の結果を
   print 8/2	書け　　8÷2の結果を

2. 変数を使った計算

   ---

   a=2	変数 a を 2 とする
   b=3	変数 b を 3 とする
   c=5	変数 c を 5 とする
   print a*c+b	書け　　a×c＋b の結果を
   print (a+b)*c	書け　　(a＋b）×c の結果を
   print a*c*c+b*c	書け　　a×c×c＋b×c の結果を

3. 関数を使った計算
   円周率をｐｉとし、三角関数（ sin(x) , cos(x) ）を求める。
   角度の計算は、Radian（ラジアン）で行なわれます。
   int(x)は、変数の整数部を求める。

   ---

   pi=3.14159	変数 pi を 3.14159 とする
   print sin(30)	書け　　sin(30)の結果を
   print sin(30/180*pi)	書け　　sin(30÷180×pi)の結果を
   print cos(30/180*pi)	書け　　cos(30÷180×pi)の結果を
   print int(pi)	書け　　piの整数部を
   print int(pi*10)	書け　　pi×10の整数部を

   積分式（Σx）

   ---

   １から４のたし算	解　　説
   print 1+2+3+4	書け　　1＋2+3+4の結果を
   x=0　　:　print x	x 　を 0とする　＆　書け　　x を
   x=x+1　:　print x	x+1 を xとする　＆　書け　　x を
   x=x+2　:　print x	x+2 を xとする　＆　書け　　x を
   x=x+3　:　print x	x+3 を xとする　＆　書け　　x を
   x=x+4　:　print x	x+4 を xとする　＆　書け　　x を

1. ファイルの一覧（リスト）
   filesとタイプすると、ファイルの一覧が表れます。
   files "a:*.bas"とすると、Ａドライブの拡張子がbasのファイルが表れます。

   ファイルへの書き込み（出力）

   ここで、ファイル（ a:\out1.prn ）への書き込みを行います。

   ---

   files	ファイルの一覧を見る
   close #1	閉じろ　　１番を
   open "a:\out1.prn" 　　for output as #1	開け　ファイル　a:\out1.prnを 書込みは　１番から
   print #1, 1	書け　１番に　　1を
   print #1, 9999	書け　１番に　　9999を
   print #1, "test"	書け　１番に　　testを
   close #1	閉じろ　　１番を

   ファイルの中身を見る

   ここで、先に書き込んだファイル（ a:\out1.prn ）の中身を見てみます。

   ---

   files	ファイルの一覧を見る
   close #2	閉じろ　　２番を
   open "a:\out1.prn" 　　 for input as #2	開け　ファイル　a:\out1.prnを 読み込みは　２番から
   input #2, a	入力せよ　２番から　　変数 a に
   print a	書け　　　a を
   input #2, b	入力せよ　２番から　　変数 b に
   print b	書け　　　b を
   input #2, ip$	入力せよ　２番から　　文字 ip$ に
   print ip$	書け　　　ip$ を
   close #2	閉じろ　　２番を

   ファイルを閉じる

   開いた（ open した）ファイルは必ず閉じて下さい。

   ---

   close #1	閉じろ　　１番を
   close #1, #2	閉じろ　　１番、２番を
   close	閉じろ　　ファイル全部を

５．グラフを書いてみよう

スクリーン を方眼紙として イメージすると簡単に描けると思います。

目盛りは、横が６４０目盛り（０〜６３９）、縦が４００目盛り（０〜３９９）です。

1. グラフのスケールを決める
   １スクリーンのモードの設定
   　・screen 3とすると横６４０縦４００のモードになります。
   ２描く場所を決めます。
   　・スクリーンの座標は、左上が（0,0）、右下が（639,399）です。
   　・描く場所を決めるのに、viewコマンドを使います。
   　□書式は　view（左上の座標）−（右下の座標）です。
   　・全スクリーンを使うには　　　view (0,0)-(639,399)
   　・部分的に使うには　　　　　　view (100,50)-(600,300)
   ３描く座標（スケール）を決めます。
   　・view コマンドで指定した枠の座標（スケール）を決めるのに、windowコマンドを使います。
   　□書式は　window （左上の座標）−（右下の座標）です。
   　・Ｘ座標、Ｙ座標ともに　０〜１００とすると、
   　　window (0,0)-(100,100)
   　・Ｘ座標、Ｙ座標ともに−１〜　　１とすると、
   　　window (-1,-1)-(1,1)

   直線を引く

   １スケールを決める

   screen 3

   view (100,50)-(600,300)

   window (-1,-1)-(1,1)

   ２線（ライン）を引くには、lineコマンドを使います。

   　□書式は、 line （開始座標）−（終点座標）

   ３横線を描く

   　・Ｘ軸（ y=0）は、

   line (-1,0)-(1,0)

   ４縦線を描く

   　・Ｙ軸（ x=0）は、

   line (0,-1)-(0,1)

   ５斜め線を描く

   ine (-0.5,0.5)-(0,0)

   四角形を描く

   　・四角形（ボックス）を描く時は、line コマンドの最後に、b パラメータを付ける。
   

   line (-1,-1)-(1,1),,b
   

   line (-0.5,-0.5)-(0.5,0.5),,b

   　

   課題：四角形を４本の線で描いてみよう！

   　

   円を描く

   円を描くには、circleコマンドを使用します

   □書式は、　circle （x,y),半径

   circle ( 0,0),1

   circle ( 0.5,0.5)0.5

   点を打つ

   点を打つ（プロット）には、psetコマンドを使用します

   □書式は、　pset （x,y)

   pset ( -0.2, 0.4)

   pset ( 0.4, 0.2)

   文字を入れる

   おおまかな位置に文字を入れます。

   文字のます目は、横８０字、縦２５列です。

   位置を指定するには、locateコマンドを使います。

   □書式は、　locate x,y

   locate 10, 15 : print -1

   locate 70, 15 : print 1

６．Ｙｅｓ／Ｎｏの判断を利用してみよう

1. （１）Ｙｅｓ／Ｎｏの表現方法
   コンピュータは、Ｙｅｓ／Ｎｏを表現するのに真（ -1 ）と偽（ 0 ）を使います。
   

   関係演算

   関係演算子は２つの数値を比較するときに用る。結果は、真(-1)、偽(0)で得られ、条件判定文などプログラムの流れを変えるのに用いる。

   ---

   関係演算子	演算内容	例
   ＝	等しい	Ｘ＝Ｙ
   ＜＞	等しくない	Ｘ＜＞Ｙ
   ＜	小さい	Ｘ＜Ｙ
   ＞	大きい	Ｘ＞Ｙ
   ＜＝,＝＜	小さいか等しい	Ｘ＜＝Ｙ,Ｘ＝＜Ｙ
   ＞＝,＝＞	大きいか等しい	Ｘ＞＝Ｙ,Ｘ＝＞Ｙ

   if ... then 〜 構文を使ってみる

   この構文は、論理式の結果により、プログラムの実行を制御します。

   □書式は、　if ＜論理式＞ then コマンドまたは行番号

   論理式が真（-1）ならば、then コマンドを実行します。

   論理式が偽（ 0）ならば、何もしないで次の行へ行く

   ---

   if x=>0 then print "Positive"	ｘが0より大きければ
   if ip$="end" then print "END"	ip$が「end」ならば
   if ip$<>"" then print ip$	ip$が空でなければ

７．他のところへ行って下さい

1. goto構文を使ってみる
   指定した行へジャンプし、そこからプログラムを実行する
   □書式は、　goto ＜行番号＞

   ---

   goto 200　　　　　　　200行へ行け

   if ... then 〜 構文を使ってみる

   if ... then 構文を用いてプログラムの流れを変える。

   ---

   100 if x=>0 then 200	ｘが0より大きければ　200行へ行け
   300 if ip$="end" then 900	ip$が「end」ならば　900行へ行け
   400 if ip$<>"" then 200	ip$が空でなければ　　200行へ行け

   gosub構文を使ってみる

   goto構文は、指定した行へ移動してプログラムを続けます。

   gosub構文は、移動した先のプログラム（サブルーチン）を実行した後、元の行の次に戻りプログラムを実行します。

   サブルーチンとは、他から独立したプログラムで、returnで終わっているものをいいます。

   ---

   プログラム	解説
   100 x=1	xを1とする
   110 print x	書け　xを
   120 gosub 200	サブルーチン　２００へ行け
   130 print x	書け　xを
   140 gosub 200	サブルーチン　２００へ行け
   150 print x	書け　xを
   160 end	終了
   200 x=x+10	xに１０を加えろ
   210 return	戻れ

８．くり返しをおこなう

1から5までの足し算をプログラムしてみましょう

1. ダイレクトモード　１
   ダイレクトモードとは、BASICが起動された直後の動作モードをいいます。

   ---

   print 1+2+3+4+5

   ダイレクトモード　２

   ダイレクトモード　１をばらばらにしてみました。

   ---

   x=0	初期設定　x=0
   x=x+1
   x=x+2
   x=x+3
   x=x+4
   x=x+5
   print x

   プログラムモード　１

   ダイレクトモード　２をプログラムしてみました。

   ---

   100 x=0	初期設定　x=0
   110 x=x+1
   120 x=x+2
   130 x=x+3
   140 x=x+4
   150 x=x+5
   160 print x	書け　xを
   170 end	終了

   プログラムモード　２

   if ... then 構文を使ってプログラムしてみました。

   ---

   100 x=0	初期設定　x=0
   110 y=0	初期設定　y=0
   120 y=y+1	yに1を加える。yは、1,2,3,4,5と変化する
   130 x=x+y	xにyを加える
   140 if y=<5 then 120	yが５より小さいか等しいときは、行120へ行け
   150 print y	書け　yを　　yは6になっています
   160 print x	書け　xを
   170 end	終了

   プログラムモード　３

   for ... next 構文を使ってみよう

   forからnextまでの区間中にある一連の命令を、くり返し実行します。>

   □書式は、　for ＜変数名＞＝＜初期値＞　next　＜終値＞

   nextをとおるたびに変数に 1 が足されます。
   

   変数が＜終値＞を越えると、for ... next は実行されず、nextの次へ実行が移ります。

   ---

   100 x=0	初期設定　x=0
   110 for y=1 to 5	変数　yの初期値1、終値5
   120 x=x+y	xに y を加える
   130 next y	yに 1 を加える。　yと終値との判断をする。
   150 print y	書け　yを　　yは6になっています
   160 print x	書け　xを
   170 end	終了