C# と VB.NET の質問掲示板

■No86333 (mako さん) に返信

サンプルです。

        _tbl = New DataTable()
        With _tbl.Columns
            .Add("t", GetType(DateTime))
            .Add("y", GetType(Integer))
        End With

        With _tbl.Rows
            .Add(Date.Today.AddHours(10).AddMinutes(15), 1)
            .Add(Date.Today.AddHours(10).AddMinutes(20), 2)
            .Add(Date.Today.AddHours(11).AddMinutes(15), 3)
            .Add(Date.Today.AddHours(13).AddMinutes(15), 4)
            .Add(Date.Today.AddHours(13).AddMinutes(20), 5)
        End With

        Chart1.DataSource = _tbl
        With Chart1.ChartAreas(0)
            With .AxisX
                .Minimum = Date.Today.ToOADate
                .Maximum = Date.Today.AddDays(1).ToOADate
                .IntervalType = DataVisualization.Charting.DateTimeIntervalType.Minutes
                .Interval = 30
                With .LabelStyle
                    .IntervalType = DataVisualization.Charting.DateTimeIntervalType.Minutes
                    .Interval = 30
                    .Format = "HH:mm"
                End With
            End With
        End With
        With Chart1.Series(0)
            .XValueMember = "t"
            .YValueMembers = "y"
        End With

■No86357 (shu さん) に返信

X軸の時刻を分かり易く表示したいのです。
開始時刻からの起算ではなく、あくまでも時計としての。
ただし如何に時計としてであってもデータすらも無い時刻は非表示。

例えば下記のような15分おきのデータがあったとします。
      時刻　個数
 0    8:45    30
 1　  9:00　　20
 2    9:15    20
 3    9:30     5
 4    9:45    10
 5   10:00    15
（この間は時刻を含むデータすらも無し）
 6   11:15     5
 7   11:30    20
 8   11:45     5
 9   12:00    10
11   12:15    20

このような場合での30分おきですとX軸の時刻表示は、
開始の8:45 は 30分おきとは関係なく表示。
あと　9:00 9:30 10:00 11:30 12:00　も表示。
ただし10:30 11:00 は 時刻を含むデータすらも無いのですから非表示。

これと同じことは暦でも言えます。
例えば1月ですと31日までありますが2月は28日です。
当然2月は29〜31日は無い訳ですから非表示となります。
実際はそれプラス土日や祝祭日も非表示となります。

ちなみに普通に使われてるグラフもそのような表示となっています。

■No86376 (mako さん) に返信

                Dim isFirst = True
                For Each row In _tbl.Select("", "t")
                    Dim dt = row.Field(Of Date)("t")
                    If isFirst OrElse dt.Minute = 0 OrElse dt.Minute = 30 Then
                        With .CustomLabels.Add(dt.AddMinutes(-3).ToOADate, dt.AddMinutes(3).ToOADate, dt.ToString("HH:mm"))
                            .RowIndex = 0
                        End With
                    End If
                    isFirst = False
                Next

■No86377 (shu さん) に返信

すみません。
以前教えていただいた No86344 のどの部分の差し替えですか？ 

> ■No86376 (mako さん) に返信
> 
>                 Dim isFirst = True
>                 For Each row In _tbl.Select("", "t")
>                     Dim dt = row.Field(Of Date)("t")
>                     If isFirst OrElse dt.Minute = 0 OrElse dt.Minute = 30 Then
>                         With .CustomLabels.Add(dt.AddMinutes(-3).ToOADate, dt.AddMinutes(3).ToOADate, dt.ToString("HH:mm"))
>                             .RowIndex = 0
>                         End With
>                     End If
>                     isFirst = False
>                 Next
> 

■No86402 (魔界の仮面弁士 さん) に返信

ありがとうございます。

