補足資料

１．サンプルプログラム 　本研究で使われた制御実習ボードの制御プログラムを以下に示す。ＢＡＳＩＣ言語には，Ｎ８８ＢＡＳＩＣ（ＮＥＣ）を使用している。末尾には，他のＢＡＳＩＣシステムヘの移植法も示してある。
☆電子サイコロ用（スペースキーを押して止める）

10 'save"SAI",A
20 SG$(0)="63"
30 SG$(1)="64"
40 SG$(2)="33"
50 SG$(3)="97"
60 SG$(4)="45"
70 SG$(5)="109"
80 SG$(6)="63"
90 SG$(7)="39"
100 SG$(8)="127"
110 SG$(9)="111"
120 CLS
130 RD=VAL(MID$(TIME$,7,2))
140 RANDOMIZE RD
150 CONSOLE 0,24,1,0
160 JUST=INT(RND(1)*9+.5)
170 CLS 3
180 OPEN "COM:N81NN" AS #1
190 PRINT #1,"u";:PRINT #1,"0"
200 PRINT #1,"v";:PRINT #1,"0"
210 PRINT #1,"w";:PRINT #1,"0"
220 FOR KAI=1 TO 100
230 FOR I=1 TO 6
240 BEEP
250 FOR DAM=0 TO 100:NEXT DAM
260 LOCATE 10,12:PRINT"　スペースキーを押して，サイコロを止めよう！"
270 STP$=INKEY$:IF STP$="　" THEN STP=STP+1
320 PRINT #1,"u";:PRINT #1,SG$(I)
370 IF STP=1 THEN *OWARI
380 NEXT I
390 NEXT KAI
400 *OWARI
410 BEEP 1:FOR TM=1 TO 5000:NEXT TM:BEEP 0

☆信号機用（対面式信号のシミュレーション）

10 'SAVE"SIGNAL",a
20 CONSOLE 0,24,1,0
30 CLS 3
40 OPEN "COM:N81NN" AS #1
50 PRINT #1,"u";:PRINT #1,"0"
60 PRINT #1,"v";:PRINT #1,"0"
70 PRINT #1,"w";:PRINT #1,"0"
80 L1$="1":GOSUB 250
90 L2$="4":GOSUB 260
100 FOR R=0 TO 10000
110 LOCATE 10,10:PRINT R
120 IF R=8000 THEN L2$="2":GOSUB 260
130 IF R=9000 THEN L2$="1":GOSUB 260
140 NEXT R
150 L1$="4":GOSUB 250
160 FOR R=0 TO 10000
170 LOCATE 10,10:PRINT R
180 IF R=8000 THEN L1$="2":GOSUB 250
190 IF R=9000 THEN L1$="1":GOSUB 250
200 NEXT R
210 L2$="4":GOSUB 260
220 GOTO 100
230 END
240 *LED
250 PRINT #1,"u";:PRINT #1,L1$:RETURN
260 PRINT #1,"v";:PRINT #1,L2$:RETURN
270 PRINT #1,"w";:PRINT #1,L3$:RETURN

☆ＬＥＤ８個ルーレット用（回転速度が遅くなり，ランダムに停止）

10 save"ruletONE",a
20 CLS
30 CONSOLE 0,24,1,0
40 XX=VAL(MID$(TIME$,7,2)))
50 RANDOMIZE XX
60 JUST=INT(RND(1)*8+.5)
70 CLS 3
80 OPEN "COM:N81NN" AS #1
90 PRINT #1,"u";:PRINT #1,"0"
100 FOR KAI=1 TO 10
110 FOR I=0 TO 7
120 BEEP
130 FOR DAM=0 TO 200:NEXT DAM
140 IF KAI>7 THEN FOR DAM=0 TO 1200*(KAI-7):NEXT DAM
150 L$=STR$(2^I):PRINT #1,"u";:PRINT #1,L$:GOTO 230
160 IF KAI>7 THEN FOR DAM=0 TO 1200*(KAI-7):NEXT DAM
180 L$=STR$(2^1):PRINT #1,"u";:PRINT #1,L$:GOTO 230
250 IF KAI=10 THEN IF I=JUST THEN END
260 NEXT I
270 NEXT KAI

☆ＬＥＤ２４個ルーレット用（回転速度が遅くなり，ランダムに停止）

