VB

よいどれコンパス

επιστημη — Wed, 03 Feb 2010 14:59:00 GMT

# 「数学Day」前座

べろべろに酔っ払ったコンパスがいる。
よたよたふらふらと歩き回るが歩幅は一定。
このよいどれコンパスを広場の真ん中に置き去りにする。
コンパスはどんな軌跡を描くだろうか。

雰囲気的に「中心が濃く、中心から遠ざかるほど薄い雲」になりそう。
ホントカナ?

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        bmp = New Bitmap(PictureBox1.Width, PictureBox1.Height)
        PictureBox1.Image = bmp
        x = PictureBox1.Width / 2
        y = PictureBox1.Height / 2
    End Sub

    Private bmp As Bitmap
    Private x As Integer
    Private y As Integer
    Private r As New Random()

    Private Sub start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles start.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim theta As Double = r.NextDouble() * 2.0 * 3.1416
        x = x + 5 * Math.Sin(theta)
        y = y + 5 * Math.Cos(theta)
        If (x > 0 AndAlso x < PictureBox1.Width) Then
            If (y >= 0 AndAlso y < PictureBox1.Height) Then
                bmp.SetPixel(x, y, Color.Red)
                PictureBox1.Image = bmp
            End If
        End If
    End Sub

乱数の精度に依存しそうですねー。

かき混ぜてはいかがでしょうか

επιστημη — Mon, 13 Jul 2009 13:23:00 GMT

ネタ元 → シャッフル → トランプのシャッフル

僕ならこうやる。
配列を用意する。ナカミは01～13を入れておく。

01 02 03 04 05 06 07 08 09 10 11 12 13|

縦棒'|'の左をシャッフル前、右をシャッフル後とする。
シャッフル前の要素の中からでたらめにひとつ選び、
シャッフル前の末尾要素と入れ替えて|を左にずらす。
たとえばでたらめに05を選んだなら:

01 02 03 04 13 06 07 08 09 10 11 12|05

同じこと、つまり：
シャッフル前の要素の中からでたらめにひとつ選び、
シャッフル前の末尾要素と入れ替えて|を左にずらす。
たとえばでたらめに10を選んだなら:

01 02 03 04 13 06 07 08 09 12 11|10 05

以下同文に繰り返し、| が左端に達したらシャッフル完了。

VB.NETで書いてみた。

Module ShuffleDemo

    ' x と y を交換する
    Sub Swap(ByRef x As Integer, ByRef y As Integer)
        Dim t As Integer = x
        x = y
        y = t
    End Sub

    ' data() をかき混ぜる
    Sub Shuffle(ByVal data As Integer())
        Dim rnd As New Random()
        For n As Integer = data.Length To 1 Step -1
            ' "n未満の乱数"番目と "n-1"番目とを入れ替える
            Swap(data(rnd.Next(n)), data(n - 1))
        Next
    End Sub

    Sub Main()
        Dim data(13) As Integer
        ' data() を 1, 2, 3, ... 13 で埋める
        For i As Integer = 0 To data.Length - 1
            data(i) = i + 1
        Next
        ' シャッフルシャッフルぅ
        Shuffle(data)
        ' 結果の確認
        For Each item As Integer In data
            Console.Write("{0} ", item)
        Next
    End Sub

End Module

簡単ぢゃーん♪

データバインディングのおべんきょ。番外その１。

επιστημη — Sat, 09 May 2009 07:39:00 GMT

.NET言語相互変換計画のつづき。

「データバインディングのおべんきょ。」をパクらせてもらう。
とりこびとｾﾝｾはComboBoxとListをバインドしてみせてくれたわけだが、
僕はDataGridViewとListをバインドしてみる。

毎度のことで新規VBプロジェクト: WindowsApplication1をひとつ起こす。
次に用意するのは WankumaProgrammer.vb。こんなの。

Public Class WankumaProgrammer

Private _name As String = String.Empty
Private _skill As String = String.Empty

    Public Property Name() As String
        Get
            Return _name
        End Get
        Set(ByVal value As String)
            _name = value
        End Set
    End Property

    Public Property Skill() As String
        Get
            Return _skill
        End Get
        Set(ByVal value As String)
            _skill = value
        End Set
    End Property

Public Sub New()
End Sub

    Public Sub New(ByVal name As String, ByVal skill As String)
        Me.Name = name
        Me.Skill = skill
    End Sub

End Class

どってことないね、プロパティ:NameとSkillを持ったものです。
ここで一旦buildしておきます。←ここ重要。

さて、フォームにDataGridViewひとつとButtonをふたつ、
そしてBindingSourceをひとつ貼り付けます。
んでもって BindingSourceのDataSourceプロパティを WankumaProgrammer に設定。

