按设置的时间间隔从现有数据表更新数据点

我想让HighChart通过将下一个数据点添加到图表来更新序列，以便图表"播放"。我有一个同时包含 X 和 Y 分量的数据系列。我希望图表更新（比如每秒）与本系列的下一个点。我正在使用DotNet.HighCharts API在 VB.NET 4站点中使用它。我已经跟进了几个演示（例如这个），所有这些演示都使用了一些随机生成的值。如何让图表使用现有的一组点？这是一个使用随机函数的 jsFiddle - http://jsfiddle.net/tQpNN/3/我只是不知道如何遍历传入的数据系列（如果这是这样做的方法）或让 DotNet.HighCharts 为我迭代。

用一些代码编辑：

    Dim stfipsList4 = (From r In dt4.AsEnumerable() Select r("areaname")).Distinct().ToList()
    Dim SeriesList4 As New List(Of Series)(stfipsList4.Count)
    Dim seriesItem4(stfipsList4.Count) As Series
    Dim xDate4 As DateTime
    Dim fakeDate4 As String
    Dim sX4 As Integer
    sX4 = 1
    For Each state In stfipsList4
        Dim data As New Dictionary(Of DateTime, Decimal)
        Dim stateVal As String = state.ToString
        Dim recCount As Integer = dt4.Rows.Count - 1
        Dim seriesPointCount As Integer = dt4.Compute("Count(population)", "areaname = '" + stateVal + "'")
        Dim chartData As Object(,) = New Object(seriesPointCount - 1, 1) {}
        Dim x As Integer = 0
        For i As Integer = 0 To recCount
            If dt4.Rows(i)("areaname").ToString = stateVal Then
                fakeDate4 = "1/1/" + dt4.Rows(i)("periodyear").ToString
                xDate3 = DateTime.Parse(fakeDate4)
                chartData.SetValue(xDate4.Date, x, 0)
                chartData.SetValue(dt4.Rows(i)("population"), x, 1)
                x += 1
            End If
        Next
        seriesItem4(sX4) = New Series With {
                    .Name = state.ToString, _
                    .Data = New Helpers.Data(chartData)
        }
        SeriesList4.Add(seriesItem3(sX4))
        sX4 = sX4 + 1
    Next

    Dim iterateData As String = JsonSerializer.Serialize(New Helpers.Data(New Object() {seriesItem3(1).Data}))
    Dim chart4 As Highcharts = New Highcharts("chart4").SetOptions(New Helpers.GlobalOptions() With { _
        .[Global] = New [Global]() With { _
                .UseUTC = False _
            } _
        }).InitChart(New Chart() With { _
         .DefaultSeriesType = ChartTypes.Spline, _
         .MarginRight = 10, _
         .Events = New ChartEvents() With { _
          .Load = "ChartEventsLoad" _
         } _
        }).SetTitle(New Title() With { _
         .Text = "Live data" _
        }).SetXAxis(New XAxis() With { _
         .Type = AxisTypes.Datetime, _
         .TickPixelInterval = 150 _
        }).SetSeries(New Series() With { _
             .Data = New Helpers.Data(New Object() {})
            }) _
    .AddJavascripVariable("counter", "0") _
    .AddJavascripVariable("stockData", iterateData) _
    .AddJavascripFunction("ChartEventsLoad", "// set up the updating of the chart each second" & vbCr & vbLf & _
                          " var series = this.series[0];" & vbCr & vbLf & _
                          " setInterval(function() {" & vbCr & vbLf & _
                          " var x = stockData[counter].key;" & vbCr & vbLf & _
                          " var y = stockData[counter].value;" & vbCr & vbLf & _
                          " series.addPoint([x, y], true, series.points.length > 10);" & vbCr & vbLf & _
                          " counter++;" & vbCr & vbLf & _
                          "}, 1000);")

这在我的一系列数据中传递（可以是 1 个或多个不同的单个系列）。我想做的是通过一次添加一个点来"播放"系列点（缩放 x 轴，但我不想删除任何点）。这个虚拟版本只是在给定的时刻添加了一个新的随机 y 值。我不确定如何迭代现有数据。

这确实将"stockData"javascript var设置为我的数据集。我在FireBug中看到错误，指出

股票数据[计数器] 未定义

变量counter与stockdata和chart4图一起在$(document).ready(function)中定义。请参阅 http://jsfiddle.net/ZvYT6/了解 DotNet.Highcharts API 吐出的内容。迭代的内联 javascript 如下所示：

        function ChartEventsLoad(){
        // set up the updating of the chart each second
 var series = this.series[0];
 setInterval(function() {
 var x = stockData[counter].key;
 var y = stockData[counter].value;
 series.addPoint([x, y], true, series.points.length > 10);
 counter++;
}, 1000);
    }
});

我真正不确定的部分是键/值stockData[counter]。这在javascript中叫什么？股票数据是一个数据列表，如下所示：

    var stockData = { data: [{ data: [[Date.parse('01/01/1900 00:00:00'), 530000],
    ....,
[Date.parse('01/01/2010 00:00:00'), 18801310]]
    }]
    };

编辑 v4：好的，现在我能够使用一些讨厌的javascript解析出我的数据数组。

    Dim iterateData As String = JsonSerializer.Serialize(seriesItem3(1))
    Dim chart4 As Highcharts = New Highcharts("chart4").SetOptions(New Helpers.GlobalOptions() With { _
        .[Global] = New [Global]() With { _
                .UseUTC = False _
            } _
        }).InitChart(New Chart() With { _
         .DefaultSeriesType = ChartTypes.Spline, _
         .MarginRight = 10, _
         .Events = New ChartEvents() With { _
          .Load = "ChartEventsLoad" _
         } _
        }).SetTitle(New Title() With { _
         .Text = "Live data" _
        }).SetXAxis(New XAxis() With { _
         .Type = AxisTypes.Datetime, _
         .TickPixelInterval = 150 _
        }).SetSeries(New Series() With { _
             .Data = New Helpers.Data(New Object() {})
            }) _
    .AddJavascripVariable("counter", "0") _
    .AddJavascripVariable("stockData", iterateData.ToString) _
    .AddJavascripFunction("ChartEventsLoad", "// set up the updating of the chart each second" & vbCr & vbLf & _
                          " var result = stockData.data;" & vbCr & vbLf & _
                          " var series = this.series[0];" & vbCr & vbLf & _
                          " setInterval(function() {" & vbCr & vbLf & _
                          " var p = String(result[counter]);" & vbCr & vbLf & _
                          " var splitp = p.split("","");" & vbCr & vbLf & _
                          " var x = splitp[0];" & vbCr & vbLf & _
                          " var y = splitp[1];" & vbCr & vbLf & _
                          " series.addPoint([x, y], true, false, true);" & vbCr & vbLf & _
                          " counter++;" & vbCr & vbLf & _
                          "}, 1000);")
    ltrChart4.Text = chart4.ToHtmlString()

如果我查看Firebug中的x和y值，我可以看到这些是预期值。但是，我的图表只是从 ~1900 小时开始在 x 轴上更新时间，并每秒添加一个点（根据 javascript 函数），但没有 y 值。此外，y 轴似乎从 -2.5 开始 - 我使用的值都不小于 1000，更不用说 0。我离得很近...