福野泰介の一日一創

ようこそ、めがねのまちさばえへ！
鯖江若者活躍の原点、市長をやりませんか「鯖江市地域活性化プランコンテスト」の紹介からスタート。

ドイツ、シリコンバレー、鯖江！
ここ「Hana道場」は、本社ドイツの謎の超巨大ソフトウェア企業、SAPによるオープンイノベーション拠点、3番目。

ほぼ毎日開催、小学生向けスクール。最近はロボットが人気！
右はさばえカニロボ、モーター部分を目としてみるとかわいい。

福井高専見学。鯖江に高専あり！学生、どんどん活躍してもらいましょう！

今日は北中山小学校でプログラミングクラブ、第一回！楽しくプログラミングはじめできました。（写真 by 福井高専 斎藤さん）
Hana道場へ通う子も！（未来の高専生！？）

「はじめてのプログラミング - エルチカ、エルチカゲーム、エルチカロボ」←本日分

「テレビゲームをプログラミング！」次の時間用

鯖江市長と！

ここから先はIchigoJam上級編、この写真のヤバさが分かる人向けです。

IchigoJamの最新βファーム「BIOSを使ってUSキーボードとJPキーボードの切り替えに対応 IchigoJam 1.3.2β13」を使うと、なんと自分だけのキャラクターを永遠に焼き付けることができます。

?CHR$(224) POKE#700,1,2,4,8,16,32,64,128

まずは自由に、2進数を使ったキャラクターの書き換えます。

下記のプログラム（IchigoJam1.3.2b13以降専用）で#700から#7FFをPCGをIchigoJamのCPUに書き込み！

1 'Flash PCG 10 POKE#800,240,181,197,176,3,145,114,182,6,34,232,35,17,0,27,136,53,32,152,71,67,30,152,65,128,39,0,36,134,29,51,3 20 POKE#820,2,147,1,147,127,0,230,35,27,136,15,44,85,209,224,32,58,0,3,153,192,0,9,24,4,168,152,71,232,35,50,0 30 POKE#840,27,136,49,0,50,32,152,71,234,35,27,136,1,154,29,0,4,169,59,0,51,32,168,71,1,155,1,52,1,51,255,51 40 POKE#860,1,147,16,44,223,209,5,34,216,52,35,136,17,0,50,32,152,71,5,34,35,136,17,0,52,32,160,36,152,71,228,1 50 POKE#880,230,35,128,34,27,136,82,0,2,153,4,168,152,71,232,37,5,34,43,136,17,0,50,32,152,71,234,35,27,136,34,0 60 POKE#8A0,31,0,128,35,4,169,91,0,51,32,184,71,2,155,1,52,1,51,255,51,2,147,192,35,255,52,219,1,156,66,223,209 70 POKE#8C0,43,136,50,0,49,0,50,32,152,71,43,136,50,0,49,0,52,32,152,71,98,182,69,176,240,189,160,34,33,2,210,1 80 POKE#8E0,137,24,58,0,168,231 90 ?USR(#800,0)

リセットしても、電源を入れ直しても、書き込んだキャラクター！

RESET ?CHR$(224)

元に戻したいときはこちらを実行して、書き込みなおせばOK（キャラクターコード224だけ元に戻す）

POKE#700,24,56,120,255,255,120,56,24

全キャラクター戻す場合はこちら

10 POKE#700,24,56,120,255,255,120,56,24,24,28,30,255,255,30,28,24,24,60,126,255,255,24,24,24,24,24,24,255,255,126,60,24 20 POKE#720,16,56,124,254,254,56,124,0,0,108,254,254,124,56,16,0,56,56,214,254,214,16,56,0,16,56,124,254,124,56,16,0 30 POKE#740,60,102,195,129,129,195,102,60,60,126,255,255,255,255,126,60,36,106,42,42,42,42,36,0,24,36,66,129,189,189,189,126 40 POKE#760,36,90,66,129,165,129,66,60,60,66,129,165,129,126,36,102,12,10,10,8,120,248,112,0,60,66,153,165,173,161,146,76 50 POKE#780,24,24,36,36,126,255,60,126,0,24,36,66,255,84,0,0,16,16,8,8,16,16,8,8,124,16,30,185,255,159,16,126 60 POKE#7A0,8,90,108,254,60,126,74,17,28,54,58,58,58,62,28,0,0,60,66,126,90,66,126,0,0,6,6,30,30,126,126,0 70 POKE#7C0,0,124,68,100,100,68,124,0,24,24,60,90,90,36,36,102,0,24,126,153,24,60,36,102,0,24,26,126,80,28,20,102 80 POKE#7E0,24,24,16,16,16,16,16,24,0,24,88,126,10,24,46,98,24,24,8,8,8,8,8,24,4,62,47,86,106,214,172,240

書き込んだキャラクターをプログラム形式にするプログラムはこちら

10 FOR I=0 TO 256-32 STEP 32 20 ?I/32*10+10; 30 ?" POKE#";HEX$(#700+I); 40 FOR J=0 TO 31 50 ?",";PEEK(#700+I+J); 60 NEXT 70 ? 80 NEXT

鯖江市は、進化し続けます！

links
- 地方創生は鯖江から発信。ITと人材育成 | きらきら星のつぶやき☆