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

■No78701 (佐伯 さん) に返信

Seriesを増やせばよいです。


Public Class Form1
    Private _tbl As DataTable

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        With Chart1.Series
            With .Add("a")
                .XValueMember = "x"
                .YValueMembers = "y1"
            End With
            With .Add("b")
                .XValueMember = "x"
                .YValueMembers = "y2"
            End With
            With .Add("c")
                .XValueMember = "x"
                .YValueMembers = "y3"
            End With
        End With

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

        _tbl.Rows.Add(1, 2, 3, 4)
        _tbl.Rows.Add(2, 3, 2, 5)
        _tbl.Rows.Add(3, 1, 4, 4)
        _tbl.Rows.Add(4, 5, 3, 7)


        Chart1.DataSource = _tbl

    End Sub
End Class

■No78711 (shu さん) に返信

お手数をお掛けしています。

> Seriesにaddしたグラフごとの種類を指定して
> Yの範囲を指定すれば先の回答でできそうな気がしますが
すみません。初心者ゆえおっしゃてる意味が理解でずにいます。
78703をそのまま実行しても希望通りにはなりませんでした。 

今、下記サンプルのようなChartが2枚あったとします。
これを78708でも述べましたように1枚のChartにまとめて表示したいのです。

Public Class Form1
    Private dat1(3) As String
    Private dat2(3) As Single
    Private datS As Integer = 2

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        '日付、数量のデータ
        dat1(0) = "0101" : dat1(1) = "0102" : dat1(2) = "0103"
        dat2(0) = "10" : dat2(1) = "20" : dat2(2) = "30"

        'チャート表示
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim dtRow As DataRow
        '列の作成
        dt.Columns.Add("日付", GetType(String))
        dt.Columns.Add("数量", GetType(Single))
        ds.Tables.Add(dt)
        'データの追加
        For i = 0 To datS
            dtRow = ds.Tables(0).NewRow
            dtRow(0) = dat1(i)  '日付セット
            dtRow(1) = dat2(i)  '数量セット
            ds.Tables(0).Rows.Add(dtRow)
        Next
        'Chart に表示するデータソースを設定
        Chart1.DataSource = ds
        '系列を初期化    
        Chart1.Series.Clear()
        'グラフの種類の設定
        Dim bou = Chart1.Series.Add("棒グラフ")
        With bou
            .ChartType = DataVisualization.Charting.SeriesChartType.Column
            .XValueMember = "日付"
            .YValueMembers = "数量"
            .IsVisibleInLegend = False
        End With
    End Sub
End Class

>Yの範囲を指定すれば先の回答でできそうな気がしますが

上記、shuさんの指摘事項の意味は、
下記のようにy1の値に例えば+20などすれば良いのではないかと理解しました。
質問者さんはどのように理解していますでしょうか？


Public Class Form1
    Private _tbl As DataTable

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        With Chart1.Series
            With .Add("a")
                .XValueMember = "x"
                .YValueMembers = "y1"
            End With
            With .Add("b")
                .XValueMember = "x"
                .YValueMembers = "y2"
            End With
            With .Add("c")
                .XValueMember = "x"
                .YValueMembers = "y3"
            End With
        End With

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

        _tbl.Rows.Add(1, 2+20, 3, 4)
        _tbl.Rows.Add(2, 3+20, 2, 5)
        _tbl.Rows.Add(3, 1+20, 4, 4)
        _tbl.Rows.Add(4, 5+20, 3, 7)


        Chart1.DataSource = _tbl

    End Sub
End Class

■No78715 (shu さん) に返信

下手な質問ですみません。
変てこな言葉づかいになってたらごめんなさい。

長文になってしまいますがChart 2枚のサンプルを載せますのでお願いします。
実行して上段に表示されるのがChart1、下段に表示されるのがChart2 としますね。

下記にある株価チャートを見ていただけますか。
http://stocks.finance.yahoo.co.jp/stocks/chart/?code=8267
この上段の株価を示すローソク足をChart1、下段の出来高を示す棒グラフがChart2としますね。

