福野泰介の一日一創

永平寺町の河合町長、伊藤さん、さくらインターネット高橋さんと未来をディスカッション。

永平寺口駅に自動運転車、発見！

こちらが発着場。
ワイヤーが道に埋め込まれた、ライントレース方式！越前がにロボコンに取り組む小学生にも親近感湧きそう。

普通の道路との交差点があります！

永平寺の自動運転プロジェクトを推進する、えい坊くんのまちづくり株式会社がある四季の森会館。

山下専務にご案内いただきました！

こちら鯖江市、とある8号線の交差点近く。
福井など、北陸ではおなじみ、道路の雪を溶かしてくれる消雪装置。実は制御盤はこんな形！

メーターが目に見えてかわいい、消雪ポンプ盤。
最大300V、150Aとかの値がすごい！作動しているときにぜひ見てみたいですね。市内の消雪ポンプ盤オープンデータがあれば気軽に見に行けそうですね。 みんなで集める消雪ポンプ盤というのもいいかも。さばれぽでタイトル「消雪ポンプ盤」でご投稿くださいー。

スノー電極とかいてあった、雪センサー。溶かすためのヒーターも装備。おもしろい形！

積雪を測っているかもしれない下向きのセンサー。

交通量を測っていそうな雰囲気なセンサー。
スピード違反を自動で取り締まり、罰金をETCで自動引き落としすれば、適切な制限速度を導きだせるかも。

街灯、鉄塔、自販機、アンテナ、電柱など、改めて道沿いを見てみるとあるいろんな機材。

在庫状況など、すでにネットに接続していると思われる自販機、温湿度・人通りなど検出するセンサーと入れて、オープンデータ化してくれるとおもしろそう。

いろんなセンサーをつけたくなったので、湿度をIoTスティック表示しつつ、5秒置きにネットにあげるモノをIchigoJamで作成。

まずはSHT31を使って、温湿度表示（参考）

10 GSB@TH 20 T=T/10:H=H/100 40 ?T/10;".";T%10;"C ";H;"%" 60 WAIT6 70 GOTO10 600 @TH:U=95:LET[U],#062C,#4401,#8808,#884A,#4350,#0C00,#4770:U=#800+U*2 610 R=I2CR(#45,U,2,U-6,6):[0]=17500:[1]=PEEK(U-6)<<8|PEEK(U-5):T=USR(U+2,#800)-4500:[0]=10000:[1]=PEEK(U-3)<<8|PEEK(U-2):H=USR(U+2,#800):RTN

続いて、WS2812Bで作った、IoTスティックに湿度表示（湿度が低いほど緑色で短く、高いほど赤くて長い）

1 'HUMSTK 42 N=(H-30)/2:IF N<0 N=0 43 R=N*2:G=40-N*2:B=0:GSB@STK 5 POKE#700,240,181,68,24,90,32,12,73,114,182,128,37,35,120,1,52,255,34,74,96,3,39,10,38,43,66,1,208,10,39,3,38,1,63,253,209,0,34,74,96,1,62,253,209,109,8,239,209,1,56,234,209,98,182,240,189,0,0,1,80 'n of led:N, color:R,G,B 500 @STK:FORI=0TO20:IF I<N POKE#800+I*3,G,R,B ELSE POKE#800+I*3,0,0,0 510 NEXT:U=USR(#700,#800):RTN

さくらインターネット「IchigoSoda」で、IoTで5秒間隔で送信！（IoTしたとをピカっと光らせる）

56 IF H=100 H=99 57 IF TICK()>5*60 CLT:IoT.OUT T/10*100+H:LED1:WAIT1:LED0

せっかくなので、小型液晶にも表示

35 CLS 55 GSB@LC 900 @LC:LET[96],640,64,#5639,#C6C,#C080,64:?I2CW(62,#8C3,5)+I2CW(62,#8C0,3,#900,16)+I2CW(62,#8C8,3,#920,16):RTN

以上、プログラム全文はこちら

1 'HUMSTK 5 POKE#700,240,181,68,24,90,32,12,73,114,182,128,37,35,120,1,52,255,34,74,96,3,39,10,38,43,66,1,208,10,39,3,38,1,63,253,209,0,34,74,96,1,62,253,209,109,8,239,209,1,56,234,209,98,182,240,189,0,0,1,80 10 GSB@TH 20 T=T/10:H=H/100 35 CLS 40 ?T/10;".";T%10;"C ";H;"%" 42 N=(H-30)/2:IFN&amp;lt;0N=0 43 R=N*2:G=40-N*2:B=0:GSB@STK 55 GSB@LC 56 IF H=100 H=99 57 IF TICK()&amp;gt;5*60 CLT:IoT.OUT T/10*100+H:LED1:WAIT1:LED0 60 WAIT6 70 GOTO10 500 @STK:FORI=0TO20:IF I&amp;lt;N POKE#800+I*3,G,R,B ELSE POKE#800+I*3,0,0,0 510 NEXT:U=USR(#700,#800):RTN 600 @TH:U=95:LET[U],#062C,#4401,#8808,#884A,#4350,#0C00,#4770:U=#800+U*2 610 R=I2CR(#45,U,2,U-6,6):[0]=17500:[1]=PEEK(U-6)&amp;lt;&amp;lt;8|PEEK(U-5):T=USR(U+2,#800)-4500:[0]=10000:[1]=PEEK(U-3)&amp;lt;&amp;lt;8|PEEK(U-2):H=USR(U+2,#800):RTN 900 @LC:LET[96],640,64,#5639,#C6C,#C080,64:?I2CW(62,#8C3,5)+I2CW(62,#8C0,3,#900,16)+I2CW(62,#8C8,3,#920,16):RTN

街中が居ながらにして把握できるスマートシティ計画、福井から！