Új hozzászólás Aktív témák

• #4938 VANESSZA1 őstag

  Új Válasz 2009-05-12 07:22:47 #4938

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  VANESSZA1

  őstag

  Ezt a makró diagrammot hogyan tudom egy Excel táblába betenni?

  Private addDataRunner As Thread
  Private rand As New Random()
  Private chart1 As Dundas.Charting.WinControl.Chart
  Public Delegate Sub AddDataDelegate()
  Public addDataDel As AddDataDelegate
  ...

  Private Sub RealTimeSample_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load

  Dim addDataThreadStart As New ThreadStart(AddressOf AddDataThreadLoop)
  addDataRunner = New Thread(addDataThreadStart)

  addDataDel = New AddDataDelegate(AddressOf AddData)

  End Sub 'RealTimeSample_Load

  Private Sub startTrending_Click(sender As Object, e As System.EventArgs) Handles startTrending.Click
  ' Disable all controls on the form
  startTrending.Enabled = False
  ' and only Enable the Stop button
  stopTrending.Enabled = True

  ' Predefine the viewing area of the chart
  minValue = DateTime.Now
  maxValue = minValue.AddSeconds(120)

  chart1.ChartAreas(0).AxisX.Minimum = minValue.ToOADate()
  chart1.ChartAreas(0).AxisX.Maximum = maxValue.ToOADate()

  ' Reset number of series in the chart.
  chart1.Series.Clear()

  ' create a line chart series
  Dim newSeries As New Series("Series1")
  newSeries.Type = SeriesChartType.Line
  newSeries.BorderWidth = 2
  newSeries.Color = Color.OrangeRed
  newSeries.XValueType = ChartValueTypes.DateTime
  chart1.Series.Add(newSeries)

  ' start worker threads.
  If addDataRunner.IsAlive = True Then
  addDataRunner.Resume()
  Else
  addDataRunner.Start()
  End If
  End Sub 'startTrending_Click

  Private Sub stopTrending_Click(sender As Object, e As System.EventArgs) Handles stopTrending.Click
  If addDataRunner.IsAlive = True Then
  addDataRunner.Suspend()
  End If

  ' Enable all controls on the form
  startTrending.Enabled = True
  ' and only Disable the Stop button
  stopTrending.Enabled = False
  End Sub 'stopTrending_Click

  '/ Main loop for the thread that adds data to the chart.
  '/ The main purpose of this function is to Invoke AddData
  '/ function every 1000ms (1 second).
  Private Sub AddDataThreadLoop()
  While True
  chart1.Invoke(addDataDel)

  Thread.Sleep(1000)
  End While
  End Sub 'AddDataThreadLoop

  Public Sub AddData()
  Dim timeStamp As DateTime = DateTime.Now

  Dim ptSeries As Series
  For Each ptSeries In chart1.Series
  AddNewPoint(timeStamp, ptSeries)
  Next ptSeries
  End Sub 'AddData

  '/ The AddNewPoint function is called for each series in the chart when
  '/ new points need to be added. The new point will be placed at specified
  '/ X axis (Date/Time) position with a Y value in a range +/- 1 from the previous
  '/ data point's Y value, and not smaller than zero.
  Public Sub AddNewPoint(timeStamp As DateTime, ptSeries As Dundas.Charting.WinControl.Series)
  Dim newVal As Double = 0

  If ptSeries.Points.Count > 0 Then
  newVal = ptSeries.Points((ptSeries.Points.Count - 1)).YValues(0) +(rand.NextDouble() * 2 - 1)
  End If

  If newVal < 0 Then
  newVal = 0
  End If
  ' Add new data point to its series.
  ptSeries.Points.AddXY(timeStamp.ToOADate(), rand.Next(10, 20))

  ' remove all points from the source series older than 1.5 minutes.
  Dim removeBefore As Double = timeStamp.AddSeconds((CDbl(90) * - 1)).ToOADate()
  'remove oldest values to maintain a constant number of data points
  While ptSeries.Points(0).XValue < removeBefore
  ptSeries.Points.RemoveAt(0)
  End While

  chart1.ChartAreas(0).AxisX.Minimum = ptSeries.Points(0).XValue
  chart1.ChartAreas(0).AxisX.Maximum = DateTime.FromOADate(ptSeries.Points(0).XValue).AddMinutes(2).ToOADate()

  chart1.Invalidate()
  End Sub 'AddNewPoint

  '/ Clean up any resources being used.
  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  If(addDataRunner.ThreadState And ThreadState.Suspended) = ThreadState.Suspended Then
  addDataRunner.Resume()
  End If
  addDataRunner.Abort()

  If disposing Then
  If Not (components Is Nothing) Then
  components.Dispose()
  End If
  End If
  MyBase.Dispose(disposing)
  End Sub 'Dispose

Új hozzászólás Aktív témák