実は後になってしまったのすが、こちらのプログラムが↓のサンプルのようになってるんです。
これを何とか基本に使いたのですが難しいでしょうか？


        '　== Chart1の表示 ==
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim tRaw As DataRow
        '列の作成
        dt.Columns.Add("時刻", GetType(String))　　'文字列
        dt.Columns.Add("数量1", GetType(Integer))
        dt.Columns.Add("数量2", GetType(Integer))
        ds.Tables.Add(dt)
        'データのセット
        tRaw = ds.Tables(0).NewRow
        tRaw(0) = "8:45"      '時刻
        tRaw(1) = 30          '数量1
        tRaw(2) = 2           '数量2
        ds.Tables(0).Rows.Add(tRaw)

        tRaw = ds.Tables(0).NewRow
        tRaw(0) = "9:00"      '時刻
        tRaw(1) = 20          '数量1
        tRaw(2) = 3           '数量2
        ds.Tables(0).Rows.Add(tRaw)

        tRaw = ds.Tables(0).NewRow
        tRaw(0) = "9:15"      '時刻
        tRaw(1) = 20          '数量1
        tRaw(2) = 3           '数量2
        ds.Tables(0).Rows.Add(tRaw)

        tRaw = ds.Tables(0).NewRow
        tRaw(0) = "9:30"      '時刻
        tRaw(1) = 5           '数量1
        tRaw(2) = 4           '数量2
        ds.Tables(0).Rows.Add(tRaw)

        tRaw = ds.Tables(0).NewRow
        tRaw(0) = "9:45"      '時刻
        tRaw(1) = 10          '数量1
        tRaw(2) = 8           '数量2
        ds.Tables(0).Rows.Add(tRaw)

        tRaw = ds.Tables(0).NewRow
        tRaw(0) = "10:00"     '時刻
        tRaw(1) = 15          '数量1
        tRaw(2) = 10          '数量2
        ds.Tables(0).Rows.Add(tRaw)

        tRaw = ds.Tables(0).NewRow
        tRaw(0) = "11:15"     '時刻
        tRaw(1) = 5           '数量1
        tRaw(2) = 3           '数量2
        ds.Tables(0).Rows.Add(tRaw)

        tRaw = ds.Tables(0).NewRow
        tRaw(0) = "11:30"     '時刻
        tRaw(1) = 20          '数量1
        tRaw(2) = 15          '数量2
        ds.Tables(0).Rows.Add(tRaw)

        tRaw = ds.Tables(0).NewRow
        tRaw(0) = "11:45"     '時刻
        tRaw(1) = 5           '数量1
        tRaw(2) = 3           '数量2
        ds.Tables(0).Rows.Add(tRaw)

        tRaw = ds.Tables(0).NewRow
        tRaw(0) = "12:00"     '時刻
        tRaw(1) = 10          '数量1
        tRaw(2) = 8           '数量2
        ds.Tables(0).Rows.Add(tRaw)

        tRaw = ds.Tables(0).NewRow
        tRaw(0) = "12:15"     '時刻
        tRaw(1) = 20          '数量1
        tRaw(2) = 10          '数量2
        ds.Tables(0).Rows.Add(tRaw)

        'Chart に表示するデータソースを設定
        Chart1.DataSource = ds
        Chart1.Series.Clear()
        '
        Dim ore = Chart1.Series.Add("折れ線")
        With ore
            .ChartType = DataVisualization.Charting.SeriesChartType.Line
            .XValueMember = "時刻"
            .YValueMembers = "数量1"
        End With

        Dim bou = Chart1.Series.Add("棒グラフ")
        With bou
            .ChartType = DataVisualization.Charting.SeriesChartType.Column
            '.XValueMember = "時刻"
            .YValueMembers = "数量2"
        End With
    End Sub

    '15分・30分・60分に選択切り替え
    Private Sub RadioButtons_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged
        If RadioButton1.Checked = True Then
            '上段のChart1の表示を15分にて表示再表示
        End If
        If RadioButton2.Checked = True Then
            '上段のChart1の表示を30分にて表示再表示
        End If
        If RadioButton3.Checked = True Then
            '上段のChart1の表示を60分にて表示再表示
        End If
    End Sub

■No86436 (mako さん) に返信


