この間買ってきたゲームロボット１５。出てない数字を入力していくゲームが面白かったのでプログラムを作ってみました。BASICは無料でダウンロード出来きます。下記のブログラムを入力すれば遊べます。
　
　ＩＦ文多用でＧＯＴＯ文も使ったりしてまるで素人のようですが、その分解読が容易になっています。


　ゲームの説明

　１～３０までの数字をコンピューターと交互に出していく。ただし、以前に出てきた数字は使用不可で、出した時点でゲームオーバー。

　一見、簡単なようですが、だんだん難しくなっていきます。全部クリアーした生徒は今のところいません。１０は超えるんですけどね。そこからが難しいようです。無事１５回出し切れたらクリアーです。

　プログラム

　10 cls:dim suuji(30):seikaisu=0
　20 for I=1 to 30:suuji(i)=0:next I
　30 co=int(rnd(1)*30)+1
　40 if seikaisu = 15 then print "perfect!!":end
　50 if suuji(co)=1 then goto 30 else print co
　60 for i=1 to 100000:next i:cls
　70 suuji(co)=1
　80 input my:cls
　90 if my=0 or my>30 then print "hansokumake!!":end
　100 if suuji(my)=1 then print "game over":print seikaisu:end
　110 if suuji(my)=0 then seikaisu=seikaisu+1:suuji(my)=1
　120 goto 30


　１～３０までの数字ですが、４０までとか５０までとかでやりたい場合は、３０という数字を４０や５０に変更してください。ただし行番号の３０とgoto 30の所はそのままで。
　行番号４０の１５の所をやりたい数字までの半分の数字にします。
　コンピューターが出している数字の表示時間を変えたい場合は、行番号６０の１０００００という数字を増やしたり減らしたりして調整して下さい。　

　記事書いているうちになんか説明書くの面倒になったので、最初にいくつまでの数字でやりたいか入れるプログラムも作ってみました。
　最初にいくつまでの数字でやりたいか聞いてくるので偶数の数字を入れてください。奇数を入れると絶対クリアできないゲームが出来上がります。そのへんの入力制限つくるの面倒くさいので……
　奇数でやりたければ、Ｎ／２の所を……　長くなりそうなのでやめます。

　10 cls:input n
　20 dim suuji(n):seikaisu=0
　30 for I=1 to n:suuji(i)=0:next I
　40 co=int(rnd(1)*n)+1
　50 if seikaisu = n/2 then print "perfect!!":end
　60 if suuji(co)=1 then goto 40 else print co
　70 for i=1 to 100000:next i:cls
　80 suuji(co)=1
　90 input my:cls
　100 if my=0 or my>n then print "hansokumake!!":end
　110 if suuji(my)=1 then print "game over":print seikaisu:end
　120 if suuji(my)=0 then seikaisu=seikaisu+1:suuji(my)=1
　130 goto 40

　こういうゲームって、私の時代にいろいろなものがたくさんありました。きっと、このゲームも昔からあったんでしょうね。私の世代なら、こういうプログラムを組んでいた人も多いはずです。懐かしいと思います。懐かしさついでに、プログラムも解読が難解な悪いのにしようかとも思いましたが、中高生もいるかもしれないのでやめました。他人のプログラム解読すると力つきますよね。特にマニアックなやつ。
　
　
　
　前回の答え

　正解は３のストレッサー。１番のお母さんは当たらずとも遠からずかも……


　第２３６問

　四つの辺が等しい四角形を何という？　（中学数学２年）

　１　ひし形
　２　長方形
　３　正方形
　４　ひと形
　５　平行四辺形


スマホ汚染

新宿で女子大生が大量に倒れる

死を生み出している産業

札幌麻生個別指導のホームページへ
ブログタイトルをクリックすると新しい記事から順に読めます

　昨日、エクセルで百人一首暗記ソフトをつくっていました。生徒のテストの該当箇所だけなので、数は少ないです。
　古典的かなづかいだと、なかなか変換がうまくいきませんね……

　マクロで雛型くんでおくと、あっという間につくれるので楽ですね。所要時間一時間未満です。多分、２，３０分位。

　次は、古典文法の活用形の問題集かな……　

　
　Ｐ．Ｓ．
　今月、新しく生徒が入りました。早生まれではなかったですが、１２月うまれ。１２月生まれも多いんですよね。

スマホ汚染

新宿で女子大生が大量に倒れる

死を生み出している産業

札幌麻生個別指導のホームページへ
ブログタイトルをクリックすると新しい記事から順に読めます

　エクセルＶＢＡで作っている四肢択一問題の追加プログラムがやっと完成しました。生徒がやった問題数や正解率をシートに書き込みデータ化するというものです。

　たとえば、今日、中１の問題を１００問やって５０問正解すると、成績用シートには、次のように書き込まれます。

　２０１２／３／２２　１００　５０　５０％

　成績用シートをつくり、そこにデータを書き込むことによってグラフなどをつくることができます。
　親も生徒がサボっていないか見ることができます。

　生徒がずるをしても無駄なように、この成績シートのデータは書き換えても消しても次から次へと復帰するようにつくっています。
　この構造を見抜いて、成績を改ざんできる生徒はあまりいないでしょう。そこまで、できる生徒ならどうせ四肢択一問題をやるレベルじゃないでしょうから、問題ないと思います。本当は、見抜いて改ざんした時用にそれでも駄目なトラップをしかけておきたかったのですが、いまのところ労力をかけてつくっても無駄そうなのでやめておくことにしました。


　改ざんした瞬間

　”不正な操作により、このパソコンは３分以内に自爆します、すみやかに避難して下さい”

　とメッセージを表示したかったのですが、今後の楽しみに取っておくことにします。
　

　真に受ける生徒がいるかも……


スマホ汚染

新宿で女子大生が大量に倒れる

死を生み出している産業

札幌麻生個別指導のホームページへ
ブログタイトルをクリックすると新しい記事から順に読めます

　勉強用のプログラムつくっていますがなかなかうまく行かないものですね。ＶＢＡはあまりなれていないので余計時間がかかります。まあ、小さいプログラムなので気楽にやってはいますが……

　そういえば、最近また塾の問い合わせがありました。そして、また麻生周辺以外……　やはり、私のようなやり方に対する需要っていうのは特定の所には集中しないんですね。当たり前ですが。

　遠くから通ってきてくれるということは、よく言えば、それだけ希少価値のあるやり方をしているということなんでしょう。
　これからの個人塾が生き残っていくためにはいろいろなことをしなければならないんでしょうね．

スマホ汚染

新宿で女子大生が大量に倒れる

死を生み出している産業

札幌麻生個別指導のホームページへ
ブログタイトルをクリックすると新しい記事から順に読めます