カテゴリー: Ruby/Tk

UbuntuでRuby2.4.1にTkをインストールする

投稿日: 2017年4月5日2017年4月5日投稿者: k2

TkがRuby本体から分離されましたが、オプションは今までの通りでも大丈夫なようです。 gem install tk — –with-tcltkversion=8.6 \ –with-…

全文を読む

【Ruby】救急外来で使えそうな診断ツールを作ってみた記録

投稿日: 2016年8月7日2018年5月20日投稿者: k2

救急外来で使えそうな疾患診断支援ツールを作ってみた　医療 × Ruby × Tk × 人工知能(単純ベイズ分類器)ネタです。数年前に臨床研修をしていた時の話です。臨床研修の記憶が残っているうちに書き残していこうと思いま…

全文を読む

今日の落書き Ruby/Tk でペイント

投稿日: 2016年1月12日2016年9月5日投稿者: k2

タブ付きのペイントソフトスライダーでペンの太さの調整、○に枠線をつけるかどうか選択できる Ctrl + T タブ増やす Ctrl + Delete タブ消す Shift + マウス消しゴム [crayon-5f0b5…

全文を読む

今日の落書き Ruby/Tk で地図っぽい

投稿日: 2015年12月12日2015年12月13日投稿者: k2

前回に引き続きwww.complexification.netのギャラリーsubstrateが美しいので真似してみる。

require 'tk'
include Math

WIDTH = 1200
HEIGHT = 700
NUM = 5

@canvas = TkCanvas.new(width:WIDTH, height:HEIGHT, bg: :white).pack

@pixels = {}

def findstart
  k = @pixels.keys.sample
  @pixels[k] += [90,-90].sample
  [*k, @pixels[k]]
end

@writers = Array.new(NUM){ [rand(WIDTH),rand(HEIGHT),rand(360)] }

TkTimer.start(1) do

  @writers.map! do |w|
    old_x, old_y, t = w
    x = old_x + cos(t*PI/180)
    y = old_y + sin(t*PI/180)

    # 描出
    @canvas.create "rectangle", x, y, x+1, y+1, width:0, fill: :black
    d = @pixels[[x.to_i, y.to_i]]

    # 境界外に出た場合
    if x < 0 or x > WIDTH or y < 0 or y > HEIGHT
      findstart

    # 既存の道にぶつかった場合
    elsif d and d!=t
      findstart
    else
      @pixels[[x.to_i, y.to_i]]=t
      [x, y, t]
    end
  end

end

Tk.mainloop

require 'tk'

include Math

WIDTH = 1200

HEIGHT = 700

NUM = 5

@canvas = TkCanvas.new(width:WIDTH, height:HEIGHT, bg: :white).pack

@pixels = {}

def findstart

k = @pixels.keys.sample

@pixels[k] += [90,-90].sample

[*k, @pixels[k]]

end

@writers = Array.new(NUM){ [rand(WIDTH),rand(HEIGHT),rand(360)] }

TkTimer.start(1) do

@writers.map! do |w|

old_x, old_y, t = w

x = old_x + cos(t*PI/180)

y = old_y + sin(t*PI/180)

# 描出

@canvas.create "rectangle", x, y, x+1, y+1, width:0, fill: :black

d = @pixels[[x.to_i, y.to_i]]

# 境界外に出た場合

if x < 0 or x > WIDTH or y < 0 or y > HEIGHT

findstart

# 既存の道にぶつかった場合

elsif d and d!=t

findstart

else

@pixels[[x.to_i, y.to_i]]=t

[x, y, t]

end

Tk.mainloop

Ruby/Tk で動くスクリプトを、ネストしながらさっさと配置する方法を考える

投稿日: 2015年11月29日2015年11月29日投稿者: k2

Ruby/Tk の需要というのはニッチだ。Pythonの波に乗り遅れてしまっている。趣味のツールとしてRubyプログラミングがちょっとしたい。一瞬で簡単に書きたい。そういう需要はきっと少なくないと思う。それには Rub…

全文を読む

今日の落書き Ruby/Tk でフィボナッチ配列(螺旋)

投稿日: 2014年5月10日2014年5月10日投稿者: k2

require 'tk'
include Math

ANGLE = 2*PI*(1+sqrt(5))/2

canvas = TkCanvas.new(height:300,width:300,bg: :black).pack
2000.times do |t|
  angle = t * ANGLE
  r = t * 0.1
  x = 150 + r * cos(angle)
  y = 150 + r * sin(angle)
  TkcOval.new(canvas,x-1,y-1,x+1,y+1, outline: :green)
end

Tk.mainloop

require 'tk'

include Math

ANGLE = 2*PI*(1+sqrt(5))/2

canvas = TkCanvas.new(height:300,width:300,bg: :black).pack

2000.times do |t|

angle = t * ANGLE

r = t * 0.1

x = 150 + r * cos(angle)

y = 150 + r * sin(angle)

TkcOval.new(canvas,x-1,y-1,x+1,y+1, outline: :green)

end

Tk.mainloop

特に意味はないけど綺麗だね。

今日の落書き時計

投稿日: 2014年5月4日2014年8月24日投稿者: k2

今日の落書き

require 'tk'

t = TkVariable.new
TkTimer.start(1000){
  t.value = Time.now.strftime "%X"
}
f = TkFont.new(size:24)
TkLabel.new(textvariable:t, font:f).pack
Tk.mainloop

require 'tk'

t = TkVariable.new

TkTimer.start(1000){

t.value = Time.now.strftime "%X"

}

f = TkFont.new(size:24)

TkLabel.new(textvariable:t, font:f).pack

Tk.mainloop

何の変哲もない。

今日の落書き Ruby/Tkでメモ帳

投稿日: 2014年3月27日2016年6月3日投稿者: k2

今日の落書きその2 Ruby/Tkでメモ帳。Windows向け。Ruby/Tkを始めた頃こういうサンプルが欲しかったので。紫藤のページ様のhttps://www.shido.info/py/tkinter12.html…

全文を読む

今日の落書き Ruby/Tkで巡回セールスマン１

投稿日: 2014年3月21日2014年3月22日投稿者: k2

今日の落書き。Ruby/Tkで遺伝的アルゴリズムもどきを使って巡回セールスマンをやってみた。あくまで「もどき」なので無性生殖しかしない。惜しいかな、素晴らしいイノベーションがあっても、他の長所を持つ他人と分かち合って化…

全文を読む

今日の落書き Ruby/Tk でRSSリーダー

投稿日: 2014年3月4日2014年3月21日投稿者: k2

今日のRuby/Tk落書き。ありがちなネタ＝RSSリーダー。

require 'rss'
require 'tkextlib/bwidget'
include Tk::BWidget

address = TkVariable.new("アドレスを入力して下さい")
f = TitleFrame.new(text:"URL").pack(padx:10,pady:10).get_frame
e1 = Entry.new(f, textvariable:address, width:80).pack(side: :left)
b1 = Button.new(f, text:"取得").pack(side: :right).command proc{getrss(address.to_s)}
b2 = Button.new(f, text:"✕").pack(side: :right).command proc{address.value=""}

@tree = Tk::Tile::Treeview.new(show: :headings,height:20).pack(fill: :both)
@tree.columns = "Title Link"
@tree.columns.each{|col|
  @tree.heading_configure(col,text:col)
}

def getrss(adress)
  @tree.delete @tree.children('')
  rssdata = RSS::Parser.parse(adress)
  rssdata.items.each{|item|
   @tree.insert nil, :end, value:[item.title, item.link]
  }
end

Tk.mainloop

require 'rss'

require 'tkextlib/bwidget'

include Tk::BWidget

address = TkVariable.new("アドレスを入力して下さい")

f = TitleFrame.new(text:"URL").pack(padx:10,pady:10).get_frame

e1 = Entry.new(f, textvariable:address, width:80).pack(side: :left)

b1 = Button.new(f, text:"取得").pack(side: :right).command proc{getrss(address.to_s)}

b2 = Button.new(f, text:"✕").pack(side: :right).command proc{address.value=""}

@tree = Tk::Tile::Treeview.new(show: :headings,height:20).pack(fill: :both)

@tree.columns = "Title Link"

@tree.columns.each{|col|

@tree.heading_configure(col,text:col)

}

def getrss(adress)

@tree.delete @tree.children('')

rssdata = RSS::Parser.parse(adress)

rssdata.items.each{|item|

@tree.insert nil, :end, value:[item.title, item.link]

}

end

Tk.mainloop

Ruby/Tkはミニツールが簡単に作れてすごく便利。でも、RSSはまったく便利ではなく、使…

全文を読む