続いて下記にある株価チャートを見ていただけますか。
http://www.opticast.co.jp/cgi-bin/tm/chart.cgi
ここでは、ローソク足、即ちChart1と、
棒グラフ、即ちChart2 とが上下に一枚のチャートとして表示されてますよね。
このようにChart1とChart2を別々にではなく、一枚のChartにまとめて表示したいのです。

Public Class Form1
    Private dat1(3) As String
    Private dat2(3) As Single
    Private datS As Integer

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call ChartA()
        Call ChartB()
    End Sub

    Private Sub ChartA()
        '日付、数量、データ数
        dat1(0) = "0101" : dat1(1) = "0102" : dat1(2) = "0103"
        dat2(0) = "10" : dat2(1) = "20" : dat2(2) = "30"
        datS = 2
        'チャート表示
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim dtRow As DataRow
        '列の作成
        dt.Columns.Add("日付", GetType(String))
        dt.Columns.Add("数量", GetType(Single))
        ds.Tables.Add(dt)
        'データの追加
        For i = 0 To datS
            dtRow = ds.Tables(0).NewRow
            dtRow(0) = dat1(i)  '日付セット
            dtRow(1) = dat2(i)  '数量セット
            ds.Tables(0).Rows.Add(dtRow)
        Next
        'Chart に表示するデータソースを設定
        Chart1.DataSource = ds
        '系列を初期化    
        Chart1.Series.Clear()
        'グラフの種類の設定
        Dim bou = Chart1.Series.Add("棒グラフ")
        With bou
            .ChartType = DataVisualization.Charting.SeriesChartType.Column
            .XValueMember = "日付"
            .YValueMembers = "数量"
            .IsVisibleInLegend = False
        End With

    End Sub

    Private Sub ChartB()
        '日付、数量、データ数
        dat1(0) = "0101" : dat1(1) = "0102" : dat1(2) = "0103"
        dat2(0) = "100" : dat2(1) = "200" : dat2(2) = "300"
        datS = 2
        'チャート表示
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim dtRow As DataRow
        '列の作成
        dt.Columns.Add("日付", GetType(String))
        dt.Columns.Add("数量", GetType(Single))
        ds.Tables.Add(dt)
        'データの追加
        For i = 0 To datS
            dtRow = ds.Tables(0).NewRow
            dtRow(0) = dat1(i)  '日付セット
            dtRow(1) = dat2(i)  '数量セット
            ds.Tables(0).Rows.Add(dtRow)
        Next
        'Chart に表示するデータソースを設定
        Chart2.DataSource = ds
        '系列を初期化    
        Chart2.Series.Clear()
        'グラフの種類の設定
        Dim bou = Chart2.Series.Add("棒グラフ")
        With bou
            .ChartType = DataVisualization.Charting.SeriesChartType.Column
            .XValueMember = "日付"
            .YValueMembers = "数量"
            .IsVisibleInLegend = False
        End With
    End Sub
End Class

■No78722 (佐伯 さん) に返信

提示された内容を１つのChartに集約する例です。
棒グラフなので横並びになりますが、グラフの種類が違えば見え方も変わってくると思います。


