すいません、VB４しかやってないんです、VBAはやったけど（ぼそ）

年末年始のご挨拶

片桐　継（Tugu Katagiri） — Wed, 31 Dec 2008 18:43:00 GMT

片桐です。

今年は色々と公私ともにお世話になりました。

ほんと、激動の一年＜大げさ　でした。

来年もよろしくお願いします。

で、最近頑張ってみた写真を貼ってみます。FinePixの古いやつですけど。

デジ一眼が本当に普及している昨今ですが、今だ小さいデジカメでも頑張れるよー、と。

うちのウーパールーパー（アホロートル・マーブル）、名前はまーくん、２歳になります。

元々は厳しい自然環境で生き抜く為にあえて変態することを捨て、両生類の幼体の姿で一生を終えるウーパールーパーはある意味究極のアダルトチルドレンだとも思うのですが＜違っ

この哀愁の背中？　いえ、来年にむけて決意新たな背中、と見ていただければ幸いです。

創世のカタギリオン（年内納品、がんばってみたけど子羊がバグ出しちゃった Ver.）

片桐　継（Tugu Katagiri） — Sat, 27 Dec 2008 22:13:00 GMT

開発の始まりの日　画面の窓の中で　．NETのコード　多い残業一人で強いた

やりたいこと全て　やりたいもの全て　理不尽な仕様　できるわけねぇ　あきらめたいよ

一般をしのぐ怒涛の作業　出会わなければ確実に暇でいられた

クエリのチューニングばかりやって　プログラム打ち続け　処理早くするため　組まれてきた

一万件と二千件あっても　動いてる

八千件すぎた頃からちょっと処理遅くなった

一億と二千件あっても　動いてる

それをやったその日から僕の地獄に音楽は絶えない

開発終わる前に　いのちが終わる前に

作る嘆きほどいて　定時帰り　始めてたいよ

危機せまり　納期超えの記憶

失意に呑まれ　立ち尽くす　狂おしき日々

よみがえれ　永遠（とわ）に動くサーバー

とまらないでプログラム

祈り宿しながら納めてきた

一万件と二千件あっても　動かない

八千件すぎた頃からちょっと処理怪しくなった

一億と二千件あったら動かない

それをやったその日から僕の地獄に音楽は絶えない

（Wow……このバグ何？）

僕は繰り返しバグ取りやって

何度も何度もテストもやって

帰れない僕が眠れない僕がクシャクシャになったとしても

Uu....帰りたい.....

人並みに生きるために……

一万件と二千件あっても　動いてる

八千件すぎた頃からちょっと処理遅くなった

一億と二千件あっても　動いてる

それをやったその日から僕の地獄に音楽は絶えない

「子羊爆発しろ～っ！」

---------------

まだ続いてます。でも、年内納品は何とかなりました。

納会の帰り、これをずっと歌いながら帰った事は後悔してませんｗ

片桐の近況

片桐　継（Tugu Katagiri） — Sat, 27 Dec 2008 21:44:00 GMT

年末年始ですが、何するわけでもなくｗｗｗ

平凡な長期休暇を満喫しようかという私なのですが……

実は、ただ今、着物着付師のお免除をとるため、修行中の身です。おなじ生徒さんはみんな年下だし、和裁やファッション、美容専門学校の生徒さんが多く、一人だけフルタイム勤務の社会人で年齢全くもって違うという状態です。

着付師の先生に弟子入りしているわけですが、先生の今までの生徒さんでのジンクスに「システムエンジニアやIT系職種経験者は挫折して辞めてしまう」というものがあるそうで、私で歴代５人目になるとか。

「そのジンクス、私が破りますよ、せんせ♪」と微笑んだ手前、挫折する気はありません。残業の危険があるなら、先に手を打てば良い、発言力を持てば良い、それだけのフォローができる体制にすれば良い。ある意味、自分の仕事の仕方や考え方を整理して見直して、行動にしていく良い機会になってる気もします。

修行中の着物関係はしゃべり出すとうるさいのでｗ、別のブログにまとめました。といっても、一方的につぶやくだけでコメントとかは入りませんが＾＾；

kimonolog

