投稿者 vb素人  (学生) 投稿日時 2017/9/15 16:44:28
魔界の仮面弁士さま

回答ありがとうございます。

>散布図というか、折れ線グラフのイメージでよいですか?
散布図と折れ線グラフの主な違いは、横軸上でのデータのプロット方法と思っています。
横軸をtimerでカウントした時間で表すことができれば、折れ線でも散布図でもどちらでも良いです。
シリアル通信で取得したデータ(マーカー)同士が線で接続されれば良いです。

>描画結果の画面イメージを貼ることはできますか?
すみません。画像の掲載方法が分かりません。


>s と t を、それぞれどのように取得しているのかの説明が漏れていますよ…。
すみません。回答があっているのか分からないのですが、
timeは、Timerからカウントした値(時間)
xとyは、シリアル通信で受信したデータです。


>画面に貼った後、初期設定からどのプロパティを変更したのかを教えてください。
③の部分のコードをすべて掲載します。


    Private Sub Received(x As UShort, y As UShort)

        If InvokeRequired Then
            Invoke(New Action(Of UShort, UShort)(AddressOf Received), x, y)
        Else

        xdata = 1023 - x
        ydata = 1023 - y
        Chart1.Series.Clear()   '既存の Series をクリアする場合 
        Dim s = Chart1.Series.Add("X-Axis")
        Dim t = Chart1.Series.Add("Y-Axis")

        Chart1.Legends(0).Font = New Font("MS Pゴシック", 10.0F, FontStyle.Bold)
        Chart1.Legends(0).BorderColor = Color.Black
        Chart1.Legends(0).BackColor = Color.Yellow
        Chart1.Legends(0).ShadowOffset = 4

        s.BorderWidth = 3
        s.BorderDashStyle = ChartDashStyle.Dot
        s.ChartType = SeriesChartType.Line
        t.ChartType = SeriesChartType.Point

        End If
    End Sub



>確認のためしばらく動かしてみた後で、下記のようにして
>チャートの内容を調べてみてはいかがでしょう。

すみません。こちらはまだ実施していません。