Public Class Form1
    Private dat1(3) As String
    Private dat2(3) As Single
    Private datS As Integer
    Private _tbl As DataTable

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ChartA()
        ChartB()
        ChartC()
    End Sub

    Private Sub ChartA()
        '日付、数量、データ数
        dat1(0) = "0101" : dat1(1) = "0102" : dat1(2) = "0103"
        dat2(0) = 10.0! : dat2(1) = 20.0! : dat2(2) = 30.0!
        datS = 2
        'チャート表示
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim dtRow As DataRow
        '列の作成
        dt.Columns.Add("日付", GetType(String))
        dt.Columns.Add("数量", GetType(Single))
        ds.Tables.Add(dt)
        'データの追加
        For i = 0 To datS
            dtRow = ds.Tables(0).NewRow
            dtRow(0) = dat1(i)  '日付セット
            dtRow(1) = dat2(i)  '数量セット
            ds.Tables(0).Rows.Add(dtRow)
        Next
        'Chart に表示するデータソースを設定
        Chart1.DataSource = ds
        '系列を初期化    
        Chart1.Series.Clear()
        'グラフの種類の設定
        Dim bou = Chart1.Series.Add("棒グラフ")
        With bou
            .ChartType = DataVisualization.Charting.SeriesChartType.Column
            .XValueMember = "日付"
            .YValueMembers = "数量"
            .IsVisibleInLegend = False
        End With

    End Sub

    Private Sub ChartB()
        '日付、数量、データ数
        dat1(0) = "0101" : dat1(1) = "0102" : dat1(2) = "0103"
        dat2(0) = 100.0! : dat2(1) = 200.0! : dat2(2) = 300.0!
        datS = 2
        'チャート表示
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim dtRow As DataRow
        '列の作成
        dt.Columns.Add("日付", GetType(String))
        dt.Columns.Add("数量", GetType(Single))
        ds.Tables.Add(dt)
        'データの追加
        For i = 0 To datS
            dtRow = ds.Tables(0).NewRow
            dtRow(0) = dat1(i)  '日付セット
            dtRow(1) = dat2(i)  '数量セット
            ds.Tables(0).Rows.Add(dtRow)
        Next
        'Chart に表示するデータソースを設定
        Chart2.DataSource = ds
        '系列を初期化    
        Chart2.Series.Clear()
        'グラフの種類の設定
        Dim bou = Chart2.Series.Add("棒グラフ")
        With bou
            .ChartType = DataVisualization.Charting.SeriesChartType.Column
            .XValueMember = "日付"
            .YValueMembers = "数量"
            .IsVisibleInLegend = False
        End With
    End Sub

    Private Sub ChartC()
        '列の作成
        _tbl = New DataTable
        With _tbl.Columns
            .Add("日付", GetType(String))
            .Add("数量1", GetType(Single))
            .Add("数量2", GetType(Single))
        End With

        'データの追加
        _tbl.Rows.Add("0101", 10.0!, 100.0!)
        _tbl.Rows.Add("0102", 20.0!, 200.0!)
        _tbl.Rows.Add("0103", 30.0!, 300.0!)
        'Chart に表示するデータソースを設定
        Chart3.DataSource = _tbl
        '系列を初期化    
        Chart3.Series.Clear()
        'グラフの種類の設定
        Dim bou = Chart3.Series.Add("棒グラフ1")
        With bou
            .ChartType = DataVisualization.Charting.SeriesChartType.Column
            .XValueMember = "日付"
            .YValueMembers = "数量1"
            .IsVisibleInLegend = False
        End With
        Dim bou2 = Chart3.Series.Add("棒グラフ2")
        With bou2
            .ChartType = DataVisualization.Charting.SeriesChartType.Column
            .XValueMember = "日付"
            .YValueMembers = "数量2"
            .IsVisibleInLegend = False
        End With

    End Sub

End Class

■No78730 (shu さん) に返信

> これは棒グラフの一般的な表現方法かと思います。
はい、一般的な表現方法と思います。

> とにかくグラフの種類が両方とも棒グラフでは適切でないのではないでしょうか？
教えていただいた78728の"棒グラフ2"の部分を"折れ線"にもしてみましたが、
これでは普通に一枚のChartに棒グラフと折れ線を重ねて表示することになりますよね。
（違っていたらすみません）
そうではなく一枚のChartに棒グラフは下段の方に、その上の上段には折れ線と言った具合に区別（区分）をして表示をしたいのです。
当然、同じデータ値 0（ゼロ）であってもy軸の値は違ったものになります。

Dim bou2 = Chart3.Series.Add("折れ線")
With bou2
    .ChartType = DataVisualization.Charting.SeriesChartType.Line
    .XValueMember = "日付"
    .YValueMembers = "数量2"
    .IsVisibleInLegend = False
End With