VB.NETプログラミング

片桐さんがＵＷＰアプリを作ろうとしています。その肆

片桐　継（Tugu Katagiri） — Sat, 09 Jul 2016 19:47:00 GMT

ここまで頑張った。でも、XAMLはやっぱり後にする。＜を

データを保持したいので、最初はテキストベースでいいかな。とか思ったけれど、どうせなら知らないことやってみようかな、とか考えた。

なので、SQLiteってのをやってみよう。＜まじめに触るのは初めてｗ　ハックはなんどかやったが＜を

https://blogs.windows.com/buildingapps/2016/05/03/data-access-in-universal-windows-platform-uwp-apps/

ここを参考に、環境を構築。

キモは、さっきの記事の中にもあったけど、ここ。

EntityFramework Core によるORM形式ってとこ。

ORMはとても便利な機能ではあるけれど、データベーステーブルのレイアウトが「確定」できてることが意外と大事だったりする。このあたり、微妙なバランスで、頻繁にテーブル列や型や主キーが変わる状態で開発するときに、なまじORM頼みしてると血の涙になることもあったりなんかしちゃったりしてね。まぁここは経験則なんだけれども。

それが嫌で、今の現場では「スペシャル？」なORMもどきライブラリ＆クラス生成ツール作って提供していたりラジバンダリ。

とかいってるうちにインスト終わったんで、テーブル設計するかー。

List(of Class)でGroupingしてから、その中の結果でさらに検索したい

片桐　継（Tugu Katagiri） — Fri, 08 Jul 2016 21:51:00 GMT

いっつも忘れるので、めも。

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"),
                                .Data1 = rnd.Next(100, 500),
                                .Data2 = Now.AddDays(rnd.Next(-100, 100))
                                })
        Next
 
        Console.WriteLine("件数 : {0}", samples.Count)
        Dim wlist = (From x In samples
                     Group By x.Key1, x.Key2, x.Key3
                     Into Group
                     Select Group).Select(Function(f) f.OrderBy(Function(r) r.Data2).FirstOrDefault).ToList
 
        Console.WriteLine("グルーピング件数 : {0}", wlist.Count)
        wlist.ForEach(Sub(x)
                          Console.WriteLine("キーごとで最も過去日付のレコード : {0}", x.ToString)
                      End Sub)
 
        Console.ReadKey()
    End Sub
 
End Module
 
Public Class KeyData
 
    Property Key1 As String
    Property Key2 As String
    Property Key3 As String
 
    Property Data1 As Integer
    Property Data2 As Date
 
    Public Overrides Function ToString() As String
        Return String.Format("{0}.{1}.{2}({3}:{4})", Key1, Key2, Key3, Data1, Data2.ToString)
    End Function
 
End Class

その結果

List(of Class)でDistinctしたい。

片桐　継（Tugu Katagiri） — Wed, 22 Jun 2016 20:17:00 GMT

セミコロンとったら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 KeyData) As 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

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

片桐さんがＵＷＰアプリを作ろうとしています。その燦

片桐　継（Tugu Katagiri） — Sun, 19 Jun 2016 13:29:00 GMT

ＵＩ、燦々とぉ～♪

やりたいこと、は明白なんだけれど、それをUWPアプリに落とし込むとき、どういうＵＩにすればよいんだろう。

XAMLに手を付けていて、なにかが違うような気がしてきたので、再勉強。

ちょっとこのページを読んでみた。

設計および UI

https://developer.microsoft.com/ja-jp/windows/design

なんか、WindowsFormのようでいて、そうでもない。

ページの移り方、操作の仕方、部品の配置、ってのはこうなんだよ、こう考えるんだよ、が書いてあった。

で、これと照らし合わせてみて、自分の中で、こういう風に遷移して、こういう操作ができればいい、が整理できてくれば後は大丈夫、だと思う、思いたい、思うことにする。

つまりは、だ、

脳内を形に現すってのは、簡単じゃないってこと。

片桐さんがUWPアプリを作ろうとしています。その煮。

