blog/2006年11月07日/Rubyいじり（8ビート、ジェネレータ） - 0141029 @wiki

#blognavi

ものは言いよう。全然たいしたものではないんですけどね。とりあえずの習作。

0　1　2　3　4　5　6　7
↓ _ ↓ ↑ _ ↑ ↓ ↑

require 'tk'
require "win32/sound"
  include Win32
  $i = 0
  def randomwav
    if $i%8 == 1 || $i%8 == 4
      sleep 0.1 # 適当に0.1秒停止。
    else
      Sound.play("C:/WINNT/Media/start.wav")
    end
  end
  def linlin
    TkAfter.new(100, 115, proc{randomwav
    $i+=1
  }).start
  end
  button = TkButton.new {
    text "Bell"
    command {linlin}
    pack
  }
Tk.mainloop

カテゴリ: [ruby] - &trackback() - 2006年11月07日 10:14:27

#blognavi