福野泰介の一日一創

児童養護施設の未就学児から高校生まで幅広く、プログラミングと電子工作の楽しさ伝える「KidsVenture with PCN仙台・PCN東京」の開催でした。

こちら園内、IchigoJamでプログラミングワークショップの会場となった、お部屋。

LEDのコントロール、かわくだりゲーム、ゲーム機でおなじみジョイスティックと、光センサーまで、2時間楽しんでくれました！ 何度もリセットして初めから！ってやる、6才の子、かわいかった！そう、何度でも納得行くまでできるのが、プログラミングのいいところ。

掲載されたら原稿料もでちゃう、電子工作マガジン＆ベーマガ、プレゼント！
高専出身者4名でミニトークイベント＆質疑応答、エンジニアという仕事の楽しさも紹介してきました。

楽しんでくれたこどもたち、周りのお友達にも伝えてみよう！みんなで学ぶのも楽しいよ。
こちらパッパッとでる5つの数を暗算して、応えるゲーム「VSあんざん」
まずはひとり用、短いバージョン（とりあえず打ち込んで遊びたい人へ）

1 A=0:FORI=1TO5:CLS:LCRND(32),RND(21):B=RND(9)+1:?B:A=A+B:WAIT30:NEXT:CLS:INPUT"ANS?",N:IFA=N?"SEIKAI!!"ELSE?"HAZURE:";A

次に、上記をわかりやすく行を分けてかいたバージョン（内容は全く一緒、読みやすい？）

10 A=0 20 FOR I=1 TO 5 30 CLS:LC RND(32),RND(21) 40 B=RND(9)+1:?B 50 A=A+B 60 WAIT30 70 NEXT 80 CLS:INPUT"ANS?",N 90 IF A=N ?"SEIKAI!!" ELSE ?"HAZURE:";A

正解するたびに、どんどん速く難しくなっていくバージョン

5 W=60 10 A=0 20 FOR I=1 TO 5 30 CLS:LC RND(32),RND(21) 40 B=RND(9)+1:?B 50 A=A+B 60 WAIT W 70 NEXT 80 CLS:INPUT"ANS?",N 90 IF A=N ?"SEIKAI!!":W=W-5:WAIT 30:GOTO 10 100 ?"HAZURE:";A

最後に、2人で対戦するバージョン

5 W=60 10 A=0 20 FOR I=1 TO 5 30 CLS:LC RND(32),RND(21) 40 B=RND(9)+1:?B 50 A=A+B 60 WAIT W 70 NEXT 80 CLS:INPUT"PLAYER1 ANS?",N 81 INPUT"PLAYER2 ANS?",M 82 IF N=M GOTO 90 83 IF A=N ?"PLAYER1 WON!":END 84 IF A=M ?"PLAYER2 WON!":END 85 GOTO 100 90 IF A=N ?"SEIKAI!!":W=W-5:WAIT 30:GOTO 10 100 ?"HAZURE:";A

リファレンスや、教科書をみながら、ひとつずつ解読、変えたり、消したり、いろいろ改造して好きなように遊ぶのがプログラミング上達の近道！
わからないところ、Twitter で #IchigoJam 付けて、質問してね。

PCNこどもプロコンなど、いろいろチャレンジしちゃおう！