Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2018/12/15 16:40:57

MixJuice GET URL : kidspod.club/mj/710

4和音ピアノ ichilatte+pancake版

ichigolatteとpancakeがキーボードを鍵盤にピアノにするプログラ厶です。
キーボードのZXC…がドレミ…に対応しています。SD…が黒鍵になります。
こんな感じで白鍵と黒鍵でキーボードいっぱいまで38音階使用できます
画面には音階を0〜37で数値を表示するので効果音を作曲する際に利用できると思います。
pancakeの機能を生かしてキーを短い間隔で連打すると和音になります。
ichigolatteとpancakeを持っている方は音楽を楽しんで下さい!

SOURCE CODE

//SYNTHE
var t=new Array(32);//Arrey=keyMAP
t[0]=0x307a;t[1]=0x7073;t[2]=0x2d78;
t[3]=0x5b64;t[4]=0x5d63;t[5]=0x5c76;
t[6]=0x67;t[7]=0x62;t[8]=0x68;
t[9]=0x6e;t[10]=0x6a;t[11]=0x6d;t[12]=0x2c;t[13]=0x6c;t[14]=0x2e;
t[15]=0x3b;t[16]=0x2f;t[17]=0x71;
t[18]=0x32;t[19]=0x77;t[20]=0x33;
t[21]=0x65;t[22]=0x34;t[23]=0x72;
t[24]=0x74;t[25]=0x36;t[26]=0x79;
t[27]=0x37;t[28]=0x75;t[29]=0x69;
t[30]=0x39;t[31]=0x6f;
var c=0;//c=SOUND CHANNEL
function so(){
 uart(128,11,9,0,255,1,255,2,255,3,255);
}
function snd(k){
 var a,i;
 c=c+1&3;
 a=t[0]&255,i=0;
 while(i<38){
  if(k==a){
   break();
  }
  i=i+1;
  a=t[i%32]>>(i/32*8)&255;
 }
 if(i>37){
 }else{
  uart(0x80,0x06,0x0a,c,4+i/12,i%12);
  setTout(so,400);//SOUND OFF
 log(i," ");
 }
}
setKprs(snd);

COMMENT