片桐　継（Tugu Katagiri） — Mon, 13 Jun 2016 20:54:00 GMT

筑前煮と鯖味噌煮が得意だし、好き（謎）

どうも、XAMLのめんどくささが耐えられない。

ListView作りたいな→ListView.ItemTemplate作ってね→DataTemplate作ってね→中の部品を定義してね→ListView.ItemContainerStyleも作ってね→中の定義も書いてね

これのXML形式の入れ子の繰り返し。

ここまで理解。

<Page
     x:Class="PlayAndEditForMP3.MainPage"
     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
     xmlns:local="using:PlayAndEditForMP3"
     xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
     xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
     mc:Ignorable="d">
     <Grid Background="{ThemeResource ApplicationPageBackgroundThemeBrush}"
           RenderTransformOrigin="0.498,0.111" Margin="0,5,0,0">
         <Grid.RowDefinitions>
             <RowDefinition Height="60"/>
             <RowDefinition Height="*"/>
         </Grid.RowDefinitions>

 
         <Button x:Name="button" Content="Button" Grid.Row="0"
             HorizontalAlignment="Left" Height="38"
             VerticalAlignment="Top" Width="140"
             RenderTransformOrigin="1.538,1.397" Margin="20,12,0,0"/>
         <ListView x:Name="ItemsView"  Grid.Row="1" 
                   Background="{StaticResource ApplicationPageBackgroundThemeBrush}">
             <ListView.ItemTemplate>
                 <DataTemplate>
                     <Border Background="{ThemeResource AppBarBackgroundThemeBrush}">
                         <Grid HorizontalAlignment="Stretch" Margin="0">
                             <TextBlock Text="{Binding}" Name="Title" />
                             <TextBlock Text="{Binding}" Name="Artist" />
                         </Grid>
                     </Border>
                 </DataTemplate>
             </ListView.ItemTemplate>
             <ListView.ItemContainerStyle>
                 <Style TargetType="ListViewItem">
                     <Setter Property="HorizontalContentAlignment" Value="Stretch" />
                 </Style>
             </ListView.ItemContainerStyle>
         </ListView>

 
     </Grid>

 

</Page>

むぅ、メンドクサイ（大事なことらしい）

細かいデザインまで美しく配置でき、かつ、好きにできる、それは素敵、でも、メンドクサイ（大事なこ（ｒｙ））

まだ、XAMLコーディングだけで相当かかりそうな気配orz

Productivity Power Tools 2015 をいれてみた

片桐　継（Tugu Katagiri） — Sun, 12 Jun 2016 09:34:00 GMT

どうも、ソースのコピペ量が増えると色々と面倒で、綺麗なHTMLにしたいし、いれてみた。

Productivity Power Tools 2015
https://visualstudiogallery.msdn.microsoft.com/34ebc6a2-2777-421d-8914-e29c1dfa7f5d

Visual Studio 2015 で使えまする。

これで、

こういうメニューがでてくるので、あとは、説明なくても大丈夫だよねｗ

サンプルソースは一つ前の記事の、完全動作コード。

Module Module1

 
     Sub Main()

 
         Dim samples As New List(Of SampleRecord)
         Dim rnd As New Random

 
         Dim KeysCount = rnd.Next(1, 23)

 
         Console.WriteLine("{0} 件キー", KeysCount)

 
         For x As Integer = 1 To KeysCount
             For f As Integer = 1 To rnd.Next(1, 55)
                 samples.Add(New SampleRecord With {
                                     .Key1 = x.ToString("KeyA-000"),
                                     .Key2 = x.ToString("KeyB-000"),
                                     .Key3 = x.ToString("KeyC-000"),
                                     .Data1 = f.ToString("DataA-00"),
                                     .Data2 = f.ToString("DataB-00"),
                                     .Data3 = f.ToString("DataC-00")
                                     })
             Next
         Next

 
         Dim c = From x As SampleRecord In samples
                 Group x By x.Key1, x.Key2, x.Key3
                 Into Datas = Group
                 Select New Hoge With {
                     .Key1 = Key1,
                     .Key2 = Key2,
                     .Key3 = Key3,
                     .Datas = Datas.Select(Function(f)
                                               Return New DetailData With {
                                                                 .Data1 = f.Data1,
                                                                 .Data2 = f.Data2,
                                                                 .Data3 = f.Data3
                                                                }
                                           End Function).ToList
                     }

 
         c.ToList.ForEach(Function(x)
                              Console.WriteLine("{0}-{1}-{2}-{3}", x.Key1, x.Key2, x.Key3, x.Datas.Count)
                          End Function)

 
         Console.ReadKey()
     End Sub

 