若干違うかもしれませんが
以下のようにNullの要素を追加するとそこだけデータがプロットされません。
時間の項目に文字列を使うのはグラフ上扱いにくいのでグラフ用のDataTableを
用意されて時間項目はDateTime型にされた方がよいです。
DataTable１つの場合はDataSetを使う必要はなくDataTable直接でよいです。

        _tbl = New DataTable()
        With _tbl.Columns
            .Add("t", GetType(DateTime))
            .Add("y1", GetType(Integer))
            .Add("y2", GetType(Integer))
        End With

        With _tbl.Rows
            .Add(Date.Today.AddHours(8).AddMinutes(45), 30, 2)
            .Add(Date.Today.AddHours(9).AddMinutes(0), 20, 3)
            .Add(Date.Today.AddHours(9).AddMinutes(15), 20, 3)
            .Add(Date.Today.AddHours(9).AddMinutes(30), 5, 4)
            .Add(Date.Today.AddHours(9).AddMinutes(45), 10, 8)
            .Add(Date.Today.AddHours(10).AddMinutes(0), 15, 10)
            .Add(Date.Today.AddHours(10).AddMinutes(15), DBNull.Value, DBNull.Value)
            .Add(Date.Today.AddHours(10).AddMinutes(30), DBNull.Value, DBNull.Value)
            .Add(Date.Today.AddHours(11).AddMinutes(15), 5, 3)
            .Add(Date.Today.AddHours(11).AddMinutes(30), 20, 15)
            .Add(Date.Today.AddHours(11).AddMinutes(45), 5, 3)
            .Add(Date.Today.AddHours(12).AddMinutes(0), 10, 8)
            .Add(Date.Today.AddHours(12).AddMinutes(15), 20, 10)
        End With

        Chart1.DataSource = _tbl
        With Chart1.ChartAreas(0)
            With .AxisX
                .Minimum = Date.Today.AddHours(8).AddMinutes(45).ToOADate
                .Maximum = Date.Today.AddHours(12).AddMinutes(15).ToOADate
                .IntervalType = DataVisualization.Charting.DateTimeIntervalType.Minutes
                .Interval = 30


                Dim isFirst = True
                For Each row In _tbl.Select("", "t")
                    Dim dt = row.Field(Of Date)("t")
                    If isFirst OrElse dt.Minute = 0 OrElse dt.Minute = 30 Then
                        With .CustomLabels.Add(dt.AddMinutes(-3).ToOADate, dt.AddMinutes(3).ToOADate, dt.ToString("HH:mm"))
                            .RowIndex = 0
                        End With
                    End If
                    isFirst = False
                Next


            End With
        End With
        With Chart1.Series(0)
            .XValueMember = "t"
            .YValueMembers = "y1"
        End With
        With Chart1.Series.Add("")
            .ChartType = SeriesChartType.Line
            .EmptyPointStyle.Color = Color.Transparent
            .XValueMember = "t"
            .YValueMembers = "y2"
        End With

お世話になっています。

今、使ってるプログラムは下記のようなものですが実際のはもっと複雑ですので、あまり大きく変えたくないとこもあります。
それプラス、我流ですが1分間隔のサンプルデータも作ってみました。
よろしくお願いします。


表示時刻の切り替えは、 RadioButton等 でしチャートを再表示しています。
チャートによっては9:00・11:00と言った時間単位もありますし、別のデータにはなりますが日にちの場合もあります。

サンプルデータでの時刻表示は、
　15分間隔場合は　　8:15・8:30・8:45・10：30・10:45　と　起点の8:10と10:20
　30分間隔場合は　　8：30　10：30　と　起点の8:10と10:20　
　60分間隔場合は　　起点の8:10と10:20のみ
　9:00・11:0などと言った時間単位の場合は、起点の8:10と10:20のみ
となります。

