素数をイルカ君に数えてもらうことにした。 素数生成部分は別途クラス化。Assistantに動いてもらう箇所のみ掲載。 Public Sub PrimeNumbersCalmMeDown() Dim str As String Dim pg As New PrimeGenerator pg.max = 100 pg.init str = str + pg.GetPrimeString(10) str = str + Chr(10) + "落ち着け… 素数を数えて落ち着くんだ…" str = str + pg.GetPrimeString(10) With Assistant .On = True .Visible = True .Animation = msoAnimationThinking End With With Assistant.NewBalloon .Text = str .S
_ イルカと遊ぼう なんとなくイルカと遊びたくなったと仮定する。 なら遊べばよい。 #!/usr/local/bin/ruby -Ks require 'win32ole' KYLE = "C:\\Program Files\\Microsoft Office\\OFFICE11\\DOLPHIN.ACS" agent = WIN32OLE.new("Agent.Control") agent.connected = true r = agent.Characters.load("dol", KYLE) while r.status != 0 && r.status != 1 puts 'loading...' end dol = agent.Characters.Character("dol") dol.Activate(2); dol.show(); [ [300, 300, 1000
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
