06-06-2007 01:12 PM
start = Session(
"periodStartSpanDTM")finish = Session(
"periodEndSpanDTM")increment = TimeSpan.FromMinutes(30)
Dim xAxis As XAxis = graph.XAxes(0) Dim yAxis As YAxis = graph.YAxes(0)xAxis.Mode = AxisMode.Fixed
xAxis.AutoSpacing =
FalsexAxis.MajorDivisions.Base =
CType(DataConverter.Convert(start, GetType(Double)), Double)xAxis.MajorDivisions.Interval =
CType(DataConverter.Convert(TimeSpan.FromDays(1), GetType(Double)), Double)xAxis.MinorDivisions.Interval =
CType(DataConverter.Convert(TimeSpan.FromHours(1), GetType(Double)), Double)xAxis.Range =
New Range(CType(DataConverter.Convert(start, GetType(Double)), Double), CType(DataConverter.Convert(finish, GetType(Double)), Double)) Dim Label As String = ddlLabels.SelectedItem.Text.ToString Dim Units As String = ddlLabels.SelectedValue.ToString Dim Points As Double Dim rtimes As DateTime Dim Time As Double Dim myConn As OleDbConnection = New OleDbConnection("ConnectionString") Dim myCmd As OleDbCommand = New OleDbCommand("Query Statement", myConn)myConn.Open()
Dim aReader As OleDbDataReader = myCmd.ExecuteReader() While aReader.ReadPoints =
CDbl(aReader("value"))rtimes = aReader(
"acqGMT")Time =
CDbl(DataConverter.Convert(rtimes, GetType(Double)))ls.Text +=
"Value(" & aReader("acqGMT") & "): " & aReader("value") & "<Br />"graph.PanXY(Time, Points)
End WhilemyConn.Close()
06-07-2007 01:27 PM