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

Play the volca sample by IchigoJam コンピューターで楽しむ音楽!

2017/06/13 23:55:00
#IchigoJam #sound #KidsIT #MIDI 

Making rhythm is fun! リズムづくりは楽しい!
Play the easy sampler "volca sample" by IchigoJam.
お手軽サンプラー「volca sample」をIchigoJamで奏でよう!

1. prepare a MIDI output. MIDI出力を準備します
2. connect つなぎます
3. test a sound 試しにならしてみます

BPS31250 OK ?CHR$(#90,1,1) OK

*volca sample MIDI Implementation Chart / MIDI仕様書

4. program it! プログラムを打ち込みます

10 UART0:CLS:?"MIDI DRUMS" 15 BPS31250 20 P="12345678QWERTYUIASDFGHJKZXCVBNM," 30 FORI=0TO8*4-1:LCI%8*2,I/8*2+4 40 IF RND(3)=0 ?"O" ELSE ?"." 50 NEXT 60 W=10 70 BPS31250:N=0 75 LC 0,14:?"WAIT:";DEC$(W,3) 80 LCN*2,12:?"^" 90 UART1:LC0,-1:FORI=0TO3 92 IF SCR(N*2,I*2+4)=79 ?CHR$(#90+I,1,1); 94 NEXT:UART0 100 WAIT W 110 LCN*2,12:?" " 120 N=(N+1)%8 130 K=INKEY() 140 IF K=UP W=W-1 150 IF K=DOWN W=W+1 160 IF K=SPACE GOTO30 170 IF K GOSUB300 180 IF K=8 FORI=0TO8*4-1:LCI%8*2,I/8*2+4:?".":NEXT 200 GOTO 75 300 FORI=0TO8*4-1:IF ASC(P+I)=K LCI%8*2,I/8*2+4:IF SCR()=79 ?"." ELSE ?"O" 310 NEXT:RETURN

5. Enjoy! 楽しむ!
How to play - 演奏法
1-8 Q-I A-K Z-, - Make the PATTERN (キーボードのキーで音を置いたり取ったり)
SPACE - RANDOM PATTERN (スペースでランダムパターン)
Backspace - CLEAR PATTERN (バックスペースでパターンクリア)
Cursor UP - Up the Tempo (上キーでテンポアップ)
Cursor DOWN - Down the Tempo (下キーでテンポダウン)


Comming soon MIDI I/O kit for IchigoJam! MIDI入出力キットも準備中!

links
- volca sample
- MIDI Random Rhythm Machine with KORG volca beats x IchigoJam
- シンセサイザー / キーボード | KORG (Japan)

MIDI Random Rhythm Machine with KORG volca beats x IchigoJam

2017/01/19 23:55:00
#IchigoJam #MIDI #music #english 

IchigoJam can control any MIDI instrument easily!

volca beats x IchigoJam


How to connect MIDI and IchigoJam
1. Flip back the MIDI socket(¥60).
2. Solder the red jumper to 2nd from the left.
3. Solder the green jumper to 4th from the left.
4. Connect the red jumper to VCC of IchigoJam.
5. Connect the green jumper to TXD of IchigoJam.

MIDI is the UART serial communication with 31,250bps.

BPS 31250:?CHR$(#90,60,100);

This is the random rhythm machine program. It's very simple!

10 LET[0],36,38,43,50,42,46,39,75,67,49 20 BPS 31250:S=0 30 SRND S 40 FOR I=0 TO 7 50 ?CHR$(#99,[RND(10)],1); 60 WAIT 10 70 NEXT 80 K=INKEY():IF K S=K 90 GOTO 30

#99 means the tone of rhythm 10ch. The numbers of line 10 are volca beats's 10 sounds. (UART0 is a command to ignore sending via UART)

Try computer music with IchigoJam!

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