もし可能でしたら見易くするために、起点の8:10と10:20の左側に棒グラフ2〜3本くらいの空白も。


    Private Structure datF
        Dim Jikoku As String      '時刻 （実際は "2018/01/30 16:30:00" などの日付も入った文字列）
        Dim Suu1 As Integer       '数量1
        Dim Suu2 As Integer       '数量2
    End Structure
    Dim Uridat(500) As datF
    Dim datS As Integer            'データ数

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' 1分間隔のサンプルデータをを成
        datS = -1
        For i = 10 To 45　　　　' 8:10〜8:45
            datS = datS + 1
            Uridat(datS).Jikoku = "8:" & Str(i)  '時刻
            Uridat(datS).Suu1 = i * 10           '数量1
            Uridat(datS).Suu2 = i * 5            '数量2
        Next
        For i = 20 To 55        ' 10:20〜10:55
            datS = datS + 1
            Uridat(datS).Jikoku = "10:" & Str(i)   '時刻
            Uridat(datS).Suu1 = i + 100            '数量1
            Uridat(datS).Suu2 = i + 20             '数量2
        Next

        '====   Chart1   ====
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim dtRow As DataRow

        '列の作成
        With dt.Columns
            .Add("時刻", GetType(String))
            .Add("数量1", GetType(Integer))
            .Add("数量2", GetType(Integer))
        End With
        ds.Tables.Add(dt)

        'データのセット
        For i = 0 To datS
            dtRow = ds.Tables(0).NewRow
            dtRow(0) = Uridat(i).Jikoku    '時刻
            dtRow(1) = Uridat(i).Suu1      '数量1
            dtRow(2) = Uridat(i).Suu2      '数量2
            ds.Tables(0).Rows.Add(dtRow)
        Next

        'Chart に表示するデータソースを設定
        Chart1.DataSource = ds
        Chart1.Series.Clear()
        '
        Dim ore = Chart1.Series.Add("折れ線")
        With ore
            .ChartType = DataVisualization.Charting.SeriesChartType.Line
            .XValueMember = "時刻"
            .YValueMembers = "数量1"
        End With

        Dim bou = Chart1.Series.Add("棒グラフ")
        With bou
            .ChartType = DataVisualization.Charting.SeriesChartType.Column
            '.XValueMember = "時刻"
            .YValueMembers = "数量2"
        End With
    End Sub

■No86469 (mako さん) に返信


提示されたコードに手を加えたものです。サンプルデータ作成時のStr関数によるものはスペースがふくまれてしまうので
記述を変更させていただきました。

時間毎にグループ化し最初のデータはかならず出力しそれ以外はインターバルに合った時間のもののみ対象とするようにしてあります。