10 'save'"rulet2",a
20 CLS
30 CONSOLE 0,24,1,0
40 INPUT"あなたの好きな３桁の数字を入力して下さい。",XX
50 RANDOMIZE XX
60 JUST=INT(RND(1)*23+.5)
70 CLS 3
80 OPEN "COM:N81NN" AS #1
90 PRINT #1,"u";:PRINT #1,"0"
100 PRINT #1,"v";:PRINT #1,"0"
110 PRINT #1,"w";:PRINT #1,"0"
120 FOR KAI=1 TO 10
130 FOR I=0 TO 23
140 BEEP
150 FOR DAM=0 TO 100:NEXT DAM
160 IF KAI>7 THEN FOR DAM=0 TO 800*(KAI-7):NEXT DAM
170 PRINT #1,"w";:PRINT #1,"0"
180 IF I<8 THEN L$=STR$(2^1):PRINT #1,"u";:PRINT #1,L$:GOTO 230
190 PRINT #1,"u";:PRINT #1,"0"
200 IF I<16 THEN L$=STR$(2^(1-8)):PRINT #1,"v";:PRINT #1,L$:GOTO 230
210 PRINT #1,"v";:PRINT #1,"0"
220 L$=STR$(2^(1-16)):PRINT #1,"w";:PRINT #1,L$
230 LOCATE 10,10:PRINT KAI,I,JUST
240 LOCATE I*2,20:PRINT"　*"
250 IF KAI=10 THEN IF I=JUST THEN *OWARI
260 NEXT I
270 NEXT KAI
280 *OWARI
290 BEEP 1:FOR BP=1 TO 9999:NEXT BP:BEEP 0

☆７セグ用（入力した３桁の数字を表示）

10 'save"SEG1",A
20 SG$(0)="63"
30 SG$(1)="6"
40 SG$(2)="91"
50 SG$(3)="79"
60 SG$(4)="102"
70 SG$(5)="109"
80 SG$(6)="125"
90 SG$(7)="39"
100 SG$(8)="127"
110 SG$(9)="111"
120 CLS
130 CONSOLE 0,24,1,0
140 INPUT"あなたの好きな３桁の数字を入力して下さい。",XX
141 W=INT(XX/100)
142 V=INT(XX/10)-10*W
143 U=XX-100*W-10*V
170 CLS 3
180 OPEN "COM:N81NN" AS #1
190 PRINT #1,"u";:PRINT #1,"0"
200 PRINT #1,"v";:PRINT #1,"0"
210 PRINT #1,"w";:PRINT #1,"0"
211 PRINT #1,"u";:PRINT #1,SG$(W)
212 PRINT #1,"v";:PRINT #1,SG$(V)
213 PRINT #1,"w";:PRINT #1,SG$(U)

☆７セグ用（スロットマシーン風）

10 'save"SEG",A
20 SG$(0)="63"
30 SG$(1)="6"
40 SG$(2)="91"
50 SG$(3)="79"
60 SG$(4)="102"
70 SG$(5)="109"
80 SG$(6)="125"
90 SG$(7)="39"
100 SG$(8)="127"
110 SG$(9)="111"
120 CLS
130 RD=VAL(MID$(TIME$,7,2))
140 RANDOMIZE RD
150 CONSOLE 0,24,1,0
160 JUST=INT(RND(1)*9+.5)
170 CLS 3
180 OPEN "COM:N81NN" AS #1
190 PRINT #1,"u";:PRINT #1,"0"
200 PRINT #1,"v";:PRINT #1,"0"
210 PRINT #1,"w";:PRINT #1,"0"
220 FOR KAI=1 TO 100
230 FOR I=1 TO 9
240 BEEP
250 FOR DAM=0 TO 100:NEXT DAM
260 LOCATE 10,12:PRINT"　スペースキーを３回押して，数字を止めよう！"
270 STP$=INKEY$:IF STP$="　" THEN STP=STP+1
280 IF STP>1 THEN FOR DAM=0 TO 800:NEXT DAM
290 IF STP>0 THEN 310
300 PRINT #1,"w";:PRINT #1,SG$(I)
310 IF STP>1 THEN 310
320 PRINT #1,"u";:PRINT #1,SG$(I)
330 IF STP>2 THEN *OWARI
340 PRINT #1,"v";:PRINT #1,SG$(I)
370 IF STP>1 THEN IF KAI=10 THEN IF I=JUST THEN *OWARI
380 NEXT I
390 NEXT KAI
400 *OWARI
410 BEEP 1:FOR TM=1 TO 5000:NEXT TM:BEEP 0

※他のＢＡＳＩＣに対応させるためのポイント※
　上記プログラムはＮ８８ＢＡＳＩＣ（ＮＥＣ）用である。
　他の（各社の）ＢＡＳＩＣに対応させるためには概ね通信回線のオープン命令である。
　open "COM:N81NN" as #1（上のプログラムで言えば１８０行目）を変更すれば良い。
  • Ｆ−ＢＡＳＩＣ（富士通）に対応させるには
    　baud 9600:open”COMO:N81NN”as #1　とする
  • ＢＡＳＩＣ９８　に対応させるには
    　open”COM1:9600N81”as #1　とする
  • Ｑｕｉｃｋ　ＢＡＳＩＣ　に対応させるには
    　open”COM1:9600,N,8,1,ASC”for random as #1　とする
※いずれの場合もコンピュータの通信回線のボーレートを9600bpsに設定する必要がある。


２．学習シート
　本研究で使用した学習シートを以下に示す。活用に当たっては，実態に合わせて修正・改良等をして利用していただきたい。
ルーレット用ヒントカード



７セグメント用ヒントカード



電光ボード用ヒントカード




３．インタフェースの貸出について
　本研究で使用した制御用インタフェースを様式１により貸し出します。なお，貸出期間は，原則として２週間とします。
連絡先　情報教育課（内線 2500）

目次へ