http://esten.tumblr.com/

そんな私が、次回東京、登壇することになってます。ええ、着物で登壇します。

え？ハム？冬は寒いので脱走させるわけにはいきませんやん♪

と言いつつ、実は「まじめな技術話」は初めてかもしれません。DEMOもできればやりたいなぁなんて思いながら、鋭意、スライド作成中です。

http://www.wankuma.com/seminar/20090124tokyo28/Default.aspx

よかったら、聞いてやってください。

やまたのおろちが酒を飲む～片桐的VB.NETスレッドプログラミング～その３

片桐　継（Tugu Katagiri） — Sat, 27 Dec 2008 21:27:00 GMT

やまたのおろちが酒飲んでます。あいかわらずの飲兵衛です。

その１

http://blogs.wankuma.com/esten/archive/2008/12/03/162607.aspx

ここでは、ただ首一本がガブガブ飲むだけだったんだけど、それじゃ他の首が飲ませろとうるさいので、全部の首がせーのっ！で飲めるようにして

その２

http://blogs.wankuma.com/esten/archive/2008/12/09/163043.aspx

となったわけだけれども、コメントでツッコミがあったように、これだけでは全く持って、ダメダメプログラミングなわけですｗ。はい、わざとです。

では、どうしようか？　リファクタする？

でもその前に、まだやっておかなくちゃいけないことがあるんだわ。

やまたのおろちが飲みたい酒ツボが１つだったときにどうなるかって話。

Imports System
Imports System.Threading

Module OrochMTA

    Delegate Sub DrinkingSAKE()

    '酒ツボは一つ
    Private sakeTubo As Integer

    '酒ツボの残り
    Private sakeNokori As Integer

    <MTAThread()> _
  Public Sub Main()

    '酒ツボに酒を準備
    sakeTubo = 50000
    sakeNokori = sakeTubo

    '本体で首が別々に酒飲みするのを身構える

        Dim ts As New ThreadStart(AddressOf OrochiDrinking)

        Dim workerThread As New Thread(ts)

        workerThread.SetApartmentState(ApartmentState.MTA)

        workerThread.Start()

        workerThread.Join()

        Stop

  End Sub

    Private Sub OrochiDrinking()

        'まずは首を八本で飲んでみる
        Dim headCount As Integer = 8

        '酔っ払い待ち行列を首の数だけ準備
        Dim yoppa(headCount - 1) As WaitHandle

        For i As Integer = 1 To headCount

            '飲んだ首から酔っ払いへと
            yoppa(i - 1) = HeadDrinking(i).AsyncWaitHandle

        Next

        '全部の首が酔っ払いになるまで待機
        WaitHandle.WaitAll(yoppa)

    End Sub

    Private Function HeadDrinking(ByVal headNo As Integer) As IAsyncResult

        '指定した番号の首に酒を飲ませる
        Dim myHead As New OrochiHead(headNo)

        Dim gubi As New DrinkingSAKE(AddressOf myHead.Drink)

        '酒飲み開始とともに、酔っ払い待ち行列へ戻す
        Return gubi.BeginInvoke(Nothing, Nothing)

    End Function

    'おろちの首をクラス化
Private Class OrochiHead

    Private meNumber As Integer

    '何番目の首なのかを保存
    Public Sub New(ByVal headNo As Integer)

        meNumber = headNo

    End Sub

    '酒を飲むメソッド
    Public Sub Drink()

        Dim sakeZuki As New Thread( _
          New ThreadStart(AddressOf DrinkSAKE)) ' 

        sakeZuki.Start()
        sakeZuki.Join()

          Console.WriteLine("ぷはーっ！ {0}番目の首、飲み終わり！", meNumber)

    End Sub


  ' 酒のみスレッド
  Private Sub DrinkSAKE()

        Dim totalDrunk As Integer = 0
        Dim nowDrink As Integer

        Dim oneDrink As New Random
        Dim oneBreath As New Random

        '酒ツボの中の酒を飲み干す
        While (sakeNokori > 0)

            '一回飲むたびに息継ぎ
            Thread.Sleep(oneBreath.Next(30, 60))

            '一回ぐび
            nowDrink = oneDrink.Next(1, 100)

            '全部でどれくらい飲んだ？
            sakeNokori -= nowDrink

            Console.WriteLine("{0}番目の首が {1} リットル ぐびっ : 残り {2} リットル", meNumber, nowDrink, sakeNokori)


        End While

  End Sub