Public Class Form1
    Private Structure datF
        Dim Jikoku As String      '時刻 （実際は "2018/01/30 16:30:00" などの日付も入った文字列）
        Dim Suu1 As Integer       '数量1
        Dim Suu2 As Integer       '数量2
    End Structure
    Dim Uridat(500) As datF
    Dim datS As Integer            '

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 1分間隔のサンプルデータをを成
        datS = -1
        For i = 10 To 45　　　　' 8:10〜8:45
            datS = datS + 1
            'Uridat(datS).Jikoku = "8:" & Str(i)  '時刻
            Uridat(datS).Jikoku = $"8:{i:00}"  '時刻
            Uridat(datS).Suu1 = i * 10           '数量1
            Uridat(datS).Suu2 = i * 5            '数量2
        Next
        For i = 20 To 55        ' 10:20〜10:55
            datS = datS + 1
            'Uridat(datS).Jikoku = "10:" & Str(i)   '時刻
            Uridat(datS).Jikoku = $"10:{i:00}"   '時刻
            Uridat(datS).Suu1 = i + 100            '数量1
            Uridat(datS).Suu2 = i + 20             '数量2
        Next

        '====   Chart1   ====
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim dtRow As DataRow

        '列の作成
        With dt.Columns
            .Add("時刻", GetType(String))
            .Add("数量1", GetType(Integer))
            .Add("数量2", GetType(Integer))
        End With
        ds.Tables.Add(dt)

        'データのセット
        For i = 0 To datS
            dtRow = ds.Tables(0).NewRow
            dtRow(0) = Uridat(i).Jikoku    '時刻
            dtRow(1) = Uridat(i).Suu1      '数量1
            dtRow(2) = Uridat(i).Suu2      '数量2
            ds.Tables(0).Rows.Add(dtRow)
        Next

        'Chart に表示するデータソースを設定
        Dim min As DateTime = Nothing
        Dim max As DateTime = Nothing
        Dim intr = 30
        Dim tbl = GetChartDs(ds, intr, min, max)
        Chart1.DataSource = tbl.Select("", "時刻")
        Chart1.Series.Clear()
        '
        With Chart1.ChartAreas(0)
            With .AxisX
                .Minimum = min.ToOADate
                .Maximum = max.ToOADate
                .IntervalType = DataVisualization.Charting.DateTimeIntervalType.Minutes
                .Interval = intr

                Dim isFirst = True
                For Each row In tbl.Select("", "時刻")
                    Dim d = row.Field(Of Date)("時刻")
                    Dim null = row.IsNull("数量1")
                    If Not null Then
                        With .CustomLabels.Add(d.AddMinutes(-intr \ 3).ToOADate, d.AddMinutes(intr \ 3).ToOADate, d.ToString("HH:mm"))
                            .RowIndex = 0
                        End With
                    End If
                    isFirst = False
                Next
            End With
        End With

        Dim ore = Chart1.Series.Add("折れ線")
        With ore
            .ChartType = DataVisualization.Charting.SeriesChartType.Line
            .EmptyPointStyle.SetDefault(True)
            .XValueMember = "時刻"
            .YValueMembers = "数量1"
        End With

        Dim bou = Chart1.Series.Add("棒グラフ")
        With bou
            .ChartType = DataVisualization.Charting.SeriesChartType.Column
            .XValueMember = "時刻"
            .YValueMembers = "数量2"
        End With
    End Sub

    Private Function GetChartDs(Src As DataSet, IntrMin As Integer,
                                ByRef Min As DateTime, ByRef Max As DateTime) As DataTable
        Dim ret As New DataTable()
        Min = Nothing
        Max = Nothing

        With ret.Columns()
            .Add("時刻", GetType(DateTime))
            .Add("数量1", GetType(Integer))
            .Add("数量2", GetType(Integer))
        End With

        For Each itm In (From r In Src.Tables(0).Select()
                         Let d = Function(s As String) As Date
                                     Dim d2 As Date = Nothing
                                     If Date.TryParseExact(s, {"HH:mm", "H:m"}, Nothing, Nothing, d2) Then
                                         Return d2
                                     Else
                                         Return CDate(Nothing)
                                     End If
                                 End Function(r.Field(Of String)("時刻"))
                         Let h = d.Hour
                         Group By h Into rows = Group)

            Dim hour = itm.h
            Dim min2 As Date = Nothing
            For Each rowItm In itm.rows
                Dim row = rowItm.r
                Dim d = rowItm.d
                Dim disp = False
                If Min = Nothing OrElse d < Min Then Min = d : disp = True
                If Max = Nothing OrElse d > Max Then Max = d
                If min2 = Nothing OrElse d < min2 Then min2 = d : disp = True
                If Not disp Then
                    If d.Minute Mod IntrMin = 0 Then
                        disp = True
                    End If
                End If
                If disp Then
                    ret.Rows.Add(d, row("数量1"), row("数量2"))
                End If
            Next
        Next

        If Min <> Nothing Then
            Min = Min.AddMinutes(-(Min.Minute Mod IntrMin) - IntrMin * 2)
        End If
        If Max <> Nothing Then
            Max = Max.AddMinutes(-(Max.Minute Mod IntrMin) + IntrMin * 2)
        End If

        Dim d1 As Date = Min
        For Each row In ret.Select("", "時刻")
            Dim d2 = row.Field(Of Date)("時刻")
            Do While d1 < d2
                ret.Rows.Add(d1, DBNull.Value, DBNull.Value)
                d1 = d1.AddMinutes(IntrMin)
            Loop
            d1 = d2.AddMinutes(IntrMin)
        Next
        ret.AcceptChanges()

        Return ret
    End Function

End Class