- 220 名前：uy mailto:sage [2012/05/20(日) 13:07:45.79 ]
- ソース整理してたら昔ruby-tk-sdlで作ったサウンドプレイヤーでてきたので貼り
require 'tk'
require 'sdl'
music = nil
SDL.init(SDL::INIT_AUDIO)
SDL::Mixer.open
etr=TkEntry.new
etr.pack
btnSet=TkButton.new
btnSet.text = "File Select"
btnSet.command{ etr.value = Tk.getOpenFile
music = SDL::Mixer::Music.load( etr.value ) }
btnSet.pack
root = TkRoot.new { title 'sound_player' }
sstr = %w!再生 停止 一時停止 再開 終了!
sfunc = [
lambda do SDL::Mixer.play_music(music,1) end ,# 再生
lambda do SDL::Mixer.halt_music end , # 停止
lambda do SDL::Mixer.pauseMusic end , # 一時停止
lambda do SDL::Mixer.resumeMusic end , # 一時停止を再開
lambda do exit end
]
sstr.each_with_index do | str , i |
button = TkButton.new
button.text = str
button.command = proc { sfunc[i].call }
button.pack 'side'=>'left'
end
Tk.mainloop
|
 |