ほんでもって DataGridViewのBindingSourceプロパティをBindingSource1にセットすると

あらフシギ、DataGridViewにWankumaProgrammerのプロパティが現れます。
BindingList(Of WankumaProgrammer) をForm1のフィールド(メンバ変数)に加え、
FormのLoadイベントおよび Button1,Button2のClickイベントをちゃっちゃと書きましょう:

Imports System.ComponentModel

Public Class Form1

Private _wankumaProgrammers As New BindingList(Of WankumaProgrammer)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BindingSource1.DataSource = _wankumaProgrammers
        _wankumaProgrammers.Add(New WankumaProgrammer("ぽぴ王子", "C#"))
        _wankumaProgrammers.Add(New WankumaProgrammer("とりこびと", "VB"))
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show(_wankumaProgrammers.Count.ToString())
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        _wankumaProgrammers.Add(New WankumaProgrammer("επιστημη", "C++"))
    End Sub

End Class

実行。DataGridViewに"ぽぴ王子"と"とりこびと"が現れましたか?
Button2を押すと"επιστημη"が追加されますし、DataGridViewに直接書き加えることもできます。
たまぁにButton1を押してやってくださいな。_wankumaProgrammersに内包された要素の数が確認できます。

勉強会お疲れさんでしたー

επιστημη — Sat, 25 Apr 2009 23:07:00 GMT

いやホント、ほぼ一年ぶりのセッション、楽しかったす。
みんなありがとね。

LTは「TreeViewの全ノードを列挙する」てのを
再帰+yield で実装する五分間コーディング。
ぴったし尺内に納まったんでよしとしましょ。

セッションですが、「C++屋の書くVBを見るがいい!」
とか気炎を吐いておきながら (多分USBﾒﾓﾘの)トラブルで
ソリューションファイルをぶっ壊すてゆーｽｯﾄｺﾄﾞｯｺｲ
やらかしました。

が、シンプルなからくりでかなりおもろい真似が
できるってとこを披露できたのが幸いかな、と。

そゆわけで、十分お見せできなかったコードはコチラ。

※ そうそう、例の本ですけど、紀伊国屋新宿南店に
　投下した分、お陰さまで夕方には完売した模様です。
　お買い上げ誠にありがとうございます。

電卓作成ちう(おまけ)

επιστημη — Sat, 21 Mar 2009 10:56:00 GMT

電卓作成ちうのつづき...

逆ポーランド電卓は実装簡単だけどいかんせん馴染みが薄いので
フツーの数式を解釈して計算する電卓をおまけにこしらえてます。
# ぶっちゃけ尺余り対策ですなｗｗｗ

(1+2)*(3+4) なんてー数式の解釈(構文解析)にはパーサを使うわけですが、
手書きすんのもかったるい。なのでパーサ・ジェネレータを探してました。

Visual Studio 2008 SDK には C#版 yacc/lex である GPPG,GPLEX が同梱
されてんだけども、こいつらマニュアルぺらぺらのロクでもない代物。
ってわけで、オーストラリアクイーンズランド工科大の
オリジナルな GPPG,GPLEX を見つけてきたですよ。

今回はパーサだけでいい(レキサはﾃｹﾄｰ)から GPPG1.3.5 を試運転。

gppg Calc.y > Calc.cs
csc /r:QUT.ShiftReduceParser.dll Calc.cs

# QUT.ShiftReduceParser.dll は gppg.exe と同じﾃﾞｨﾚｸﾄﾘ: binaries にある。
# 上の Calc.y は testfiles にあったもの。
# ちなみに RealCalc.y には些細なバグをふたつ見つけた。
# ↑PLAS-projectに報告済

...おー、動く動く♪
よーしパパ電卓作っちゃうぞー、とか言ってるの。もう見てらんない。

チャーハンじゃないってヴぁ...

電卓作成ちう

επιστημη — Wed, 18 Mar 2009 10:46:00 GMT

