create every day - 福野泰介の一日一創

GACHA simulation / IchigoJam print

2017/03/24 23:55:00
#IchigoJam #KidsIT #game #english 

Past day kids create games outside.
Now kids just play games created by adults on mobile game machines.

Let's share to kids that creating games is more fun than playing games.

This IchigoJam print introduce the backside of collection games "GACHA".

"ガチャシミュレーション - IchigoJam print" on GitHub

Enjoy creating!

Hearing Checker Program - I went to Human Dock

2017/03/21 23:55:00
#sound #IchigoJam #hanadojo #english 

My this yearly medical check is the Human Dock, the complete medical checkup.
I don't get any wrong message except you have to exercise!


There is a Starbucks in Fukui Saiseikai Hospital!


This is a simple clone of machine to check the hearing ability.
Can you hear the tone of 1kHz or 4kHz? Aim SCORE:100!

1 'SOUND CHK 10 ?"PRESS BTN IF YOUR HEAR!" 20 S=100 30 WAIT RND(180)+60 40 PWM3,50,100:CLT 50 IF BTN() "?NG":END 60 IF BTN()=0 CONT 70 PWM3,0:S=S-TICK()+8 80 WAIT RND(180)+60 90 PWM3,12,25:CLT 100 IF BTN() "?NG":END 110 IF BTN()=0 CONT 120 PWM3,0:S=S-TICK()+8 130 ?"SCORE:";S

You can sound the sounder by PWM also.
Put your sounder GND-OUT3 of CN3.
"PWM3,50,100" means 1kHz (period 1msec = 0.01msec * 100) / "PWM3,12,25" means 4kHz (period 0.25msec)
To tell the truth, you have to shape the sound wave to sine wave. Try it!


This is the healthy lunch after the checkup at Fukui Saiseikai Hospital.

Good foods, few alcohol drinks, moderate exercise, few tobaccos and few stresses are for us.


Hana Dojo got a Nintendo Switch. It's good as the exercise?


Is it fun to make exercise games like 1-2-Switch, isn't it?

Binary Room with Music - Let's PLAY PSG on WebMML!

2017/03/20 23:55:00
#music #IchigoJam #english 

Binary Room, I made a game puzzle added music!
IchigoJam can play PSG by MML (Music Macro Language).
I updated the simulator WebMML also. Try to input "T240BBBAGGABB.G8GR".

1 'BINARY ROOM 10 S=1:CLT 15 CLS:LC4,0:?"STAGE:";S 20 FOR I=0 TO 15 30 LC8+I,2:?"#":LC8+I,17:?"#" 50 LC8,2+I:?"#":LC23,2+I:?"#" 70 NEXT 80 SRNDS:FOR I=1 TO S*3 90 X=RND(12)+10:Y=RND(12)+4:IF SCR(X,Y) CONT 100 LCX,Y:IF I%3 ?"#" ELSE ?I/3 110 NEXT 120 X=15:Y=16:V=16:W=16:C=1 121 PLAY"T140EGD2.A2EG1$EG<D2.C2E>B2.A2.B2.A2EB1DEG1DEA1DEG2F2G2E2.DEG<D2.C2E>B2.A2.B2.A2GA2.DFGAB<CDEFGEC>A<CE>G2FED2C1" 125 K=INKEY() 130 A=-(K=28)+(K=29):B=-(K=30)+(K=31) 140 IF SCR(X+A,Y+B)=0 LCX,Y:?CHR$(0):X=X+A:Y=Y+B 150 IF SCR(V-A,W+B)=0 LCV,W:?CHR$(0):V=V-A:W=W+B 160 LCX,Y:?"A":LCV,W:?"B" 165 LC(X+V)/2,(Y+W)/2:IF SCR()-48=C IF Y=W AND ABS(X-V)=2 OR X=V AND ABS(Y-W)=2 ?CHR$(0);:C=C+1:IF C=S+1 LC4,20:?"CLEAR!":PLAY"T240BB<CDDC>BAGGABB.G8GR":WAIT300:IF S=9 END ELSE S=S+1:GOTO 15 170 LC16,0:?"TIME:";TICK()/60:WAIT3:GOTO 125

BINARY ROOM on IchigoJam - get all numbers by characters A and B - 10 stage