End Class

End Module

ぱっと見、これだけに見えるよね？

でも、これが落とし穴。

CPUの数が多い時、スレッドはどのCPUで管理されるかはOS次第。でもそのバラバラに動いているスレッドの処理が一箇所のアドレスにある値を読み出して書き出すわけだから、「今ある酒の量が本当に正しい」かどうか判らなくなる。これが小さなスレッドと一瞬で終わるプログラムなら気がつかないかもしれない。でも、沢山のCPU、スレッドで動いたときこの落とし穴ははっきりと結果にでてくるんだよね。

つまり、一つの酒ツボから複数の首が酒を飲むわけだけど、実際に、首の動きを制御しているのは、CPU。だから、CPUが複数あると、本当の意味で「同時に」首が酒を飲むことができるわけで、そうなると、酒ツボから飲んだ→残りこんだけ、という動きも本当の意味で「同時に」起きちゃうことになるの。そうなっちゃうと、今の酒の残り、は本当に正しい！ということがこのままだといえなくなっちゃうんだ。たとえば残り１００リットルから、ある首Aが２０リットル飲んで、ある首Bが１０リットル飲んだ。この時、本当だったら残りは７０リットルのはずなんだけど、２個のCPUがあるときに、Aの「100-20」の計算を１CPU、Bの「100-10」の計算を１CPUがそれぞれに同時にしちゃったら結果は「80」もしくは「90」として格納、これ、プログラム的には正しい動作なんだもの。見えないだけで、実はやまたのおろちの首はおもいっきり絡まってて、絡まったなりに酒を飲んだツモリになってたりしてるってことだよね。

厄介なのは、これ、必ず再現できると限らないんだ。

VisualStudioのデバッガをつかってブレークポイントを仕掛けて止めただけでも、マルチスレッドプログラミングは直列の処理に最適化されてしまうので、ステップするとうまくいっちゃったりとかする。「なんで？何が悪いの？」がさっぱり判らなくなっちゃう。

おそろしいよね、それって。

だから、スレッド間でやり取りする値、読み出したり書き出したり更新したりする時には、必ずスレッド間で同期を取れるように作ってあげないといけない。

マルチスレッドが難しいのはこの考え方があるからで、実はこれを回避するための処理クラスやステートメントが、ちゃんと用意されてたりするのね。

それが、InerLockedクラス、そして、SyncLockステートメントブロック

じゃ、こいつらを使って、やまたのおろちに行儀良くお酒を飲んでもらおうと思う。ついでに、リファクタってやつもやってみるってことで、それは次回ねｗ

実はまだ出てない新キャラがいるんだ、スサノオってのがｗｗｗ

やまたのおろちが酒を飲む～片桐的VB.NETスレッドプログラミング～その２

片桐　継（Tugu Katagiri） — Tue, 09 Dec 2008 10:23:00 GMT

やまたのおろちはお酒大好き。とりあえず前回は代表の首一本だけが酒ツボからグビグビいっちゃう想定でシングルスレッドのお話をしてたりなんかしたのね。

http://blogs.wankuma.com/esten/archive/2008/12/03/162607.aspx

でも、これだと他の酒のみ待ち首はきっとウルサイ。先に飲ませろ、俺に飲ませろ、まぁ黙れやこの飲兵衛よっぱらい爬虫類もどきドモがっ！といいたくなるような状況にきっとなっちゃう。

そこで、全部の首に、いっせーーーーの！で飲ませようというのが今回のお話、マルチスレッドね。

実は前回で、一つの首が酒を飲むのにデリゲートしてシングルスレッドで飲ませるところまではできた。つまり簡単に考えれば、シングルになっているところをマルチにするだけで、事は解決できるはず。

Imports System.Threading

