プチコンまとめWiki (初代/mkII)

投稿プログラム : 簡易サウンドテスト

2011年05月03日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム ツール

概要

タイトル通り、サウンドおよびBEEPを鳴らしてみるだけのプログラムです。
公式サイトの投稿プログラムに同様のものがありますが、凝った部分や多機能な部分はない分、リストはより簡潔にしたつもりです。

Toukou/キッチンタイマー
↑を作る時のSE探しのために作りました。

使い方

↑↓項目の移動
←→鳴らすBGM/BEEPの選択
АBGM/BEEPを鳴らす
БBGMの停止

その他

カーソルの文字がチラつくと思いますが、これはウェイト無しで、文字出力をしており、カーソル部分は毎回スペースを出力後にカーソル文字を出力しているためです。
実用上問題ないと考え、あえて対策していません。

プログラムリスト

  1. COLOR 0:CLS:CLEAR
  2. CUR=0
  3. BGM=0
  4. SE=0
  5. @LOOP
  6. NOK=NOT K:K=BUTTON():NOK=K AND NOK
  7. GOSUB @DRAW
  8. IF(NOK AND 1)THEN CUR=1−CUR
  9. IF(NOK AND 2)THEN CUR=1−CUR
  10. IF(NOK AND 4)THEN GOSUB@LEFT
  11. IF(NOK AND 8)THEN GOSUB@RIGHT
  12. IF(NOK AND 16)THEN GOSUB@A
  13. IF(NOK AND 32)THEN BGMSTOP
  14. GOTO@LOOP
  15. @A
  16. IF CUR==1 GOTO @ASE
  17.  BGMPLAY BGM
  18.  GOTO @AEND
  19. @ASE
  20.  BEEP SE
  21. @AEND
  22. RETURN
  23. @LEFT
  24. IF CUR==1 GOTO @LSE
  25.  BGM=(BGM+29)%30
  26.  GOTO @LEND
  27. @LSE
  28.  SE=(SE+69)%70
  29. @LEND
  30. RETURN
  31. @RIGHT
  32. IF CUR==1 GOTO @RSE
  33.  BGM=(BGM+1)%30
  34.  GOTO @REND
  35. @RSE
  36.  SE=(SE+1)%70
  37. @REND
  38. RETURN
  39. @DRAW
  40. LOCATE 11,5:?”SOUND TEST”
  41. LOCATE 10,7:?”  BGM : ”BGM” ”
  42. LOCATE 10,9:?”  SE  : ”SE” ”
  43. LOCATE 10,7+CUR*2:?”>”
  44. RETURN

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)


表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.028 秒 | このページの最終更新 : 2017/02/24 (金) 17:36:05 (968d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30