福野泰介の一日一創

その場でお題に合わせてIchigoJamでプログラミングして発表するIchigoJam大喜利 at PCNこどもプロコン2024で実施。PCN神山、PCN三重、PCN勝山、PCN大阪から1名ずつ参加！

「IchigoJam大喜利シーン on PCNこどもプロコン2024」

「IchigoJam大喜利」RUN on IchigoJam web
スライドもパワポではなくIchigoJam！アニメーションも説明も自由自在！

最初のテーマは「新幹線」いよいよ来週福井開業！

「新幹線 by PCN神山 中本」
ハイ、早かった、PCN神山！びゅーんと動く新幹線、見事！

10 CLS 20 FOR I=32TO0STEP-1:LCI,15:?"/~~":WAIT3:NEXT

コンパクトなプログラム！

「ハル by PCN大阪 森」
テーマ2のハル、PCN大阪、舞い散る桜吹雪をプログラムで表現！

10 CLS 20 LOCATE RND(32),0 30 A=RND(3) 40 IF A=0:?"," 50 IF A=1:?"`" 60 IF A=2:?"'" 70 SCROLL 2 80 B=RND(3): 90 IF B=1 SCROLL1 100 IF B=2 SCROLL3 105 WAIT 5 110 GOTO 20

ランダムにSCROLL命令で左右に振るナイス表現！

楽しいIchigoJam大喜利、ぜひみんなでやってみてください！

1977年 CQ出版から発刊「BASICで広がる世界」
大喜利参加してくれたPCN大阪、ベーマガの伝説、森さんがプログラミングをはじめるきかっけの本！

BASICで作った、IchigoJam大喜利スライドのちょっと解説。

1000 FORI=0TOLEN(S)-1:LCX+I,Y:?CHR$(ASC(S+I));:WAITW:NEXT:RTN

まずは核になる、文字列SをX,Yの場所にWをウェイトに1文字ずつ表示するサブルーチン！

20 VIDEO3 30 S="ｲﾁｺﾞｼﾞｬﾑ ｵｵｷﾞﾘ" 35 CLT:FORI=0TO24:SCROLLRIGHT:WAIT5:NEXT 40 X=1:Y=5:W=5:GSB1000:WAIT30 50 X=RND(16):Y=RND(10):IFY=5CONT 60 LCX,Y:IFSCR()?CHR$(0);ELSE?"+"; 65 IF TICK()>60*10 GOTO30 70 IF !INKEY()&&!BTN() GOTO 50

これを使った、キラキラ付きタイトル表示のプログラム！
50行、ランダムに座標を決めてタイトルとかぶるところは使わない設定にしています。60行でキャラクターコードを判定するのも手。
35行のワイプで画面をオシャレにクリアするアニメーション。65行で10秒おきに実行。
70行キーボードかボタンのどちらも押されていなければ繰り返し。

80 CLS:S="ｾﾂﾒｲ!":X=5:Y=5:W=1:GSB1000:GSB1100 90 LET[0],"ﾌｸｯﾁｶﾞｵﾀﾞｲｦﾀﾞｽ","ﾐﾝﾅｶﾞｽﾊﾞﾔｸｶｲﾄｳ","ﾓﾁﾛﾝIchigoJamﾉ","ﾌﾟﾛｸﾞﾗﾐﾝｸﾞﾃﾞ!!" 100 CLS:X=1:FORJ=0TO3:S=[J]:Y=2+J*2:GSB1000:GSB1100:NEXT 110 CLS:S="ARE YOU READY?":X=1:Y=5:W=2:GSB1000:GSB1100 120 VIDEO5:LC0,2:?" START!":GSB1100 130 CLS:LC0,2:?" ﾃｰﾏ 1":GSB1100 140 CLS:LC0,2:?" ｼﾝｶﾝｾﾝ":GSB1100 150 CLS:LC0,2:?" ﾃｰﾏ 2":GSB1100 160 CLS:LC0,2:?" ﾊﾙ":GSB1100 165 CLS:LC0,2:?" ﾃｰﾏ 3":GSB1100 167 CLS:LC0,2:?" ﾌﾘｰ":GSB1100 170 RUN 999 CONT 1000 FORI=0TOLEN(S)-1:LCX+I,Y:?CHR$(ASC(S+I));:WAITW:NEXT:RTN 1100 WAIT5:IF!INKEY()&&!BTN()CONTELSERTN

続いて、説明表示や、テーマ表示などをいい感じに追記してできあがり！
できることを調べるより、自分の手持ちのテクニックで創る方が楽しい！

「関ヶ原の戦い with micro:bit」
ステキな作品、直接展示してもらったのがうれしかった！
5年ぶりのリアル開催となったPCNこどもプロコン！こちら3Dスキャンさせてもらった作品、XRグルメを流用して、Vision Proでの表示に対応。

「関ヶ原の戦い with micro:bit - WebXR」
3DデータはJavaScriptのアプリで簡単に扱えます！JavaScript大喜利もきっと楽しい！

「pcn_kids_procon_xr」
13才を超えたらGitHub！GitHubで公開するオープンデータ＆オープンソース！世界中のものづくり好きが作った作品を参考にじゃんじゃん創ろう！ （参考、じぶんのウェブサイトをつくろう！ 13才以上なら誰でも無料で持てるホームページ＆HTMLとCSSはじめのいっぽ）

続く！
→ 福井高専と神山まるごと高専1年生が活躍、新メディア空間動画 at PCNこどもプロコン2024

links
- IchigoJam生誕の地 鯖江 で開催「PCNこどもプロコン2024 表彰式」！PCNは今年10周年！ - about yrm