Module OrochMTA

    Delegate Sub DrinkingSAKE()

    <MTAThread()> _
  Public Sub Main()

    '本体で首が別々に酒飲みするのを身構える

        Dim ts As New ThreadStart(AddressOf OrochiDrinking)

        Dim workerThread As New Thread(ts)

        workerThread.SetApartmentState(ApartmentState.MTA)

        workerThread.Start()

        workerThread.Join()

        Stop

  End Sub

    Private Sub OrochiDrinking()

        'まずは首を八本で飲んでみる
        Dim headCount As Integer = 8

        '酔っ払い待ち行列を首の数だけ準備
        Dim yoppa(headCount - 1) As WaitHandle

        For i As Integer = 1 To headCount

            '飲んだ首から酔っ払いへと
            yoppa(i - 1) = HeadDrinking(i).AsyncWaitHandle

        Next

        '全部の首が酔っ払いになるまで待機
        WaitHandle.WaitAll(yoppa)

    End Sub

    Private Function HeadDrinking(ByVal headNo As Integer) As IAsyncResult

        '指定した番号の首に酒を飲ませる
        Dim myHead As New OrochiHead(headNo)

        Dim gubi As New DrinkingSAKE(AddressOf myHead.Drink)

        '酒飲み開始とともに、酔っ払い待ち行列へ戻す
        Return gubi.BeginInvoke(Nothing, Nothing)

    End Function

    'おろちの首をクラス化
Private Class OrochiHead

    Private meNumber As Integer

    '何番目の首なのかを保存
    Public Sub New(ByVal headNo As Integer)

        meNumber = headNo

    End Sub

    '酒を飲むメソッド
    Public Sub Drink()

        Dim sakeZuki As New Thread( _
          New ThreadStart(AddressOf DrinkSAKE)) ' 

        sakeZuki.Start()
        sakeZuki.Join()

          Console.WriteLine("ぷはーっ！ {0}番目の首、飲み終わり！", meNumber)

    End Sub


  ' 酒のみスレッド
  Private Sub DrinkSAKE()

        '酒ツボの中の酒の量
        Dim totalSAKE As Integer = 1000

        Dim totalDrunk As Integer = 0
        Dim nowDrink As Integer

        Dim oneDrink As New Random
        Dim oneBreath As New Random

        '酒ツボの中の酒を飲み干す
        While (totalDrunk <= totalSAKE)

            '一回飲むたびに息継ぎ
            Thread.Sleep(oneBreath.Next(30, 60))

            '一回ぐび
            nowDrink = oneDrink.Next(1, 100)
            Console.WriteLine("{0}番目の首が {1} リットル ぐびっ", meNumber, nowDrink)

            '全部でどれくらい飲んだ？
            totalDrunk += nowDrink

        End While

  End Sub

End Class

End Module

変わった部分、あんまり無い（笑）。でも動かしてみると判るけど、全部の首が並列でぐびぐび酒飲んじゃう。

ポイントは、

７行目：<MTAThread()>
16行目：workerThread.SetApartmentState(ApartmentState.MTA)

これによって、「これから動かすスレッドは並列で動かすつもりなんでよろしく！」と準備して、

54行目：Return gubi.BeginInvoke(Nothing, Nothing)

で実際に、スレッドが「非同期で」起動、でもって、一つ一つのスレッドの背番号（IAsyncResultクラスのWaitHandle）をうけとって

42行目：WaitHandle.WaitAll(yoppa)

で全部の背番号にぶら下がったスレッドが終了するまで処理を待機する、ってところ。

なんだ、簡単じゃぁん！なんて思うでしょ？実際、簡単に見えてくるもの。でもこれがでっかいでっかい落とし穴。動くけど、このソースだけじゃまだまだダメだったりなんかする。過信するなよ、.NetFrameworkプログラミング（笑）

実は村で用意したのは馬鹿でかい酒ツボ一個。だから、首一つにつき酒ツボ一つじゃなくて、全部の首で一つの酒ツボから酒を飲むことになっちゃった！

って、この酒ツボが一個になった時に起きる時、マルチスレッドプログラミングで落っこちる地獄への入り口で、これがまた、ふっかーーい話だったりするの。覚悟せよ、次回（笑）