Let's PLAY and CREATE!

AWARD SOUND SYSTEM on IchigoJam - Startup Weekend Fukui

2017/03/19 23:55:00
#fukui #IchigoJam #english 

I was invited to judge to the final day of Startup Weekend Fukui!

"Dream List" team got the first prize! Congratulations!


Naturatch team got the second prize. Try to use drones also!


Ikumen team got the third prize. Try to use Open Data from local governments!


The youngest team including MASAHARU and a student Kosen graduated VRPartner presented a idea "VR x Job hunting".


I presented the IchigoJam computer to make fist prototyping as the award to all of that team!

This is a simple device to celebrate at the award celemony!

1 'AWARD SOUND SYSTEM 10 LED1:WAIT30:LED0 20 IF BTN()=0 CONT 30 PLAY"T2000<L8$CRER":WAIT30 40 IF BTN()=0 CONT 50 BEEP:WAIT60 60 PLAY"T100$<D2>B.<C8D2>G2A8B8<C8D8C>BA1B8<C8D8E8DDG2D2C>BA.G8G1" 70 IF BTN()=0 CONT 80 PLAY:WAIT30:GOTO 20


Press the button to move the state (Drum roll, Award Music and Stop)


Thank you SWO staffs. Let's be a entrepreneur!

Binary Room Puzzle Game on IchigoJam - Akihabara Moku-Moku-Meeting Report

2017/03/18 23:55:00
#IchigoJam #KidsIT #game #english 

Thank you for participating to Moku-Moku-Meeting at PCN Akihabara Assemblage!

Junior high school girls made the IchigoJam kit!


Let's discovery the programming world!


The first step with CutleryCard! You did it!


The first try to move the servo motor!


8 age kid try the first soldering!


Try to modify Family Computer by Nintendo!


Today's staffs.


This is a puzzle game "Binary Room" result of MokuMoku on my brain.
I like the game "Binary Land" puzzle game 2 game character controlled by 1 player.
Interpose by charaters A and B to get the numbers in ascending order.
Use the cusor key (A is normal movement, B is millor movement).

1 'BINARY ROOM 10 S=1 15 CLS:LC4,0:?"STAGE:";S 20 FOR I=0 TO 15 30 LC8+I,2:?"#":LC8+I,17:?"#" 50 LC8,2+I:?"#":LC23,2+I:?"#" 70 NEXT 80 SRNDS:FOR I=1 TO S*3 90 X=RND(12)+10:Y=RND(12)+4:IF SCR(X,Y) CONT 100 LCX,Y:IF I%3 ?"#" ELSE ?I/3 110 NEXT 120 X=15:Y=16:V=16:W=16:C=1:CLT 125 K=INKEY() 130 A=-(K=28)+(K=29):B=-(K=30)+(K=31) 140 IF SCR(X+A,Y+B)=0 LCX,Y:?CHR$(0):X=X+A:Y=Y+B 150 IF SCR(V-A,W+B)=0 LCV,W:?CHR$(0):V=V-A:W=W+B 160 LCX,Y:?"A":LCV,W:?"B" 165 LC(X+V)/2,(Y+W)/2:IF SCR()-48=C IF Y=W AND ABS(X-V)=2 OR X=V AND ABS(Y-W)=2 ?CHR$(0);:C=C+1:IF C=S+1 LC4,20:?"CLEAR!":WAIT30:IF S=9 END ELSE S=S+1:GOTO 15 170 LC16,0:?"TIME:";TICK()/60:WAIT3:GOTO 125


See you next Moku-Moku-Meeting!

Making of IoP = Internet of Pager(ポケベル@ja) / jig hackathon 2017

2017/03/17 23:55:00
#IchigoJam #maker #jig #english 

Do you know or remember the Pager(ポケベル@ja)?
We reinvented the Pager as the IoT using Sakura's IoT Paltform and Twilio.

IchigoJam will show digits or message on Micro Dot pHAT from the web.


This is the system architecture of IoP.


Before jig.jp's 15th years kick off meeting, we hold the jig hackathon 2017 at 11am!
Our 9 teams raced to get the "Born" the Japanese champion sake.


I was in charge of the hardware side.
This is the prototype before making the body with paper.
These are 2 IchigoJam BASIC programs of IoP.

