[DPC-100] 100m走プログラム

iPad/iPhone向けアプリケーションのDPC-100を購入しました。

http://www.detune.co.jp/dpc100.html

まだ不安定ですが何とかアプリが一つできました。

 

プログラムを実行したら、DPC-100のキーボードは無視して画面の左右を交互にタップしてください。

イメージとしては、右足、左足を交互に出す感じです。

うまく交互に入力すると速度が上がっていきます。

入力が失敗したり、何もしないでいるとと徐々に速度が落ちます。

100m走り切ったら走行時間が10秒間表示してプログラムを終了します。

 

本当はカウントダウンも付けたかったのですが、何故かアプリごと落ちるので断念しました。

無駄なところが多々あるかもしれませんが、どうぞご自由にお使いください。

[PHP]

100 REAL R=100.1
110 REAL SP=0.0
120 INT S=0
130 REAL T=0
140 INT L=238
150 INT XN=0
160 INT XL=0
170 INT TC=0
180 WHILE 1
190 TC=TOUCH(-1,0)
200 IF TC==0 THEN GOTO SPDOWN ELSE GOTO SPUP
210 SPDOWN:
220 S=S-15
230 IF S<0 THEN S=0
240 GOTO SPDBAR
250 SPUP:
260 XN=CLAMP(TOUCH(0,0),-1,1)
270 IF XN<0 THEN L=237 ELSE L=238
280 IF XN!=XL THEN S=S+10 ELSE S=S-15
290 IF S>=160 THEN S=159
300 IF S<0 THEN S=0
310 XL=XN
320 GOTO SPDBAR
330 SPDBAR:
340 BAR=133 + S/32
350 SP=CLAMP(S,0,160)*0.01
360 R=R-SP
370 VIEW:
380 IF R<0 THEN BREAK
390 PRINTF(“%04.1fs %05.1fm %c%c”, T, R, BAR, L)
400 WAIT(0.1, 1)
410 T=T+0.1
420 WEND
430 PRINTF(“TIME:%04.1fs”,T)
440 WAIT(10,1)

[/PHP]

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です