すいません、VB4しかやってないんです、VBAはやったけど(ぼそ) チラシの裏だって立派な書き込み空間なんだからねっ!資源の有効活用なんだからねっ!とか偉そうに言ってるけど、実は色々と書き残したいだけ

だからなに? どうしろと? くるみサイズの脳みそしかないあやしいジャンガリアンベムスターがさすらう贖罪蹂躙(ゴシックペナルティ)

ホーム 連絡をする 同期する ( RSS 2.0 ) Login
投稿数  632  : 記事  35  : コメント  2121  : トラックバック  143

ニュース


片桐 継 は
こんなやつ

かたぎり つぐ ってよむの

大阪生まれ河内育ちなんだけど
関東に住みついちゃったの
和装着付師だったりするの
エセモノカキやってたりするの
VBが得意だったりするの
SQL文が大好きだったりするの
囲碁修行中だったりするの
ボトゲ好きだったりするの
F#かわいいよF#

正体は会った人だけ知ってるの

空気読まなくてごめんなさいなの


わんくまリンク

C#, VB.NET 掲示板
C# VB.NET掲示板

わんくま同盟
わんくま同盟Blog


WindowsでGo言語
WindowsでGo言語


ネット活動


SNSは疲れました

記事カテゴリ

書庫

日記カテゴリ

ギャラリ

イベント活動

プログラムの活動

セミコロンとったらVB.NETとかとかとか、世迷言だよ、ぐるるる。

とあるクラス、リストしてから、重複除いた要素でごにょりたい、で作ったのでメモ。

 

Module Module2
 
    Sub Main()
 
        Dim samples As New List(Of KeyData)
        Dim rnd As New Random
 
        Dim KeysCount = rnd.Next(1, 120)
 
        Console.WriteLine("{0} 件キー", KeysCount)
 
        For x As Integer = 1 To KeysCount
            samples.Add(New KeyData With {
                                .Key1 = rnd.Next(1, 3).ToString("KeyA-000"),
                                .Key2 = rnd.Next(1, 3).ToString("KeyB-000"),
                                .Key3 = rnd.Next(1, 3).ToString("KeyC-000")
                                })
        Next
 
        Console.WriteLine("件数 : {0}", samples.Count)
        Console.WriteLine("重複なし件数 : {0}", samples.Distinct.Count)
 
        Console.ReadKey()
    End Sub
 
End Module
 
Public Class KeyData
    Implements IEquatable(Of KeyData)
 
    Property Key1 As String
    Property Key2 As String
    Property Key3 As String
 
    Public Function Equals1(other As KeyDataAs Boolean Implements IEquatable(Of KeyData).Equals
        Return Key1 = other.Key1 _
            AndAlso Key2 = other.Key2 _
            AndAlso Key3 = other.Key3
    End Function
 
    Public Overrides Function GetHashCode() As Integer
        Return Key1.GetHashCode Xor Key2.GetHashCode Xor Key3.GetHashCode
    End Function
End Class

 

image

結果、こうなったんで、OK。

投稿日時 : 2016年6月22日 20:17

コメント

# re: [Windows Mobile]USBキーボードを動かす程度の能力 2017/07/22 19:01 meadc
http://www.ray-ban-sunglasses.us ray-ban sunglasses
http://www.coach-factory-outlet.net coach outlet
http://www.puresoie.fr/ Nike Air Max 90
http://www.katespade.org.au Kate Spade - Online Sale
http://www.coachcarter.com.au coach carter
http://www.mizunoshoes.us Wave Prophecy 2 Shoes
http://www.pandora-rings.co.uk pandora uk
http://www.top-sunglasses.org top sunglasses
http://www.pumashoes.us/ puma shoes
http://www.salomon-shoes.com salomon sneakers
http://www.grandregency.fr/ Air Max Enfants
http://www.swatchwatch.us/ swatch watch
http://www.premierjewelry.us Premier Jewelry - Official
http://www.rayban-outlet.co/ ray ban outlet
http://www.pandoracharms.cc/ pandora charms
http://www.meteo-curtafond.fr/ Nike Air Jordan Enfants
http://www.prada-sunglasses.us Prada Sunglasses - Official
http://www.michael-kors.uk michael kors watches
http://www.artsensuel.fr Nike Air Jordan
me adc7.22WERF

Post Feedback

タイトル
名前
Url:
コメント