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

2020/07/27 01:08:41

MixJuice GET URL : kidspod.club/mj/990

ASDF オルガン

キーボードのASDFの列に白い鍵盤、QWERの列に黒鍵を割り当てました。押下したキーの音階がリアルタイムで表示されるため、キーと音階の対応を視覚的に把握することができます。

  • 1
  • 1

SOURCE CODE

10 CLS:?"ASDF オルカ゛ン":?""
20 ?"ワリアテ キー":?""
30 ?"Q W   R T   U I O   @ ["
40 ?" A S D F G H J K L ; : ]":?""
50 K=INKEY()
60 IF K=81 PLAY"O2G+":?"ソ#"
70 IF K=65 PLAY"O2A":?" ";"ラ"
80 IF K=87 PLAY"O2A+":?"  ";"ラ#"
90 IF K=83 PLAY"O2B":?"   ";"シ"
100 IF K=68 PLAY"O3C":?"     ";"ト゛"
110 IF K=82 PLAY"O3C+":?"      ";"ト゛#"
120 IF K=70 PLAY"O3D":?"       ";"レ"
130 IF K=84 PLAY"O3D+":?"        ";"レ#"
140 IF K=71 PLAY"O3E":?"         ";"ミ"
150 IF K=72 PLAY"O3F":?"           ";"ファ"
160 IF K=85 PLAY"O3F+":?"            ";"ファ#"
170 IF K=74 PLAY"O3G":?"             ";"ソ"
180 IF K=73 PLAY"O3G+":?"              ";"ソ#"
190 IF K=75 PLAY"O3A":?"               ";"ラ"
200 IF K=79 PLAY"O3A+":?"                ";"ラ#"
210 IF K=76 PLAY"O3B":?"                 ";"シ"
220 IF K=59 PLAY"O4C":?"                   ";"ト゛"
230 IF K=64 PLAY"O4C+":?"                    ";"ト゛#"
240 IF K=58 PLAY"O4D":?"                     ";"レ"
250 IF K=91 PLAY"O4D+":?"                      ";"レ#"
260 IF K=93 PLAY"O4E":?"                       ";"ミ"
270 GOTO50

COMMENT