End Module

 

Public Class SampleRecord
     Property Key1 As String
     Property Key2 As String
     Property Key3 As String
     Property Data1 As String
     Property Data2 As String
     Property Data3 As String

End Class

 

Public Class DetailData
     Property Data1 As String
     Property Data2 As String
     Property Data3 As String

End Class

 

Public Class Hoge
     Property Key1 As String
     Property Key2 As String
     Property Key3 As String

 
     Property Datas As List(Of DetailData)

End Class

ふむ、やれそうだ（謎）

VB.NETのLINQでGROUP BY を頑張ってみた

片桐　継（Tugu Katagiri） — Sat, 11 Jun 2016 22:05:00 GMT

意外とはまったのでメモ。

やりたいこと。

とあるクラスのリスト、クラスには集約キーのプロパティが複数あって、データ部のレコードが存在してる。

これをキーでまとめて、データ部をリスト化したクラスのリストにまとめたい。

で、書いてみたサンプルがこれ。

Dim c = From x As SampleRecord In samples
                Group x By x.Key1, x.Key2, x.Key3
                Into Datas = Group
                Select New Hoge With {
                    .Key1 = Key1,
                    .Key2 = Key2,
                    .Key3 = Key3,
                    .Datas = Datas.Select(Function(f)
                                              Return New DetailData With {
                                                                .Data1 = f.Data1,
                                                                .Data2 = f.Data2,
                                                                .Data3 = f.Data3
                                                               }
                                          End Function).ToList
                    }

hogeクラスにはキーで集約されて、データ部にリスト化されたDetail情報が集まる

片桐さんがUWPアプリを作ろうとしています。序

片桐　継（Tugu Katagiri） — Mon, 06 Jun 2016 20:29:00 GMT

とりあえず、VisualStudio 2015 Update2 入れました。

VB.NETで「ユニバーサルアプリケーション」を新規作成して、出来立てほやほやプロジェクトをビルド。

そのまま素でエミュレートデバッグ実行してみた。

ぼーっと待つことしばらく（数分）、OSが上がってきて

もうちょっと待ってたら

真っ白画面キター！！

エミューレータデバッグ終わったら

こんな感じ。ふむ。うちのPCだとデバッグだけで使用メモリ1.2G増しってとこなのね。

スペックそんなに高くないからなぁ。

メモリが多いに越したことはないっぽい感じ。

片桐さんがUWPアプリを作ろうとしています。／Zero

片桐　継（Tugu Katagiri） — Sun, 29 May 2016 10:14:00 GMT

とりあえず、ここを読む

Windows 10 アプリに関するハウツーガイド：
https://msdn.microsoft.com/ja-jp/library/windows/apps/mt244352.aspx

とにかく、色々が変わりすぎ。ここまでクラス化、ライブラリ化が進んでるのかと。

ゆとりっていいなぁ＜何

予告：片桐さんがUWPアプリを作ろうとしています

片桐　継（Tugu Katagiri） — Sat, 28 May 2016 12:36:00 GMT

今、修羅場です。

現在、このハムスターは某業界でお仕事していますが、大人の事情で大変なことになっています。

やることやらお仕事やら納期やらがたくさんです。休日は休養です。

なので、一段落しないと、DECODEのおさらいもできません。

作りたいUWPアプリあるのにorz

ということで、６月あたりには、タイトルっぽいことをはじめてみようと思います。

決意表明、それだけですｗ