| Newbie | | Join Date: Apr 2008
Posts: 1
| |
hi can anyone help me, i'm having problem with mschart. i want to draw graph according to value in the Graph_Details table.i dont know where to start writing code and how. i have 0% knowledge on mschart and the coding. can someone help me.
My code: -
Private Sub Timer2_Timer()
-
Dim myvari As Integer
-
Dim StartTime As Integer
-
Dim StopTime As Integer
-
Dim Store As Integer
-
Dim timeGap As Integer
-
Dim TimeEnd As String
-
Dim avgSpeed As Long
-
Dim NoOfCars As Integer
-
-
Counter = Counter + 1
-
If Counter = 300 Then
-
Timer2.Enabled = False
-
-
TimeEnd = Format(Now, "hh:mm:ss")
-
-
strSql = "SELECT MAX(TimeGap) FROM Graph_Details"
-
-
DataRs.Open strSql, DE.Conn, adOpenForwardOnly, adLockReadOnly
-
-
If DataRs.RecordCount > 0 Then
-
If Not IsNull(DataRs(0)) Then
-
timeGap = DataRs(0) + 1
-
Else
-
timeGap = 1
-
End If
-
Else
-
timeGap = 1
-
End If
-
-
DataRs.Close
-
-
strSql = "SELECT TOP 150 TimeOut, Speed FROM Car_INFO ORDER BY ID DESC"
-
-
'MsgBox strSql
-
-
DataRs.Open strSql, DE.Conn, adOpenForwardOnly, adLockReadOnly
-
-
If DataRs.RecordCount > 0 Then
-
-
NoOfCars = 0
-
avgSpeed = 0
-
-
For i = 0 To DataRs.RecordCount - 1
-
If Not DataRs(0) = "" Then
-
NoOfCars = NoOfCars + 1
-
avgSpeed = avgSpeed + DataRs(1)
-
End If
-
DataRs.MoveNext
-
-
Next i
-
-
avgSpeed = avgSpeed / NoOfCars
-
-
End If
-
-
DataRs.Close
-
-
strSql = "INSERT INTO Graph_Details (TimeStart, TimeEnd, AverageSpeed, NoOfCars, TimeGap) " & _
-
" VALUES ('" & lblTimeStart.Caption & "','" & TimeEnd & "','" & avgSpeed & "'," & _
-
" '" & NoOfCars & "'," & timeGap & ")"
-
-
MsgBox strSql
-
-
DE.Conn.Execute strSql
-
Timer2.Enabled = True
-
Counter = 0
-
lblTimeStart.Caption = Format(Now, "hh:mm:ss")
-
End If
-
-
End Sub
|