1 'IoP - FILE0 10 LED1 100 @LOOP 110 GSB @CHK:IF N=0 WAIT30:CONT 120 GSB @GET:CLS:COPY#900,#785,6:LED0:LRUN1 800 'IoT Lib 810 @CHK:POKE#700,#32,0:N=4:GSB@I2C:N=PEEK(#783):RTN 820 @GET:POKE#700,#30,0:N=#14:GSB@I2C:N=PEEK(#784):RTN 900 @I2C:'use M,C,I 910 M=PEEK(#701)+2 920 C=0:FOR I=0 TO M-1:C=C^PEEK(#700+I):NEXT:POKE#700+M,C 930 IF I2CR(79,#700,M+1,#780,N+1) STOP 940 C=0:FOR I=0 TO N-1:M=PEEK(#780+I):C=C^M:?M;" ";:NEXT:? 950 IF C!=PEEK(#780+N) OR PEEK(#780)!=1 STOP 960 RTN

1 'IoP - FILE1 10 GSB@INIT 30 FOR P=0 TO 5 40 C=PEEK(#900+P):GSB@PUTC 50 NEXT:GSB@UPDATE 55 PLAY"O5$BR" 56 IF BTN()=0 CONT ELSE PLAY 58 GSB@CLS:GSB@UPDATE 60 LRUN0 99 'Micro Dot lib 100 @INIT 110 FOR I=#61 TO #63 120 POKE#800,0,`11000:IF I2CW(I,#800,2,#800,0) STOP 130 POKE#800,#D,`1110:IF I2CW(I,#800,2,#800,0) STOP 140 POKE#800,#19,255:IF I2CW(I,#800,2,#800,0) STOP 150 NEXT 160 RTN 200 @PUTC:'P=pos0-5,C=char 210 A=#63-P/2:IF P&1 GSB@A ELSE GSB@B 230 RTN 300 @A 310 FOR I=0 TO 6 320 D=PEEK(C*8+I)>>2:N=0 330 FOR J=0 TO 4 340 N=N+D&1&lt;<(4-J):D=D>>1 350 NEXT 360 POKE#700+I,N 370 NEXT 380 POKE#800,1:IF I2CW(A,#800,1,#700,7) STOP 390 RTN 400 @B 410 FOR I=0 TO 4 420 N=0 430 FOR J=0 TO 6 440 N=N+PEEK(C*8+J)>>(6-I)&1&lt;<J 450 NEXT 460 POKE#700+I,N 470 NEXT 480 POKE#800,#E:IF I2CW(A,#800,1,#700,5) STOP 490 RTN 500 @UPDATE 510 FOR A=#61 TO #63:POKE#700,#C,1:IF I2CW(A,#700,2,#700,0) STOP 520 NEXT:RTN 600 @CLS:FORP=0TO5:C=0:GSB@PUTC:NEXT:RTN

(for IchigoJam 1.2 beta 42)


Have a nice hack!

We'll start 15th year this April!

Spring New Colors! IchigoJam Moku-Moku-Meeting Event this Saturday!

2017/03/16 23:55:00
#IchigoJam #maker #english 

I've got new colors IchigoJam!

mat green, purple, mat black by pcbgogo(jp)

In this weekend Saturday at Akihabara, we will hold an event about IchigoJam with Moku-Moku.
Join us!

"IchigoJam Moku-Moku-Meeting もくもく会"

IchigoJam's I2C connects Raspberry Pi Sense HAT and Wii Nunchuck

2017/03/15 23:55:00
#IchigoJam #maker #english 

I2C can connect many devices!
I made a 8x8 simple paint tool using Raspberry Pi Sense HAT and Wii Nunchuck on IchigoJam.

JoyStick - Move the Cursor
Button 1 - Put a Red Dot
Button 2 - Put a Green Dot
Button 1 and 2 - Clear Screen

I updated IchigoJam - with 1.2b42 firmware (beta download from Facebook Group)
To use this program download it! You can't run on IchigoJam ver 1.2.1.