電卓できた(うふ♪　のつづき。

4/25東京勉強会ではVB嫌いを公言するｱﾃｸｼεπιστημηが
こともあろうにVBをネタにセッションやります。

お題は電卓。ふつーに電卓こしらえてもつまんないので、
逆ポーランド電卓に挑戦するます。

逆ポーランド電卓に必要不可欠なのがスタックです。
計算中の途中結果が格納されるスタックの内容をリアルタイムに表示し、
計算してんぞしてんぞーって様子をご覧にいれようと企んでいます。

ここでちょいとした問題があります:

● Smart UI（利口なUI）アンチパターン
層状アーキテクチャの対極をなすアンチパターン。ビジネスロジックやデータアクセスのコードが、UIのコードと一緒になってしまっている、いわばスパゲッティな状態。利口なUIと呼ぶのは、ビジネスロジックを含むすべての処理がUIの中で行なわれるから。最もやっつけで手軽なやり方がこれなので、設計を何も考ないとこの状態に陥ってしまう。

アプリケーションは電卓の実体(Model)と見てくれ(View)を分離したいのね。
スタックの実体はその見てくれ──たとえばListBox──の存在を意識せずに動かしたい。
スタックに対して何らかの操作を行うと、ListBoxがスタックの状態に同期して
自動的にその表示を更新したいわけっす。

...いいもん見つけた。
System.Collections.ObjectModel 名前空間にある
Collection(Of T) と KeyedCollection(Of TKey,TValue)。
これ使うと実体と見てくれの同期があっさり実現できるます。

可変長配列とListBoxとの分離/同期の実装例をお披露目できそう♪
Genericsをばっきばきに使いまくったきしょいVBコードをお楽しみに。

＜釣り糸＞
えとさー、VBで"型のエイリアス"ってできます?
Class Hoge
なんとかを String の別名とする魔法の呪文...
End Class
ってやっとけば、Hoge.なんとかが String の別名として使えて、
Dim s As Hoge.なんとか ' Dim s As String と同じ
って書ける、みたいな魔法の呪文を探してます。
＜/釣り糸＞

VB苦戦中(しょにょさん)　→ Visual Basic 男子校

επιστημη — Wed, 25 Feb 2009 15:59:00 GMT

Interfaceの実装なんだけども。

Public Interface 受け
WriteOnly Property なにか() As Object
End Interface

Public Interface 攻め
    ReadOnly Property なにか() As Object
End Interface

があったとき、この両方を実装するクラスで
Property なにか() As Object Implements ここになんてかけばいいの???

しばし悩んでおりました。

Public Class 両刀
    Implements 受け, 攻め
   Public Property なにか() As Object Implements 攻め.なにか, 受け.なにか
        Get
            Console.WriteLine("やらないか？")
            Return Nothing
        End Get
        Set(ByVal value As Object)
            Console.WriteLine("アッーーー！")
        End Set
    End Property
End Class

?error BC30154: Class '両刀' は、インターフェイス '受け' に対して 'WriteOnly Property なにか() As Object' を実装しなければなりません。プロパティの実装には、一致する 'ReadOnly' または 'WriteOnly' 指定子が必要です。
?error BC30154: Class '両刀' は、インターフェイス '攻め' に対して 'ReadOnly Property なにか() As Object' を実装しなければなりません。プロパティの実装には、一致する 'ReadOnly' または 'WriteOnly' 指定子が必要です。
?error BC30401: 'なにか' で 'なにか' を実装できません。インターフェイス '攻め' に、対応する property がありません。
?error BC30401: 'なにか' で 'なにか' を実装できません。インターフェイス '受け' に、対応する property がありません。

んーむ... いろいろいぢくりまわして...
どうやら ReadOnly と WriteOnly のふたつのなにか() を書けばいいらしい。

Public Interface 受け
    WriteOnly Property なにか() As Object
End Interface

Public Interface 攻め
ReadOnly Property なにか() As Object
End Interface

Public Class 両刀
    Implements 受け, 攻め
    Public ReadOnly Property なにか() As Object Implements 攻め.なにか
        Get
            Console.WriteLine("やらないか？")
            Return Nothing
        End Get
   End Property
    Public WriteOnly Property なにか() As Object Implements 受け.なにか
        Set(ByVal value As Object)
            Console.WriteLine("アッーーー！")
        End Set
    End Property
End Class

Module Program
    Sub Main()
        Dim あたし As 受け = New 両刀()
        Dim あなた As 攻め = New 両刀()
        あたし.なにか = あなた.なにか
    End Sub
End Module

※ サンプルコードのわかりやすさには定評あります♪

[追記]?プロパティ?なにか() が重複するとのご指摘を受けました。
ここに訂正してお詫び申し上げます。

Namespace BL

    Public Interface 受け
        WriteOnly Property なにか() As Object
    End Interface

    Public Interface 攻め
        ReadOnly Property なにか() As Object
    End Interface

    Public Interface リバも可
        Inherits 受け, 攻め
    End Interface

    Public Class 鬼畜
        Implements リバも可
        Public ReadOnly Property 凸() As Object Implements 攻め.なにか
            Get
                Console.WriteLine("やらないか？")
                Return Nothing
            End Get
        End Property
        Public WriteOnly Property 凹() As Object Implements 受け.なにか
            Set(ByVal value As Object)
                Console.WriteLine("アッーーー！")
            End Set
        End Property
    End Class
End Namespace

Module 放課後の教室
    Sub Main()
        Dim 僕 As BL.受け = New BL.鬼畜()
        Dim 君 As BL.攻め = New BL.鬼畜()
        僕.なにか = 君.なにか
    End Sub
End Module

VB苦戦中(しょにょに)

επιστημη — Tue, 24 Feb 2009 15:24:00 GMT

VBに挑んで印象的だったのがinterfaceの実装。

Public Interface ほげらぶる
Sub ほげ()
End Interface

Public Class マグさん
Implements ほげらぶる
Public Sub ほげじゃないメソッド() Implements ほげらぶる.ほげ
System.Console.WriteLine("仕事終わらないんですか？先に寝ますよ。")
End Sub
End Class

それってどぉよ!? が正直な感想。
メソッド名がどうであれ、Implements ほげらぶる.ほげ付ければ
そいつが interface を実装しちゃう。

ま、たしかに、実装サイドでのメソッド名がなんであろうが
interfaceサイドにしてみりゃほげ() れさえすればいいもんね。

一方、↓こんなことできないのね。

----- C# -----
public interface ほげらぶる {
void ほげ();
}

// ほげらぶるではないが、シグニチャの一致するメソッドを持つ
public class マグさん {
public void ほげ() {
System.Console.WriteLine("仕事終わらないんですか？先に寝ますよ。");
}
}

// なんと! こんだけでほげらぶる interface　を実装するマグさんに!!
public class ほげマグさん : マグさん, ほげらぶる {
}

class Program {

public static void Main() {
ほげらぶる hoge = new ほげマグさん();
hoge.ほげ();
}

}

VBだと

Public Class ほげマグさん
Inherits マグさん
Implements ほげらぶる
' 基底クラスに横流ししてあげんとな。
private Sub ほげ代理() Implements ほげらぶる.ほげ
MyBase.ほげ()
End Sub
End Class

VB苦戦中

επιστημη — Tue, 24 Feb 2009 11:08:00 GMT

他ならぬ娘の頼みで慣れぬVBをいぢくりまわしておりまする。

Sub Main()
    Dim x As Integer ' 関数スコープ内の変数 x
    If うにゃうにゃ Then
      Dim x As Integer ' If内で使い捨ての x
      ....
    End If
End Sub

→ error BC30616: 変数 'x' は、それを囲むブロック内の変数を非表示にします。

...ぐはぁ。 If ブロックはスコープを作ってはくれないのか。
使い捨て変数にいちいち別名与えにゃならんのｽｶ?

そのくせ
    For I As Integer = 0 To 10 ' ループ変数 I
    Next
    For I As Integer = 0 To 10 ' 再利用
    Next
これは許すのか。

このテのC++/C#とのﾋﾞﾐｮｰな差異にはなかなか慣れません orz
1対1に対応してるやつはどってことないんですけどね。

[追記]　スコープできてました。僕の勇み足です。
「スコープ内では外の名前とカブっちゃだめ」てことなのね。
C++では許すもんだから...

MVCなにするものぞ

επιστημη — Fri, 20 Feb 2009 16:06:00 GMT

出来心で"ふざけた実装"を楽しんでいます。

今やってんのはね、Form.ListBoxのItemsプロパティはそのまんま
List<object> として使えるやないですか。それを悪用して:

// Listに対するメソッド呼び出しをまるっと横流しする
Public Class ListProxy(Of T, Collection As {IList, ICollection, IEnumerable})
Implements IList(Of T), ICollection(Of T), IEnumerable(Of T)
.... ないしょー♪
End Class

なんちゅーのをこしらえ、フォームにListBoxをひとつ貼って:

Public Class Form1

// 横流しList(Of Integer)
Private list As New ListProxy(Of Integer, ListBox.ObjectCollection)()

    // Load時にListBox1を横流し先に設定しておけば...
    Private Sub Form1_Load(ByVal s As Object, ByVal e As EventArgs) Handles MyBase.Load
        list.Attach(ListBox1.Items)
    End Sub

    // ListBoxをList(Of Integer)代わりに使えちゃう♪
    Private Sub なんかする()
        list.Add(123)
        list.Add(456)
        Dim sum As Integer = 0
        For Each item As Integer In list
            sum = sum + item
        Next
        list.Add(sum)
    End Sub

End Class

なんてなー。よいこのみんなはまねしちゃだめだよー
# 同じ手法で横流しStack/Queue/Disctionary も作れっぞﾌﾋﾋ

VB