blog/2006年11月06日/Rubyいじり（メトロノーム完成品？） - 0141029 @wiki

#blognavi

結局できたのはメトロノームじゃないのですが、音出しの実験はうまくいったということで。これに画像つければ、ビートマニアみたいなゲーム作れそう。とはいえ興味ないので、ギターのリズム練習用プログラムにでもします。

ちなみに普段のbeep音は、C:/WINNT/Media/ding.wav です。

require 'tk'
require "win32/sound"
  include Win32
  def randomwav
    a = rand(2)
    if a == 0
      Sound.play("C:/WINNT/Media/Microsoft Office 2000/TYPE.WAV")
    else
      Sound.play("C:/WINNT/Media/start.wav")
    end
  end
  def linlin
    TkAfter.new(100, 4, proc{randomwav}).start
  end
  button = TkButton.new {
    text "Bell"
    command {linlin}
    pack
  }
Tk.mainloop

カテゴリ: [ruby] - &trackback() - 2006年11月06日 09:11:02

#blognavi