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

■No72115 (あり得んロッペン さん) に返信

提示されたコードだと

23456789101112131415161718192021
345678910111213141516171819202122
4567891011121314151617181920212223
56789101112131415161718192021222324
678910111213141516171819202122232425
7891011121314151617181920212223242526
89101112131415161718192021222324252627

のように出力されると思いますが
どのように出力したいのでしょう？

xが横でyが縦方向なら少なくともfor文のx,yは逆である必要があります。

■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