1 'Sense Paint 10 GSB@CLS:GSB@NINIT 15 @LOOP 20 GSB@NGET:X=X/27-1:Y=8-Y/27 30 N=20:GSB@PUTR 40 IF B=1 GSB@PUTB 45 IF B=2 GSB@PUTG 46 IF B=3 GSB@CLS 50 WAIT5:N=0:GSB@PUTR 60 GOTO@LOOP 100 'sense hat mat-led 105 @DRAW:IF I2CW(#46,0,#700,192) STOP ELSE RTN 110 @CLS:FORI=0TO192:POKE#700+I,0:NEXT:GSB@DRAW:RTN 120 @PUTR:POKE#700+X+Y*24,N:GSB@DRAW:RTN 125 @PUTG:POKE#700+X+Y*24+8,N:GSB@DRAW:RTN 130 @PUTB:POKE#700+X+Y*24+16,N:GSB@DRAW:RTN 500 'nunchuck 505 @NINIT 510 POKE#7C0,#F0,#55:IF I2CW(#52,#7C0,2) STOP 520 POKE#7C0,#40,0:IF I2CW(#52,#7C0,2) STOP 525 RTN 530 @NGET:IF I2CW(#52,0) OR I2CR(#52,#7C2,6) STOP 540 X=PEEK(#7C2):Y=PEEK(#7C3):B=~PEEK(#7C7)

How to blink a LED via web on IchigoJam using Sakura IoT Platform beta

2017/03/14 23:55:00
#IchigoJam #IoT #maker #english 

Let's make WoT!
The first step of Web of Things is also blinking a LED (エルチカ@ja).

4GエルチカWoT on IchigoJam

Taisuke Fukunoさんの投稿 2017年3月14日

1. Prepare hardwares
- Sakura's IoT module beta - Sakura's IoT Platform
- Break out board - Sakura's IoT Platform
- IchigoJam T - IchigoJam - with 1.2b42 firmware (beta download from Facebook Group)
- I2C level converter - PCA9306 - Akizuki Denshi
- some jumper wires

2. Regist the Sakura's IoT module
Make a project and a WebSocket service.

* Orange is module ID

3. Connect them
The signal voltage of Sakura's IoT module is 1.8V but IchigoJam is 3.3V.
So you have to change the voltage by PCA9306.
Cut a VCCB(right-top) pin and connect yellow wire (1.8V LOD_OUT of Sakura's IoT module) above.

Put the PCA9306 on the right of the Sakura's IoT Module.
Yellow : VCCA(left-top) - 3.3V on IchigoJam
Blue: SDA(left-middle) - SDA on IchigoJam
Green: SCL(left-middle) - SCL on IchigoJam
Orange: right-top of the Sakura's IoT Modlue - 5V on IchigoJam

VCCB(1.8V) - LOD_OUT(left of the Sakura's IoT Module) (Yellow)
GND(left of the Sakura's IoT Module) - GND on IchigoJam

And turn your IchigoJam on!
Wait a moment until single blinking the LED on the Sakura's IoT Module.

4. Send from the IchigoJam
Open the WebSocket service.

* Yellow is Token to access

Write this program to access Sakura's IoT Module. (beta needs checksum, so a little long code)

900 @I2C 910 M=PEEK(#701)+2 920 C=0:FOR I=0 TO M-1:C=C^PEEK(#700+I):NEXT:POKE#700+M,C 930 IF I2CR(79,#700,M+1,#780,N+1) STOP 940 C=0:FOR I=0 TO N-1:M=PEEK(#780+I):C=C^M:?M;" ";:NEXT:? 950 IF C!=PEEK(#780+N) OR PEEK(#780)!=1 STOP 960 RTN

And try this code to test! If you'll get "1 1 0" or "1 1 128" it's success!

POKE#700,1,0:N=3:GSB@I2C 1 1 0 OK

Wait until you will get "1 1 128". (0:4G no connections, 128:4G connected)
To put a data into the queue

C=1:A=123 POKE#700,#20,10,C,73,A,A>>8,0,0,0,0,0,0:N=2:GSB@I2C

To send data

POKE#700,#24,0:N=2:GSB@I2C


You will get your data on the control panel.

5. Recieve from the web
Download the program in JavaScript from lchika@GitHub.
Rename the "sakura-setting-rename.js" to "sakura-setting.js".
Edit a name of module and a token on the "sakura-setting.js". (Abobe Orange and Yellow on your Sakura control panel)
This is a code to get the count of the receive queue.

POKE#700,#32,0:N=4:GSB@I2C:?PEEK(#783)

Open "index.html" on your browser and touch the "ON" button.

You get "1" as receive queue count.

POKE#700,#32,0:N=4:GSB@I2C:?PEEK(#783)

And you get a data!

POKE#700,#30,0:N=#14:GSB@I2C:?PEEK(#784)

6. Program WoT blinking a LED in BASIC!

1 'SAKURA's IoT beta recv test 100 @LOOP 110 GSB @CHK:IF N=0 WAIT 30:CONT 120 GSB @GET:?"RECV:";N:LED N 130 GOTO @LOOP 800 'IoT Lib 810 @CHK:POKE#700,#32,0:N=4:GSB@I2C:N=PEEK(#783):RTN 820 @GET:POKE#700,#30,0:N=#14:GSB@I2C:N=PEEK(#784):RTN 900 @I2C:'use M,C,I 910 M=PEEK(#701)+2 920 C=0:FOR I=0 TO M-1:C=C^PEEK(#700+I):NEXT:POKE#700+M,C 930 IF I2CR(79,#700,M+1,#780,N+1) STOP 940 C=0:FOR I=0 TO N-1:M=PEEK(#780+I):C=C^M:?M;" ";:NEXT:? 950 IF C!=PEEK(#780+N) OR PEEK(#780)!=1 STOP 960 RTN

Try to make your original WoT!

Thank you Web & Sir Tim! Welcome to the next web era!

2017/03/13 23:55:00
#IchigoJam #IoT #maker #english 

The next web era has come with Web of Things (WoT) and 5-star Open Data.
Mr. Japanese internet Jun Murai presented a honorary degree of doctor of Keio university to sir Tim!

And sir Tim presented to Murai-san. It's good long friendship!


Happy 28th Birthday World Wide Web


I got super rare items! "地球蜘蛛ノ巣@ja" is web in Japanese!


photo: Sir Tim, Mr. Murai and me with "HELLO! WoT" tag


WoT can be accessed via web.
Pressing the button on browser → websocket → Sakura IoT Platform β → turn on the LED on IchigoJam!

1 'SAKURA's IoT beta recv test 100 @LOOP 110 GSB @CHK:IF N=0 WAIT 30:CONT 120 GSB @GET:?"RECV:";N:LED N 130 GOTO @LOOP 800 'IoT util 810 @CHK:POKE#700,#32,0:N=4:GSB@I2C:N=PEEK(#783):RTN 820 @GET:POKE#700,#30,0:N=#14:GSB@I2C:N=PEEK(#784):RTN 900 @I2C:'use M,C,I 910 M=PEEK(#701)+2 920 C=0:FOR I=0 TO M-1:C=C^PEEK(#700+I):NEXT:POKE#700+M,C 930 IF I2CR(79,#700,M+1,#780,N+1) STOP 940 C=0:FOR I=0 TO N-1:M=PEEK(#780+I):C=C^M:?M;" ";:NEXT:? 950 IF C!=PEEK(#780+N) OR PEEK(#780)!=1 STOP 960 RTN

WoT with IchigoJam BASIC is so easy! (I want to be more)
see: Sakur's IoT Platform beta (さくらのIoT Platformβ)
use: "FXMA2102" to fix the level of volt. (OE must connect to VCC / don't need pull up)


My home town Sabae city was elected "Local IoT Acceleration Lab" today also. (鯖江市IoT推進ラボ@ja)
Mr. Jun Murai is chair of "IoT Acceleration Lab".

links
- ティム・バーナーズ=リー卿 慶應義塾大学名誉博士称号授与 記念講演会(3/14@三田,要申込) | 慶應義塾大学 湘南藤沢キャンパス(SFC)
- 「IoT Lab Selection」及び「地方版IoT推進ラボ」を開催し、受賞者を選定・表彰しました!(METI/経済産業省)

Tweet
クリエイティブ・コモンズ・ライセンス
この作品は「Creative Commons — CC BY 4.0」の下に提供されています。
CC BY 福野泰介 - Taisuke Fukuno / @taisukef / high-res profile image